Sobatblogger, kali ini saya akan berbagi ilmu lagi nih, masih membahas pemrograman kok, heheehe saya harap tidak bosan ya. kali ini saya akan berbagi bagaimana cara mencari nilai tertinggi dan terendah, sudah pasti dong menggunakan bahasa pascal, oke mari kita simak.
uses wincrt;
var a, siswa : integer;
nilai, total, tinggi, rendah, rata : real;
begin
total := 0;
write ('jumlah siswa : '); readln (siswa);
writeln;
for a := 1 to siswa do
begin
write ('nilai siswa ke ',a,' : '); readln (nilai);
total := total + nilai;
if a = 1 then begin
tinggi := nilai;
rendah := nilai;
end
else begin
if nilai > tinggi then tinggi := nilai
else begin
if nilai < rendah then rendah := nilai;
end;
end;
end;
rata := total / siswa;
writeln;
writeln ('nilai terendah : ', rendah :1:2);
writeln ('nilai tertinggi : ', tinggi :1:2);
writeln ('rata-rata : ',rata :1:2);
end.
