Perulangan Pada Turbo Pascal
1. for to do
contoh programnya
program for_to_do;
uses wincrt;
var c : integer;
begin
writeln ('program perulangan dengan for to do');
for c := 1 to 10 do
writeln (c);
end.
hasilnya:
2. while do
contoh programnya
program while_do;
uses wincrt;
var i : integer;
begin
writeln ('program perulangan dengan while');
i := 1;
while i <= 10 do
begin
writeln (i);
i := i + 1;
end;
end.
hasilnya:
3. repeat until
contoh programnya
program repeat_until;
uses wincrt;
var x, y : integer;
begin
writeln ('program perulangan dengan repeat until');
x:=1;
repeat
writeln (x);
x:=x+1;
until x > 10;
end.
hasilnya:
Demikian sekilas contoh perulangan pada pascal...
terima kasih ya udah mampir...
jangan lupa komennya ya...
1. for to do
contoh programnya
program for_to_do;
uses wincrt;
var c : integer;
begin
writeln ('program perulangan dengan for to do');
for c := 1 to 10 do
writeln (c);
end.
hasilnya:
2. while do
contoh programnya
program while_do;
uses wincrt;
var i : integer;
begin
writeln ('program perulangan dengan while');
i := 1;
while i <= 10 do
begin
writeln (i);
i := i + 1;
end;
end.
hasilnya:
3. repeat until
contoh programnya
program repeat_until;
uses wincrt;
var x, y : integer;
begin
writeln ('program perulangan dengan repeat until');
x:=1;
repeat
writeln (x);
x:=x+1;
until x > 10;
end.
hasilnya:
Demikian sekilas contoh perulangan pada pascal...
terima kasih ya udah mampir...
jangan lupa komennya ya...
Comments
Post a Comment