menghitung nilai rata-rata dengan menggunakan turbo pascal 7 beserta cara penjelasannya.

 Program menghitung_rata_rata;
uses crt;
var
   n, x, i, tot : integer;
   rata : real;
begin
clrscr;
     writeln('Program Menghitung Rata-rata');
     writeln('====================');
     write('Masukkan jumlah bilangan : ');readln(n);
     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);
readln;
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 =========================}
     write('Masukkan jumlah bilangan : ');      {Cetak Masukkan jumlah bilangan :}
     readln(n);     {Baca variabel n}
     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('Total Bilangan          : ',tot:6);     {Cetak Total Bilangan   :,variabel tot}
     writeln('Rata-rata                  : ',rata:6:2);     {Cetak Rata-rata      :, variabel rata}
readln;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}