andrypein.net : Masih dan belum beranjak dari statemen2 dalam pascal, kali ini kita bahas mengenai statemen-statemen pengulangan dalam pascal dan berbagai jenisnya di postingan selanjutnya.
Blok pengulangan merupakan suatu blok program yang memiliki mekanisme untuk melakukan pengeksekusian statemen secara berulang.Hal ini membuat program yang kita tulis menjadi lebih efisien.
sebelumnya mari kita lihat contoh kecil seperti ini
program ulang;
uses wincrt;
begin
writeln('Andry ganteng banget');
writeln('Andry ganteng banget');
writeln('Andry ganteng banget');
writeln('Andry ganteng banget');
writeln('Andry ganteng banget');
end.
Apabila kita coba run maka akan menghasilkan hasil seperti berikut:
Andry ganteng banget Andry ganteng banget Andry ganteng banget Andry ganteng banget Andry ganteng banget
Program akan mencetak teks ‘Andry ganteng banget sebanyak lima kali, dan menuliskan statemen writeln(‘Andry ganteng banget’); sebanyak lima kali pula,bayangkan jika kita dituntut menuliskannya sebanyak 50 atau 100 kali, tentu akan menjadi sesuatu yang sangat membosankan, dan dilihat dari algoritma program merupakan struktur algoritma yang tidak baik, maka bahasa pascal menyediakan alternatif untuk melakukan proses pengulangan.
Pascal memiliki 3 buah konstruksi pengulangan yaitu dengan menggunakan for, while, dan repeat…until.
Seperti biasa, penjelasan mengenai masing2 konstruksi pengulangan ini akan dibahas pada postingan selanjutnya.
Sekian artikel pembahasan Pengulangan dalam Pascal ini, thx and,
bye.
:iloveindo
bagaimana kalo kita ingin mencetak 1 3 5 7 9 11 15 dala pengulangan,,,?
thanks. kaskus.us/images/smilies/s_big_batamerah.gif
itu mah bilangan ganjil
jadi variabel counter nya ditambah 2
mau tnya:
klo untuk mengoutputkan:
1
22
333
4444
caranya bgmn y??
mhon bntuanny.,
trmksh sblumny,,
hayoooo gimanaa hayooo? udah di coba sampai mana usaha koding nya? tar kalo elor bisa di post kan disini :iloveindo
bingung mau nyobanya bagaimana,,.
klo untuk outputkan:
1
2
3
4
itu sja sih bisa,,,
tpi klo output yg :
1
22
333
itu blum bissa,,,.
:bingung
yaudah niih
var
i,j : smallint;
begin
for i:=1 to 3 do
begin
for j:=1 to i do
write(i);
writeln;
end;
end.
:jabat
trmksh byk ya,,,.
sngt mbantu,,.
:duathumb
@ardin
for i := 1 to 3 do
begin
for j := 1 to i do
write('j');
writeln;
end;
om mau tanya klu out pun nya 2 4 6 8 10 12 14 16 18 20
gemana ya
tapi menggunakan pengulangan for ya..
klu while ane uda bisa
mohon bimbingan nya ya om…
i = 0
for x = 2 to 20 do
write(x)
i=i+2