13
Perulangan “For” di TPW 1.5
13 Mei, 2008 by w1r0Ah.. nyambung tulisan lagi nih 
( btw.. yang laen pada kemana neh lom pada nulis :-” Ape dech!.. )
Tulisan ini terinspirasi saat dapet mata kuliah pascal kemaren hari minggu, meski badan kurang sehat dan ngantuk berat.. telinga sama otak tetep aja bekerja, puciiing :p.
Saat dapet materi kuliah Looping alias pengulangan menggunakan “For” pada TPW 1.5 yang disampaikan dosen kita Bapak Wawang, S.Kom, ada baiknya kita diskusi atau belajar lebih jauh untuk lebih memahami apa yang disampaikan oleh beliau. Tadi pagi saya mencoba latihan program pascal sesuai yang telah diterangkan (Perulangan pake For).
Nah… latihan program yang sudah saya buat berikut mudah-mudahan temen-temen bisa merespon atau memberi masukan, jika terdapat kesalahan dan kekurangan tentunya.
Perlu dicatat dan diingat “Bahwa kita tidak keluar dari apa yang sudah disampaikan oleh dosen pascal kita ya :).. jangan ngeduluin bisi kawalat! ya ga :)”
Coba deh.. latihan program ini di komputer temen-temen ya… trus di antara kedua program yang dibuat ini apakah terjadi persamaan dan perbedaan. Saya tunggu respon dan tanggapannya lewat email juga gapapa kok or nanti ketemu di kelas juga ora opo-opo :p.
_______________________Start-> Latihan Program ke 1 :
Program Latihan_Nested_For(by_w1r0);
Uses wincrt;
var
a,b,c,d,e,f : integer;
Begin
clrscr;
For a:= 1 To 5 Do
b := 11;
c := 111;
d := 111;
e := 1111;
f := 1;
Begin
writeln (c:29,c:14);
writeln (b:12,b:11,f:3,b:3,b:4,b:3,b:5,b:3);
writeln (b:13,f:4,b:5,b:7,c:5,f:3,b:4,b:3);
writeln (b:14,c:4,b:3,b:8,b:4,b:8,b:3);
writeln (b:16,b:4,e:10,b:3,c:10);
writeln;
End;
Begin
writeln (’ Exercise Programs by, w1r0′);
end;
End.
________________________________End-> Latihan Program ke 1 :
________________________________Start-> Latihan Program ke 2 :
Program Latihan_Nested_For(by_w1r0);
Uses wincrt;
var
a,b,c,d,e,f : integer;
Begin
clrscr;
For a:= 1 To 5 Do
Begin
b := 11;
c := 111;
d := 111;
e := 1111;
f := 1;
writeln (c:29,c:14);
writeln (b:12,b:11,f:3,b:3,b:4,b:3,b:5,b:3);
writeln (b:13,f:4,b:5,b:7,c:5,f:3,b:4,b:3);
writeln (b:14,c:4,b:3,b:8,b:4,b:8,b:3);
writeln (b:16,b:4,e:10,b:3,c:10);
writeln;
End;
Begin
writeln (’ Exercise Programs by, w1r0′);
end;
End.
________________________________End-> Latihan Program ke 2 :
nah.. semoga bermanfaat
nanti kita diskusikan ya… ( amiin )
Tags: Materi Kuliah, Pascal, turbo pascal windows
Mei 17th, 2008 at 23:07
Cuma komen nih , yang namanya nested loop itu bukannya ada for di dalam for ya, misalnya : Kalo mau buat bentuk seperti :
*
**
***
****
*****
jadi
for i:=1 to 5 do begin
for j:=1 to i do begin
write(’*');
end;
writeln;
end
Mei 18th, 2008 at 13:42
Ah.. iya, disini saya salah kasih judul, segera akan saya rubah.
Thanks atas ralatnya mas :). Padahal di blog saya sendiri tulisan ini ga pake “Nested”, maklum mas.. ketika saya ingin mengajak yang lainnya untuk maju dan berdiskusi, belum satupun dari temen-temen di kelasku yang merespon. Padahal saya bikin contoh program tersebut tujuannya hanya untuk pembelajaran dan bahan diskusi dengan teman2 di kelas.
Dan terima kasih untuk mas yang telah memberikan link ke salah satu web untuk belajar pascal, hanya saja saya tidak tampilkan dikarenakan tujuan awal dari di online-kannya Blog ini hanya untuk sharing dan sarana diskusi KaMi untuk memecahkan dan mengembangkan masalah yang telah disampaikan oleh dosen di perkuliahan. Agar lebih jelas, silahkan mas baca posting saya khususnya di “Panduan Dasar TPW 1.5, pada paragraf kedua, disitu saya tulis bahwa banyak sekali link dan referensi belajar pemrograman pascal, jadi.. hal tersebut saya kembalikan ke teman-teman untuk bereksplorasi dan belajar lebih jauh. Satu lagi, silahkan mas baca juga agar diketahui bahwa telah saya tuliskan “Saya tidak akan me-review teori maupun praktek contoh-contoh program pascal yang materi tersebut belum disampaikan oleh dosen kita tercinta ( Bpk Wawang S.Kom )”.
Polemik memang mas.. ketika kita sudah online begini konsekwensinya adalah global, tapi ketika kita dihadapkan pada satu dilema, artinya jika saya sok tahu dan mendahului materi dosen di perkuliahan, saya tidak ingin di cap “SOK TAHU” atau “SOK PINTER” (karena memang saya belum bisa), dan saya tidak ingin begitu. jadi.. semoga mas mengerti dan lebih paham.
Thanks mas..
Mei 18th, 2008 at 14:56
Oh, ok. No problem. Bukan mau ikut2an, cuma tertarik aja, tadinya kepingin lihat komunitas IT di Sukabumi (kota kelahiran), ternyata meng-global juga.
Mei 18th, 2008 at 21:26
Suer mas.. saya senang kalo mas mo gabung
Saya tunggu kontribusinya ya mas, paling tidak kan kita perlihatkan bahwa Putra Putri Sukabumi sekarang Bisa! ( hihihi.. kayak motto hari Kebangkitan Nasional aja
)
Mei 24th, 2008 at 23:01
Sori kang ajang.. commentnya saya pindahin ke http://kampuskami.orgfree.com/?p=20#comment-49, karena akang salah menempatkan comment. Terimakasih
Desember 19th, 2008 at 18:58
[...] Baca selengkapnya.. [...]