Contoh Membuat Program mencari Jumlah, Rata-rata, nilai terkecil dan Terbesar untuk 10 Nilai dengan menggunakan bahasa Pascal

// Contoh Membuat  Program mencari Jumlah, Rata-rata, nilai terkecil dan Terbesar untuk 10 Nilai  dengan menggunakan bahasa Pascal


uses wincrt;

var
  nilai, i, jum, min, max: integer;
  rata: real;

begin
  writeln('Program mencari Jumlah, Rata-rata, nilai terkecil dan Terbesar untuk 10 Nilai');
  writeln;
  jum:=0;  min:=999; max:=0;

  for i:= 1 to 10 do begin
    write('Nilai ke-',i,'= '); readln(nilai);

    jum:=jum+nilai;

    if(nilai<min) then min:=nilai;
    if(nilai>max) then max:=nilai;
  end;

  rata:=jum/10;
  writeln;
  writeln('Jumlah   : ' , jum);
  writeln('Rata-rata: ' , rata:7:1);
  writeln('Terkecil : ' , min);
  writeln('Terbesar : ' , max);
end.

//Atau dengan menggunakan perintah while

uses wincrt;
var
i,nilai,min,max,jum:integer;
rata:real;
lagi:char;
begin

lagi:='y';
while (lagi='y') or (lagi='Y') do
begin
clrscr;
writeln('masukan 5 angka bilangan bulat dibawah ini:');
min:=999; max:=0; jum:=0;
 for i:=1 to 5 do
 begin
 write(' Data ke_',i,' = ');
 readln(nilai);
 jum:=jum+nilai;
 
 if (nilai<min) then min:=nilai;
 if (nilai>max) then max:=nilai;


 end;
writeln;
writeln(' Jumlah semua   = ',jum);
writeln(' Rata2          = ',jum/5:0:2);
writeln(' Nilai terkecil = ',min);
writeln(' Nilai terbesar = ',max);
write(' Apakah akan mengulang lagi?y/n...');
readln(lagi);
end;
writeln('     ===== TRIMA KASIH =====');
end.

Share This

• 
• 
• 
• 
• 
• 
• 

Subscribe Here