AP 2A

=> REPEAT UNTIL <=
╔═[■]════════════════════════════ NONAME00.PAS ══════════════════════════1═[↕]═╗
║uses crt; ▲
║var ■
║ i: integer; ▒
║begin ▒
║clrscr; ▒
║i:= 0; ▒
║repeat ▒
║i:= i+1;
║writeln (i); ▒
║until i= 5 ▒
║end. ▒


=> FOR..to..do <=
╔═[■]════════════════════════════ NONAME00.PAS ══════════════════════════1═[↕]═╗
║uses crt; ▲
║var ■
║ i: integer; ▒
║ begin ▒
║ clrscr; ▒
║ for i := 1 to 5 do ▒
║ writeln ('PASCAL'); ▒
║end. ▒

=> WHILE DO <=

uses crt;
var
d:integer;
begin
d:=1;
while d<=20 do
begin
writeln(d);
d:=d+1;
end;
end.

=> IF THEN <=

Var
Nilai : real ;
Ket : string[11] ;
Begin
Ket : = ‘Tidak Lulus’ ;
Write (‘Nilai yang didapat ?’) ;
Readln (Nilai) ;
If Nilai > 60 then ket : = ‘Lulus’ ;
Writeln (Ket);
End.

=> CASE OF <=

Var
Nilai : char ;
Begin
Write (‘Nilai huruf yang didapat ?’); readln (Nilai);
Case Nilai of
‘A’ : writeln (‘Sangat baik’) ;
‘B’ : writeln (‘baik’) ;
‘C’ : writeln (‘Cukup’) ;
‘D’ : writeln (‘Kurang’) ;
‘E’ : writeln (‘Gagal’) ;
End ;
End.