Program menghitung nilai rata-rata

Berikut merupakan Program menghitung nilai rata-rata menggunakan bahasa Pascal dengan menggunakan statement FOR.

• SOURCE CODE

Program menghitung_rata_rata;
uses crt;
var
   n, x, i, tot : integer;
   rata : real;
begin
clrscr;
     writeln('Program Menghitung Rata-rata');
     writeln('====================');
     writeln;
     write('Masukkan jumlah bilangan : ');readln(n);
     writeln;
     writeln('Masukkan Bilangan : ');
     tot := 0;
     for i := 1 to  n do
     begin
     write('Bilangan ke-',i,' :');readln(x);
     tot := tot + x;
     end;
     rata := tot/n;
     writeln;
     writeln('Total Bilangan         : ',tot:6);
     writeln('Rata-rata                 : ',rata:6:2);
readkey;
end.

• PENJELASAN SOURCE CODE

Program menghitung_rata_rata;     {Judul Program}
uses crt;     {Deklarasi unti CRT}
var     {Variabel}
   n, x, u, tot : integer;     {Inisiasi varabel}
   rata : real;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     writeln('Program Menghitung Rata-rata');     {Cetak Program Menghitung Rata-rata}
     writeln('====================');     {Cetak =========================}
     writeln;      {Cetak baris}
     write('Masukkan jumlah bilangan : ');      {Cetak Masukkan jumlah bilangan :}
     readln(n);     {Baca variabel n}
     writeln;     {Cetak baris}
     writeln('Maskkan Bilangan : ');     {Cetak Masukkan Bilangan :}
     tot := 0;     {Nila awal tot}
     for i := 1 to n do     {Memulai pengulangan sesuai dengan jumlah nilai yang di input di variabel n}
     begin     {Awal instruksi program}
     write('Bilangan ke-',i,' :');     {Cetak Bilangan ke-, variabel , :}
     readln(x);     {Baca variabel x}
     tot := tot + x;     {Counter penjumlahan tot}
     end;     {Akhir instruksi kondisi}
     rata := tot/n;     {Counter pembagian rata}
     writeln;     {Cetak baris}
     writeln('Total Bilangan          : ',tot:6);     {Cetak Total Bilangan   :,variabel tot}
     writeln('Rata-rata                  : ',rata:6:2);     {Cetak Rata-rata      :, variabel rata}
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             : Menghitung 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.