Contoh Program Bilangan Deret Menggunakan FOR BERSARANG Pada Turbo Pascal

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

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.

Advertisement (Dibawah ini adalah Iklan)
loading...

Married to the Bad Boy Young Adult Bad Boy Romance.audio

Sostiene Pereira.pdf

The Circle.books

Reached Matched.books

The Fan Man.audio

The Bride Lairds Fianc es.ePub

Discourse on Method and Meditations on First Philosophy.books

It Had to Be You Chicago Stars.rtf

I ll Give You the Sun.pdf

Abhorsen Abhorsen.amz

When Christ and His Saints Slept Henry II amp Eleanor of Aquitaine.lit

Haunted.kindle

Fe Fi FOE Comes.rtf

Creatura Creatura.pdf

Damaged Goods Things You Must Know About Healing From Abuse.amz

The Millennium Trilogy Millennium Trilogy.lit

His Black Wings.kindle

The Wide Game Harmony Indiana.kindle

Selling Scarlett Love Inc.docx

Silence of the Wolves Call of the Wilderness.audio

Top eBooks · IBDB