Program Pascal Mencari Rata Rata Penjualan

Program Pascal Mencari Rata Rata Penjualan

Berikut adalah contoh Program Pascal Mencari Rata Rata Penjualan

1. Program
program RataRataPenjualan;
uses crt;
var
   ph1,ph2,ph3,ph4,ph5,rrp:real;
begin
     clrscr;
     Writeln('program mencari rata_rata penjualan');
     Writeln('Input Penjualan Hari 1=');readln (ph1);
     Writeln('Input Penjualan Hari 2=');readln (ph2);
     Writeln('Input Penjualan Hari 3=');readln (ph3);
     Writeln('Input Penjualan Hari 4=');readln (ph4);
     Writeln('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