Program mencari nilai rata-rata

Berikut merupakan Program mecari nilai rata-rata menggunakan bahasa Pascal dengan menggunakan statement FUNCTION.

• SOURCE CODE

Program mencari_nilai_rata_rata;
uses crt;
var
   n, a, b, tb : integer;
   rr : real;
   function nrr(tb, n : integer):real;
begin
   rr := tb/n;
end;
begin
clrscr;
     write('Masukkan jumlah bilangan : ');readln(n);
     writeln;
     tb := 0;
     for a := 1 to n do
begin
     write('Masukkan bilangan ke-',a,' :');readln(b);
     tb := tb + b;
end;
writeln;
     nrr(tb,n);
     writeln('Jumlah nilai       : ',tb);
     writeln('Nilai rata-rata   : ',rr:1:2);
readkey;
end.

• PENJELASAN SOURCE CODE

Program mencari_nilai_rata_rata;     {Judul rogram}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   n, a, b, tb : integer;     {Inisiasi variabel}
   rr : real;     {Inisiasi variabel}
   function nrr(tb, n : integer):real;     {Inisiasi Function}
begin     {Awal instruksi program}
   rr := tb/n;     {Counter pembagian rr}
end;     {Akhir instruksi kondisi}
begin     {Awal instruksi progam}
clrscr;     {Membersihkan layar}
     write('Masukkan jumlah bilangan : ');     {Cetak Masukkan jumlah bilangan :}
     readln(n);     {Baca variabel n}
     writeln;     { Cetak baris}
     tb := 0;     {Nilai awal tb}
     for a := 1 to n do     {Memulai pengulangan sesuai dengan jumlah data yang di input di variabel n}
begin     {Awal instruksi program}
     write('Masukkan bulangan ke-',a,' :');     {Cetak Masukkan bilangan ke-, variabel a, :}
     readln(b);     {Baca variabel b}
     tb := tb + b;     {Counter penjumlahan tb}
end;     {Akhir instruksi kondisi}
writeln;     {Cetak baris}
     ntt(tb,n);     {Memanggil Function}
     writeln('Jumlah nilai           : ',tb);     {Cetak Jumlah nilai    : variabel tb}
     writeln('Nilai rata-rata       : ',rr:1:2);     {Cetak Nilau rata-rata   : variabel rr}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program             : Mencari nilai rata-rata
• Source Code .pdf        : .:_Download_:.
• Flowchart .png           : .:_Download_:.
• Program .pas              : .:_Download_:.
• Password                    : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.