Berikut ini adalah contoh program animasi ( Tulisan bergerak ) di Turbo Pascal Windows 1.5, yang di buat dan diberikan oleh dosen KaMi tercinta Bpk. Tony Suryadi, S.Kom.

Silahkan teman-teman simak programnya, seperti berikut :

Start Program___________________________________________

Uses wintypes,winprocs,wincrt;

var
a : integer;

Procedure
Delay (msec : integer);

var
time : longint;
msg : tmsg;

(more…)

Untuk 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

Ah.. 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;

(more…)

Terus terang, saya bukan penggemar teori, tapi ada pepatah dalam pemrograman bahwa “jika praktek tanpa teori, maka program tersebut tidak akan terstruktur dengan baik”, jadi mau tidak mau dalam mengusai suatu bahasa pemrograman kita harus mengenal dan tahu tentang teori dari bahasa pemrograman itu sendiri agar mempermudah kita pada pengerjaan dan pengembangannya.

Pascal merupakan bahasa pemrograman tempo dulu, mungkin teman-teman lebih paham dengan definisi pascal itu sendiri, dan silahkan cari di search engine internet, akan sangat banyak ditemukan teori-teori dan contoh-contoh program pascal.

Disini saya hanya akan me-review dan menguraikan sedikit pemahaman saya terhadap materi kuliah Pascal, dikarenakan ketika minggu kemarin ( saya kurang enak badan dan “ngantuk berat” ) saat perkulihan materi pascal tersebut, saya sempat mengutip sedikit pertanyaan teman-teman saya kepada dosen (Bpk Wawang S.Kom ) seputar kesulitan dan kurang pemahaman terhadap materi pascal itu sendiri.

Sekali lagi, pada tulisan kali ini saya mencoba untuk membantu menguraikan dan me-review permasalahan tersebut dan semoga menjadi manfaat bagi teman-teman yang masih kurang paham. Paling tidak, saya bisa menyimpan koleksi ilmu pengetahuan disini, jika suatu saat saya lupa maka akan mudah untuk menemukannya kembali :p.

Struktur Bahasa PASCAL secara umum, adalah sebagai berikut :

1. Bagian Judul Program

2. Bagian Deklarasi :

a. Deklarasi tipe data (TYPE)

b. Deklarasi variabel (VAR)

c. Deklarasi konstanta (CONST)

d. Deklarasi label (LABEL)

e. Deklarasi sub-program (PROCEDURE dan FUNCTION)

3. Bagian Deskripsi (Bagian Program Utama Perintah-perintah).

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 ).
(more…)

Tulisan ini saya salin ulang dari blog saya beberapa hari yang lalu, dari pada blom ada tulisan di Webnya Kampus KaMi ini ya… pindahin kan ga da salahnya :).

Tulisan ini saya buat bukan dalam konteks menggurui atau sok pinter bikin program., itung-itung perpustakaan pribadi aja, dari pada lupa lebih baik kan disimpen di blog ini buat referensi kalo saya sendiri lupa dikemudian hari :).

Tapi suer, ada ceritanya dikit :p, ceritanya gini.. Minggu kemarennya temen gue bilang “poeja” kalo di kampus ada tugas quiz bikin contoh program pascal pake statement If..Then dan Case..Of, waduh.. pas kebetulan saya ga masuk lagi hari itu ( gi sibuk beresin proyek bikin website MLM :p).
Nah.. dari pada BeTe ga ikutan quiz, saya ajak poeja untuk Fastabiqul Khoirot, adu bikin contoh program pake pascal dengan statement If..Then dan Case..Of, kasus di bikin sama berdua, ga susah-susah amat seeh (amatiran alias klasik :p), bikin slip gaji dengan ketentuan gaji berdasarkan golongan yang ditetapkan dan ditentukan oleh status perkawinan untuk menghitung tunjangan anak dan istri, dimana jika mempunyai istri diberikan tunjangan sebesar 5%, dan anak mendapat tunjangan 2% untuk tiap anak, dan tunjangan anak dibatasi sampai 3 anak, jika anak lebih dari 3 maka hanya 3 anak yang mendapatkan tunjangan. Selainnya gaji di potong pajak, besar pajak ditentukan berdasarkan golongan yang di tetapkan, pada akhirnya gaji harus di total setelah dijumlahkan kemudian di potong pajak, dan ga lupa harus dibikinkan algoritma nya.

Hueheuheuehu… sehari ama poeja berantem beda rumah, dia ngerjain di rumahnya dan saya ngerjain di rumah saya juga tentunya :), hari esok pun tiba.. karena janjinya cuman sehari ya… beres juga kerjaan saya.
tapi emang si poeja tuh sontoloyo… dia kagak ngerjain!!! kampreeeeeett… hhuahauhuahuahua, alesannya monitor lah anulah.. anulah.. ember banged tuh orang (hihihihi.. biar sewot orangnya baca ini).

nah.. dari pada bEtE kan.. mendingan diposting aja disini, sekalian di taro takut nanti lupa :). padahal kan ga susah-susah amat permasalahan yang di buat sama temenku itu, ni kek gini neehh…

Program Gaji_Tunjangan_dan_Pajak;

{Menghitung jumlah gaji berdasarkan golongan, tunjangan anak dan istri, total gaji setelah pajak}

Uses wincrt;

var

nama,jab : string[20];

noin : string[10];

golgaj : char;

stmerit, jmlanak : integer;

gaj,tjbini,tjanak,pajgaj,jmlpajgaj,jmltjgaj,tolgaj,tolgajstpaj : real;

Begin

clrscr;

Writeln (’=============================================’);

Writeln (’PERHITUNGAN GAJI DAN TUNJANGAN DAN PAJAK GAJI’);

Writeln (’=============================================’);

Writeln;

Writeln (’Isikan Data anda sesuai ketentuan berikut ini : ‘);

Writeln (’———————————————– ‘);

Writeln;

Writeln (’Golongan Gaji : Status Perkawinan : ‘);

Writeln (’a. Rp. 2.000.000.00 1. Kawin ‘);

Writeln (’b. Rp. 2.500.000.00 2. Belum kawin’);

Writeln (’c. Rp. 3.000.000.00 3. Cerai ‘);

Writeln;
(more…)