Membuat Program Penghitung rata² [pascal]

OK kita mulai

uses crt;
var n1,n2,n3,n4,n5:integer;
ratarata:real;

begin
clrscr;
write ('Nilai siswa 1':);
readln(n1);
....isi smpai nilai siswa ke 4...
write (nilai Siswa 5':);
readln(n5);
ratarata:=n1+nn2+n3+n4+n5:5:2);
writeln('Nilai Rata-rata =',ratarata);
readkey;
end.

Tulisan Terkait

Membuat Program Penghitung rata² [pascal]

4/ 5

Oleh Holong.Me