Program Pascal Mencari Rata-Rata Penjualan

Berikut adalah salah satu program pascal untuk Mencari Rata-Rata Penjualan

1. Programnya

program RataRataPenjualan;
uses crt;
Var
   ph1,ph2,ph3,ph4,ph5,rrp:real;
Begin
     clrscr;
     Writeln('program mencari Rata_rata Penjualan');
     Write('Input Penjualan Hari 1 =');readln (ph1);
     Write('Input Penjualan Hari 2 =');readln (ph2);
     Write('Input Penjualan Hari 3 =');readln (ph3);
     Write('Input Penjualan Hari 4 =');readln (ph4);
     Write('Input Penjualan Hari 5 =');readln (ph5);

     rrp :=(ph1+ph2+ph3+ph4+ph5)/5;

     Writeln('Rata rata Penjualan    =',rrp:0:0);
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program