PROGRAM PASCAL MENCARI RATA RATA PENJUALAN

PROGRAM PASCAL MENCARI RATA RATA PENJUALAN

Berikut ini adalah 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.Program Pascal

3.Hasilnya