Perulangan Pascal :
1. User crt;
i=*
var
a, b : integer;
begin
for a:=1 to i do
begin
for b:=1 to a do
write (a);
writeln;
end;
end.
2. User crt;
i=*
var
a, b : integer;
begin
for a:=i downto 1 do
begin
for b:=a downto 1 do
write (a);
writeln;
end;
end.
3. User crt;
var
x, y, z:integer;
begin
clrscr;
writeln ('------------');
writeln ('program bingtang');
writeln ('------------');
writeln ('masukan tinggi :');
for y:=1 to x do
begin
for z:=1 to x-y do
begin
write ('------------');
end;
for z :=1 to y do
begin
write ('*');
end;
writeln ();
readln ();
end.
4. Uses crt;
var
i, j : integer;
begin
i:=1;
j:=1;
while i<=5 do
begin
j:=1;
while j<=i do
begin
write ('*')
j:=j+1
end;
i=i+1
writeln;
end;
end.
5. Uses crt;
Var
i,j : integer;
Begin
For i := 1 to 5 do
Begin For j := 1 to i do
Write(i);
Writeln;
End;
End.
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar