Pengulangan Tersarang
User Srt;
var
I = integer
Begin
Clrscr;
For I : = 1 to 5 do writeln (i : 4, i*2:4) ;
readLn;
End.
Ctrl + f9 untuk melihat hasil.
Akan muncul
1<=>2
2<=>4
3<=>6
4<=>8
5 <=>10
Pengulangan While – do
Uses Crt;
Var
I=integer;
Begin
I : =0;
While I < 5 do
Begin
While
(I);
I
: = I + 1;
End;
readLn;
End.
CTRL + f9 untuk melihat hasil
Akan muncul
0
1
2
3
4
Struktur Repeat Until
User Crt;
Var
I = integer;
Begin
CLrscr;
Repeat
writeLn (i);
i : = i +1;
Until i=5;
readLn;
End.
CTRL + f9 untuk melihathasil
Akan muncul
0
1
2
3
4
User Srt;
var
I = integer
Begin
Clrscr;
I : = i + 1;
writeLn (i:4, i + 1:4,
i+2:4);
Until i =5;
readLn;
End.
CTRL + f9 untuk melihat hasil
Akan muncul
1 2 3
2 3 4
3 4 5
4 5 6
5 6 7
User Srt;
Var i = integer;
j = integer;
Begin
Clrscr;
For i: = 0
to 4 do
Begin
For j:= 5-i downto 1 do
Begin
Write (i:5);
End;
writeLn ();
end;
readLn;
End.
CTRL + f9 untuk melihat hasil
Akanmuncul
0 0 0 0 0
1 1 1 1
2 2 2
3 3
4
User Srt;
Var i
= integer;
j = integer;
Bigin
Clrscr;
For i : = 1 to 4 do
begin
For j : = 1 to i do
Begin
Write (j);
End;
writeLn ();
end;
readLn;
End.
CTRL + f9 untuk melihat hasil
Akan muncul
1
1 2
1 2 3
1 2 3 4
0 komentar:
Posting Komentar