[Turbo Pascal] Perulangan(2) Dengan Repeat..Until

Program Perulangan;
Uses wincrt;
Var
b_bil, j_bil, bil, bil1, banyak_bil, jum: Integer;
rata: real;
Begin
  b_bil:=0;
  j_bil:=0;
  write('Isi Bilangan Kesatu      : '); readln(bil1);
     Begin
        Repeat
 b_bil:= b_bil + 1;
 j_bil:= j_bil + bil;
 write('Isi Bilangan Berikutnnya : '); readln(bil);
Until (bil <= 10);
     End;
  banyak_bil:= j_bil + ( bil + bil1 );
  jum:= b_bil + 1;
  rata:= banyak_bil / jum;
  writeln;
  writeln('Banyak Bilangan = ',banyak_bil);
  writeln('Jumlah Bilangan = ',jum);
  writeln('Nilai Rata-rata = ',rata:0:2);
End.

Related Articel:

Posted in: Turbo Pascal