Contoh-Contoh Penggunaan Perulangan For..Do.. pada Pascal

Hai teman-teman, jangan lupa follow saya di Tiktok ya...


@wira.loksado
Terakhir diupdate pada 10/02/2020 oleh Wira Loksado
26

Berikut ini adalah sebagian contoh perulangan dengan penerapan statemen For.. Do..


Script:

Uses Wincrt;
const
akhir = 4;
var
baris,kolom : integer;
begin
for baris := akhir downto 1 do
begin
for kolom := baris downto 1 do
write(kolom);
writeln;
end;
end.

Hasil :

4321
321
21
1

Script:
Uses Wincrt;

const
akhir = 4;
var
baris,kolom : integer;
begin
for baris := akhir downto 1 do
begin
for kolom := 1 to baris do
write(kolom);
writeln;
end;
end.

Hasil:

1234
123
12
1

Script:

Uses Wincrt;
const
akhir = 4;
var
baris,kolom : integer;
begin
for baris := 1 to akhir do
begin
for kolom := 1 to baris do
write(baris);
writeln;
end;
end.

Hasil:

1
22
333
4444

Script:

Uses Wincrt;
const
akhir = 4;
var
baris,kolom : integer;
begin
for baris := akhir downto 1 do
begin
for kolom := baris downto 1 do
write(baris);
writeln;
end;
end.

Hasil:

4444
333
22
1

Script:

Uses Wincrt;
const
akhir = 3;
var
baris,kolom : integer;
begin
for baris := akhir downto 1 do
begin
for kolom := baris downto 1 do
write(baris,'  ',kolom);
writeln;
end;
end.

Hasil:
3 33 23 1
2 22 1
1 1

Script:

Uses wincrt;
var baris,kolom,jumbaris :integer;
begin
write ('Jumlah Baris  : ');readln(jumbaris);
FOR BARIS:=1 TO jumbaris do
begin
write ('*': jumbaris baris);
FOR kolom := 2 TO  (2 *baris -1 ) do
begin
write('*');
end;
writeln;
end;
end.

Hasil :

(baris = 4)
*
***
*****
*******

DMCA.com Protection Status
Artikel ini dilidungi oleh DMCA Takedown Services & Website Content Protection. Dilarang Copy-Paste.
Yang mau ngajakin ngopi silahkan klik
DONASI


Hai teman-teman, jangan lupa subscribe Channel Youtube saya.
Subscribe tidak dipungut bayaran, mari dukung saya dengan klik tombol subscribe.



Like Facebook Wira Loksado dengan menekan tombol "Suka" di bawah ini agar tetap update informasi terbaru:

Mari Berdiskusi

noval rizqillah

noval rizqillah

kk saya mau belajar dari dasar .

minta huruf yg dasar’a dr A~Z & dr 0~9 ya .

plisss .

krmin k email aq ya .

Balas

admin

admin

Paling sederhana ya gini :

program perulangan;
Uses
WinCRT;
var
i : integer;
begin
for i := 0 to 9 do
writeln (i);
end.

Balas

huse

huse

kl hasilnya gini:

1
212
32123
4321234

bgaimana rumusnya????

Balas

huse

huse

yg diatas td bentuknya segitiga sama kaki

Balas

andre

andre

mungkin gini :
0
1
2
3
4
5
6
7
8
9
gimana boz..

Balas

ryo

ryo

klo bisa begini caranya gimna bos !
masukan program pengulangan : ryosaputra
r
ry
ryo
ryos
ryosa
ryosap
ryosapu
ryosaput
ryosaputr
ryosaputra

Balas

ricky kristian

ricky kristian

tolong ajarin program utk buat

jika di inputkan N=5

*** *
* *
*****
* *
* ***

dan program jika diinputkan 5

*
*
* *
* * *
* * *
* * *
* *
*
*

please….

Balas

Rahmat Hidayat

Rahmat Hidayat

Thanks ya iLmunya!

Balas

nadia indah sari

nadia indah sari

kalo
6
56
456
3456
23456
123456
gmn

Balas

Jamal

Jamal

contoh ke dua tdi tpi dengan perulangan repeat until gmn ya gan?? di email bisa ngk??

Balas

MGHerring Group

MGHerring Group

… [Trackback]

[…] Find More here|Find More|Read More Informations here|There you will find 29256 additional Informations|Informations to that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

wazeeft.com

wazeeft.com

… [Trackback]

[…] Read More here|Read More|Read More Informations here|There you can find 23347 additional Informations|Informations to that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

DMPK

DMPK

… [Trackback]

[…] Find More here|Find More|Read More Informations here|There you will find 47262 additional Informations|Infos to that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

choker necklace

choker necklace

… [Trackback]

[…] Read More here|Read More|Find More Informations here|There you can find 34549 additional Informations|Infos to that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

wiet

wiet

… [Trackback]

[…] Find More here|Find More|Find More Informations here|Here you can find 1147 additional Informations|Infos to that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

Situs Judi Bola

Situs Judi Bola

… [Trackback]

[…] Find More here|Find More|Read More Infos here|There you will find 74049 more Infos|Informations on that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

judi online

judi online

… [Trackback]

[…] Find More on|Find More|Read More Informations here|Here you can find 36177 more Informations|Informations to that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

get italian citizenship

get italian citizenship

… [Trackback]

[…] Read More here|Read More|Read More Infos here|There you will find 83437 additional Infos|Infos on that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

bra att läsa

bra att läsa

… [Trackback]

[…] Find More here|Find More|Read More Informations here|Here you can find 62054 more Informations|Infos on that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

Aws Alkhazraji the best Engineer X

Aws Alkhazraji the best Engineer X

… [Trackback]

[…] Find More here|Find More|Read More Informations here|Here you will find 16009 additional Informations|Informations to that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

engineering uodiyala

engineering uodiyala

… [Trackback]

[…] Find More on|Find More|Read More Informations here|There you can find 40834 additional Informations|Infos to that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

cara membuat aplikasi android

cara membuat aplikasi android

… [Trackback]

[…] Read More on|Read More|Read More Informations here|Here you can find 77136 more Informations|Infos on that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

ATV Tours Las Vegas

ATV Tours Las Vegas

… [Trackback]

[…] Find More here|Find More|Find More Informations here|There you can find 79981 more Informations|Informations on that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

goedkoopste persoonlijke lening

goedkoopste persoonlijke lening

… [Trackback]

[…] Find More here|Find More|Find More Informations here|There you can find 24006 additional Informations|Infos to that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas

avvocato

avvocato

… [Trackback]

[…] Find More here|Find More|Read More Informations here|Here you will find 3699 additional Informations|Infos to that Topic: blog.loksado.com/pascal-contoh-contoh-penggunaan-perulangan-for-do […]

Balas