LATIHAN PROGRAM PASCAL : LOOPing

PROGRAM FOR-DO
Uses wincrt;
var
jari : integer;
luas, kel : real;
begin
Writeln('---------------------------------');
Writeln('Jari-jari Luas Keliling');
Writeln('---------------------------------');
For jari:=10 to 21 do
begin
luas:=3.14*jari*jari;
kel:=2*3.14*jari;
Writeln(jari,' ',luas:4:2,' ',kel:4:2);
jari:=jari+1;
end;
end.

PROGRAM WHILE-DO
Uses wincrt;
var
jari : integer;
luas, kel : real;
begin
Writeln('---------------------------------');
Writeln('Jari-jari Luas Keliling');
Writeln('---------------------------------');
jari:=10;
While jari < 20 Do
Begin
luas:=3.14*jari*jari;
kel:=2*3.14*jari;
Writeln(jari,' ',luas:4:2,' ',kel:4:2);
jari:= jari+2;
End;
end.


PROGRAM REPEAT-UNTIL
Uses wincrt;
var
jari : integer;
luas, kel : real;
begin
Writeln('---------------------------------');
Writeln('Jari-jari Luas Keliling');
Writeln('---------------------------------');
jari:=8;
Repeat
jari:= jari+2;
luas:=3.14*jari*jari;
kel:=2*3.14*jari;
Writeln(jari,' ',luas:4:2,' ',kel:4:2);

Until jari=18;
end.