Question

Buatlah algoritma untuk membuat 5
buah bilangan, kemudian hitung jumlah dan rata-rata kelima bilangan dan mencetak jumlah rata-rata dengan menggunakan for to do, while do dan repeat until

Answer 1

Asli, ribet banget -__

PROGRAM Hitung;

VAR
 sum, avg: Real;
 i: Integer;

BEGIN
 { for X to Y do }
 for i:= 1 to 5 do
 BEGIN
  sum := sum + i;
 END;
 avg := sum / 5;

 { WHILE DO }
 while i <= 5 do
 BEGIN
  i := i + 1;
  sum := sum + i;
 END;
 avg := sum / 5;

 { REPEAT UNTIL }
 REPEAT
  sum := sum + i;
  i := i + 1;
 UNTIL i = 5;
 avg := sum / 5;
END.