Berikut ini adalah beberapa buah contoh program bilangan urut yang menggunakan while-do pada turbo pascal. Program ini menggunakan bentuk while bersarang atau while dalam while. Dan pada setiap contohnya akan menghasilkan pola output yang berbeda.
1. Contoh pertama
Pada contoh ini akan menghasilkan output seperti berikut:
1 1 1 1 1
2 2 2 2 2
3 3 3 3 3
4 4 4 4 4
5 5 5 5 5
Kode Program:
program whiledalamwhile1;
var
a, b : integer;
begin
a:= 1;
while a <= 5 do
begin
b:= 1;
while b <= 5 do
begin
write (a : 2);
b:= b + 1;
end;
writeln;
a:= a + 1
end;
readln;
end.
Hasil Program:
Hasil Program:
2. Contoh kedua
Pada contoh ini akan menghasilkan output seperti berikut:
1
2 2
3 3 3
4 4 4 4
5 5 5 5 5
Kode Program:
program whiledalamwhile2;
var
a, b : integer;
begin
a:= 1;
while a <= 5 do
begin
b:= 1;
while b <= a do
begin
write (a : 2);
b:= b + 1;
end;
writeln;
a:= a + 1
end;
readln;
end.
Hasil Program:
3. Contoh ketiga
Pada contoh ini akan menghasilkan output seperti berikut:
5 5 5 5 5
4 4 4 4
3 3 3
2 2
1
Kode Program:
program whiledalamwhile3;
var
a, b : integer;
begin
a:= 5;
while a >= 1 do
begin
b:= 1;
while b <= a do
begin
write (a : 2);
b:= b + 1;
end;
writeln;
a:= a - 1
end;
readln;
end.
Hasil Program:
Comments
Post a Comment