WHILE-DO & REPEAT-UNTIL

Repetisi while do & repeat until. ni lanjutan dari topik for to do.....
2. WHILE DO
[Photo]
Statemen While-Do digunakan untuk melakukan proses perulangan suatu statement atau blok statemen terus-menerus selma kondisi ungkapan-logika pada While bernilai logika benar.

CONTOH:
Uses Crt;
Var
Celcius, Fah : Real;
Lagi : Char;
Begin
Lagi :=’Y’;
While lagi = ‘Y’ Do
Begin
clrscr;
write(‘Nilai Celcius? ’);
ReadLn(Celcius);
Fah :=1.8 * Celcius + 32;
writeLn;
writeln(‘Fahrenheit = ’,Fah:7:2);
writeLn;
writeLn(‘Menghitung Lagi (Y/T)? ’);
Readln(Lagi);
End;
End.

CONTOH 2:
Var
Nilai,total,RataRata : Real;
N,I: Integer; Lagi: Char;
Begin
Lagi :=’Y’;
While Lagi = ‘Y’ Do
Begin
ClrScr; (*** Masukan Jumlah Dari Data***)
WriteLn(‘Jumlah Data ? ’);
ReadLn(N);
I := 0; Total :=0;
Slide 15 .O {color:black; font-size:149%;} a:link {color:#E2D700 !important;} a:active {color:#009DD9 !important;} a:visited {color:#85DFD0 !important;} While I <>
Begin
I := I + 1;
Write(‘Nilai Data ke ’,I,’? ’);
ReadLn(Nilai);
Total := Total + Nilai;
End; (*end dari while ke dua*)
(* Menghitung Nilai Rata-Rata *)
RataRata := Total/N
(*Menampilkan Hasil*)
Writeln;
Writeln(‘Total Nilai = ’,Total:8:2);
Writeln(‘Jumlah Data = ’,N:3);
Writeln(‘Rata-Rata nilai =’,RataRata:8:2);
Writeln;
Write (‘Akan Menghitung Lagi (Y/T)? ’);
Readline(Lagi);
End;(*end dari while pertama*)
End.


3. REPEAT UNTIL

Repeat .... Until digunakan untuk mengulang(Repeat) statemen-statemen atau blok statemen sampai (Until) kondisi yang diseleksi di Until tidak terpenuhi.
[Photo]

CONTOH :
Var
I,J : integer;
Begin
I :=0;
Repeat
I := I + 1;
J := 0;
Repeat
I := I + 1;
Write(‘*’);
Until J = i;
Writeln;
Until I =4;
End.