Contoh Program Bilangan Deret Menggunakan FOR BERSARANG Pada Turbo Pascal

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

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.

Somebody Else's Sky (Something in the Way, #2), Is This Love... (BWWM Romance Book 1), The Story of My Life: An Afghan Girl on the Other Side of the Sky, The Middle Child, When Breath Becomes Air, Politics For Evangelicals, Dogwood Hill (Chesapeake Shores, #12), Pieces (Patchwork, #1), The Hearts of Horses, Foreign Aid: Will It Ever Reach Its Sunset?, The Rithmatist (The Rithmatist, #1), Emily Shadowhunter: Book 1: VAMPIRE KILLER, Things Fall Apart (The African Trilogy, #1), SQL: The Ultimate Guide From Beginner To Expert - Learn And Master SQL In No Time! (2016 Edition), Middle School: Escape to Australia (Middle School, #9), Vampire Killer (Emily Shadowhunter #1), 1984, The Dispatcher, Recycling Day, The Nanny Arrangement (Country Blues, #2)