ra_nieSS

Menghitung Rata-rata menggunakan For

uses wincrt;
var nilai: array[1..3] of integer ;
jm,rata :real;
i : integer;
begin
writeln
for i:=1 to 3 do
begin
clrscr;
write (‘masukan data ke-1: ’);readln (nilai[1]);
write (‘masukan data ke-2:’) ;readln(nilai [2]);
write (‘masukan data ke-3:’); readln(nilai [3]);
jumlah := nilai[1]+nilai [2]+nilai [3] ;
rata := jumlah/3;
writeln;
writeln(‘jumlah nilai =’,jumlah 5:3’);
writeln(‘rata-rata nya =’,jumlah 5:3’);
readln;
end;
end.

OUTPUT
Masukan data ke-1 :50
Masukan data ke-2 :30
Masukan data ke-3:40

Jumlah nilai =120.00
Rata-ratanya =40.00




Menghitung Rata-rata Menggunakan Array


Uses wincrt;
var nilai : array [1..10] of integer ;
jm,rata : real;
begin
clrscr ;
write(‘menghitung rata-rata 10 buah nilai’);
write(‘nilai =’);readln(nilai [1] );
write(‘nilai =’);readln(nilai [2] );
write(‘nilai =’);readln(nilai [3] );
write(‘niali =’);readln(nilai [4] );
write(’nilai =’);readln(nilai [5] );
write(’nilai =’);readln(nilai [6] );
write(’nilai =’);readln(nilai [7] );
write(’nilai =’);readln(nilai [8] );
write(’nilai =’);readln(nilai [9] );
write(’nilai =’);readln(nilai [10] );
jm := nilai[1]+nilai[2]+nila[3]+nilai[4]+nilai[5]+nilai[6]+nilai[7]+nilai[8]+nilai[9]+nilai[10];
rata:= jm/10;
writeln;
writeln(‘jumlah =’,jm :9:2);
writeln(‘rata-rata =’,rata :9:2);
end.




Outpot

Menghitung rata-rata 10 buah nilai
Nilai=10
Nilai=20
Nilai=6
Nilai=8
Nilai=6
Nilai=8
Nilai=2
Nilai=4
Nilai=12
Nilai=8

Jumlah = 84.00
Rata-rata= 8.40