Mei
19
19
Latihan pengulangan dengan nested loop
19 Mei, 2008 by the.forthUntuk latihan pengulangan, mungkin yang lumayan merepotkan kalau sudah nested (bersarang) ya. Coba aja, buat yang awal-awal belajar buat tampilan seperti berikut ini dengan nested loop :
Pertama :
11111
11111
11111
11111
11111
Kedua :
11111
22222
33333
44444
55555
ketiga :
12345
12345
12345
12345
12345
keempat :
54321
54321
54321
54321
54321
Ok, itu dulu…nanti lanjut lagi
Tags: Materi Kuliah, Pascal, turbo pascal windows
Mei 19th, 2008 at 22:41
salam, mas - mas semua, saya mao coba jawab, kali aja jawaban saya bener
dan kalo salah mohon koreksinya dari mas - mas senior…
untuk yang pertama :
Uses WinCrt;
var x,a:integer;
Begin
for x:= 1 to 5 do
begin
a:=11111;
writeln(a);
end;
end.
untuk yang kedua :
uses wincrt;
var a:real;
begin
a:=11111;
while a < = 55555 do
begin
writeln(a:0:0);
a:=a+11111;
end;
end.
untuk yang ketiga :
Uses WinCrt;
var x,a:integer;
Begin
for x:= 1 to 5 do
begin
a:=12345;
writeln(a);
end;
end.
untuk yang keempat :
Uses WinCrt;
var x:byte;
a:real;
Begin
for x:= 1 to 5 do
begin
a:=54321;
writeln(a:0:0);
end;
end.
sekali lagi mohon koreksi kalo ada yang masih kurang, maklum newbie…
thx
Mei 19th, 2008 at 22:43
Maaf, saya pindahkan comment ke sini.
# the.forth Says:
Mei 19th, 2008 at 22:31 e
Jawaban kreatif. Bisa seperti ini, tapi sebenernya yang saya maksud pengerjaannya menggunakan nested loop, kalo yang dijawaban mas Poeja kan 1 loop saja.
Mei 19th, 2008 at 22:43
# the.forth Says:
Mei 19th, 2008 at 22:34 e
Sorry, sebagai tambahan supaya lebih jelas, yang boleh menjadi parameter di perintah write atau writeln hanya variabel yang menjadi iterator/counter loop atau tidak menggunakan parameter.
Mei 19th, 2008 at 22:50
Usaha yang bagus kang poeja
btw, saya akan coba ikutan jawab pake nested loop “For”, itung-itung bayar utang yang salah judul tea hehehe…
Kalo ada yang salah plis ralat ya.
Jawaban Pertama : —————————————–
var
x,y,z : byte;
Begin
z := 1;
For x := 1 To 5 Do
Begin
For y := 1 To 5 Do
write (z:2);
writeln;
End;
End.
Kalo pake input :
var
x,y,z : byte;
i : integer;
Begin
write (’Masukkan nilai : ‘);readln(i);
z := 1;
For x := 1 To i Do
Begin
For y := 1 To i Do
write (z:2);
writeln;
End;
End.
Jawaban Kedua : —————————————–
var
x,y : byte;
Begin
For x := 1 To 5 Do
Begin
For y := 1 To 5 Do
write (x:2);
writeln;
End;
End.
Kalo pake input :
var
i,x,y : byte;
Begin
write (’Masukkan nilai : ‘);readln(i);
For x := 1 To i Do
Begin
For y := 1 To i Do
write (x:3);
writeln;
End;
End.
Jawaban Ketiga : —————————————–
var
x,y : byte;
Begin
For x := 1 To 5 Do
Begin
For y := 1 To 5 Do
write (y:2);
writeln;
End;
End.
kalo pake input :
var
i,x,y : byte;
Begin
write (’Masukkan nilai : ‘);readln(i);
For x := 1 To i Do
Begin
For y := 1 To i Do
write (y:3);
writeln;
End;
End.
Jawaban Keempat : —————————————–
var
x,y : byte;
Begin
For x := 1 To 5 Do
Begin
For y := 5 DownTo 1 Do
write (y:2);
writeln;
End;
End.
kalo pake input :
var
i,x,y : byte;
Begin
write (’Masukkan nilai : ‘);readln(i);
For x := 1 To i Do
Begin
For y := i DownTo 1 Do
write (y:3);
writeln;
End;
End.
Begono jawaban dari saya
Mei 19th, 2008 at 23:03
@ mas the.forth
maaf mas saya kasi jawaban seperti itu karena saya masih ora mudeng dengan arti kata “Nested” 
jadi mohon maaf maklum cupu… 
sekarang saya baru mengerti apa itu Nested … 
Mei 20th, 2008 at 12:41
ok, soal-soal diatas kayaknya sudah bisa dijawab oleh mas w1r0. Latihan berikutnya, coba deh :
Pertama :
1
11
111
1111
11111
Kedua :
1
22
333
4444
55555
Ketiga:
1
12
123
1234
12345
Keempat:
1
23
345
4567
56789
Kelima :
5
54
543
5432
54321
Mei 20th, 2008 at 16:48
aseeekkk bener euuyyy
brb.. nunggu yang laen duluan lagi ah…
Mei 20th, 2008 at 16:52
wadooohh……
kalo untuk soal seperti ini mah, 
hehe… lieur saya… 
lama bener keknya saya bisa ngerjain ini.. he.. he.. 
Mei 20th, 2008 at 19:27
yaa..h belom ada yang jawab neh, pada kemana yak!
Saya akan coba jawab aja deh sebisanya, plis ralat ya kalo salah
Jawaban Pertama : —————————————–
var
x,y,z : byte;
Begin
x := 1;
for y := 1 to 5 do
begin
for z := 1 to y do
write (x);
writeln;
end;
readln;
End.
Kalo pake input :
var
x,y,z,i : byte;
Begin
write(’Masukkan nilai data : ‘); readln(i);
x := 1;
for y := 1 to i do
begin
for z := 1 to y do
write (x);
writeln;
end;
readln;
End.
Jawaban Kedua : —————————————–
var
x,y : byte;
Begin
for x := 1 to 5 do
begin
for y := 1 to x do
write (x);
writeln;
end;
readln;
End.
Kalo pake input :
var
x,y,z : byte;
Begin
write(’Masukkan nilai data : ‘); readln(x);
for y := 1 to x do
begin
for z := 1 to y do
write (y);
writeln;
end;
readln;
End.
Jawaban Ketiga : —————————————–
var
x,y : byte;
Begin
for x := 1 to 5 do
begin
for y := 1 to x do
write (y);
writeln;
end;
readln;
End.
Kalo pake input :
var
x,y,z : byte;
Begin
write(’Masukkan nilai data : ‘); readln(x);
for y := 1 to x do
begin
for z := 1 to y do
write (z);
writeln;
end;
readln;
End.
Jawaban Keempat : —————————————–
Bolos
Jawaban Kelima : —————————————–
var
x,y : byte;
Begin
for x := 5 downto 1 do
begin
for y := 5 downto x do
write (y);
writeln;
end;
readln;
End.
Kalo pake input :
var
x,y,z : byte;
Begin
write(’Masukkan nilai data : ‘); readln(x);
for y := x downto 1 do
begin
for z := x downto y do
write (z);
writeln;
end;
readln;
End.
Begono mas jawaban saya
Mei 20th, 2008 at 19:31
wooow keren om, tapi kok ada bolosnya…
kek sekolah aja … 
thx atas jawabannya saya jadi ada pencerahan.. makasi.. makasi.. 
Mei 20th, 2008 at 19:35
bukan pencerahan atuh!!! tapi contekan!!!
ya iyalah… Cumi !!!
Mei 20th, 2008 at 19:36
wakakkaa, maksudnya c begonooo, tapi bahasanya ini biar gak terlelu jujur gitooo…. he.. he…
Mei 20th, 2008 at 22:27
wadoooo …. kok belom ada jawaban juga buat soal yang nomor empat,
mana ude malem, padahal gw nunggu jawaban buat ntar evaluasi di rumah….
jawab dong please…..
Mei 21st, 2008 at 09:47
dikasih petunjuk ya buat no 4 :
1. Pengulangan jumlah baris terjadi 5x
2. Angka diawal baris selalu merupakan no baris
3. Disetiap baris terjadi pengulangan sebanyak no baris
4. Pengulangan di setiap baris adalah angka di awal baris ditambah dengan …….
Ok, coba ya ! , orang barat bilang “think out of the box”, jangan terjebak sama soal2 sebelumnya
Mei 21st, 2008 at 22:12
Jawaban Keempat : —————————————–
var
y : byte;
begin
for y := 1 to 5 do
begin
write (y);
if y > 1 then
write (y+1);
if y > 2 then
write (y+2);
if y > 3 then
write (y+3);
if y > 4 then
write (y+4);
writeln;
end;
readln;
End.
Kalo pake input :
var
x,y : byte;
begin
write(’Masukkan nilai data : ‘); readln(x);
for y := 1 to x do
begin
write (y);
if y > 1 then
write (y+1);
if y > 2 then
write (y+2);
if y > 3 then
write (y+3);
if y > 4 then
write (y+4);
writeln;
end;
readln;
End.
hihihi…
Au ah gelap.
Mei 22nd, 2008 at 10:18
Ya, buat mengurangi stress, ini jawaban no 4 :
var
i,j : byte
begin
for i:=1 to 5 do begin
for j:=1 to i do begin
write(i + j - 1);
end;
writeln;
end;
end.
Mei 22nd, 2008 at 10:22
Ok, masih ada soal lagi yang lain. Kalo tertarik boleh coba yang ini :
Pernah denger yang namanya deret fibonacci ? Bentuknya kurang lebih seperti ini :
1, 1, 2, 3, 5, 8, 13, 21, 34, …..dst. Nah coba buat program yang menerima input dari user, misalnya : user ingin menampilkan 5 bilangan pertama dari deret fibonacci, hasilnya adalah :
1,1,2,3,5.
Nggak perlu mikirin nampilin tanda koma nya, pisah pake spasi juga nggak masalah.
“Jangan dijadikan bahan stress, buat latihan aja.”
Mei 22nd, 2008 at 18:26
Quote :
Ya, buat mengurangi stress, ini jawaban no 4 :
——————————————–
Mei 22nd, 2008 at 20:02
BRB jawab ah.. kali aja bener….
var
a,b,c,x,n: integer;
begin
clrscr;
writeln (’Program Suku deret Fibonacci’);
writeln (’============================’);
writeln;
a := 1;
b := 1;
write(’Masukkan Suku keberapa : ‘);readln(n);
writeln;
write(a, ‘,’, b, ‘,’);
for x := 1 to n do
begin
c := a + b;
write(c, ‘,’);
a := b;
b := c;
end;
readln;
end.
ralat ya….
Mei 22nd, 2008 at 20:33
Mei 22nd, 2008 at 20:55
Mei 29th, 2008 at 20:47
@ the.forth
mas kok ngak nongol lagi, jadi ngak rame nih, muncul lagi dong please biar kita bisa berdiskusi lagi kek kemaren kan asik…
Juni 1st, 2008 at 05:59
e,mang asik ya setelah lihat materi pascal yang di bikin soal jawab antara inittal w&p , ini haya sekear respon aja , sayang sarana internetkoe error.lain alasan heeh?
Juni 4th, 2008 at 20:52
ini hal menyangkut mata kuliah pancasila ada ni unek darikoe pada bahasan yang lalu dikatakan kenapa disaat budaya budaya itu muncul dari berbagai arah dan budaya islam terintimidasi dan itu dulu dan untuk menyikapi masa lau dan sekarang
apalagi terjadi bentrokan islam itu sendiri seperti yag barubaru ini dimedia terjadi mungkin lagi liat tu beritanya dan itu sesuaikah samakah pelaksanaanya kah gimanakah sebab dah jelas nilai nilai pancasila itu ada dan harus di laksanakan terutama sila ke satu dan UUD 45 alinea ke 1 ,.? sok lah kasih pend deu’i silahkan respon ya karasep gareulis