Contoh Program Bilangan Deret Menggunakan FOR BERSARANG Pada Turbo Pascal

By On Thursday, April 2nd, 2015 Categories : Artikel

Berikut ini adalah beberapa buah contoh program bilangan urut yang menggunakan for pada turbo pascal. Program ini menggunakan bentuk for bersarang atau for dalam for. Pada setiap contohnya akan menghasilkan pola output yang berbeda dan kita bisa menetukan berapa batas atau banyak deretnya.

1. Contoh pertama
Pada contoh ini akan menghasilkan output seperti berikut jika nilai batasnya kita isikan 5:
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 fordalamfor1;
var
baris, kolom, batas : integer;
begin
write(‘masukan batas: ‘);readln(batas);
writeln;
for baris := 1 to batas do
begin
for kolom := 1 to batas do
write (baris : 2);
writeln;
end;
readln;
end.

2. Contoh kedua
Pada contoh ini akan menghasilkan output seperti berikut jika nilai batasnya kita isikan 5:
1
2 2
3 3 3
4 4 4 4
5 5 5 5 5

Kode Program:
program fordalamfor2;
var
baris, kolom, batas : integer;
begin
write(‘masukan batas: ‘);readln(batas);
for baris := 1 to batas do
begin
for kolom := 1 to baris do
write (baris : 2);
writeln;
end;
readln;
end.

3. Contoh ketiga
Pada contoh ini akan menghasilkan output seperti berikut jika nilai batasnya kita isikan 5:
1 1 1 1 1
2 2 2 2
3 3 3
4 4
5

Kode Program:
program fordalamfor3;
var
baris, kolom, batas : integer;

begin
write(‘masukan batas: ‘);readln(batas);
for baris := 1 to batas do
begin
for kolom := baris to batas do
write (baris : 2);
writeln;
end;
readln;
end.

Fifty Shades of Grey (Fifty Shades, #1), Unwanted Advances: Sexual Paranoia Comes to Campus, High heels and homicide, Proper Healthy Food: Hearty vegan and vegetarian recipes for meat lovers, Bright Side (Bright Side, #1), 31 Miles: Can we ever win against ourselves?, La ballata di Iza, Him (Him #1), The Negotiator, None So Blind, Small Great Things, Unearthing Cole (Discovering Me, #1), Reclaiming Hope: Lessons Learned in the Obama White House about the Future of Faith in America, Case Histories (Jackson Brodie #1), Hell & High Water (THIRDS, #1), Room on the Broom, The Senator (Blake Jordan #1), The Chemistry of Death (Joe Tesla, #3), Before I Ever Met You, Enemy Pie