Program RataRataPenjualan;
uses crt;
var
ph1,ph2,ph3,ph4,ph5,rr: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.
uses crt;
var
ph1,ph2,ph3,ph4,ph5,rr: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.
Komentar
Posting Komentar