Showing posts with label Pascal. Show all posts
Showing posts with label Pascal. Show all posts

GAME TEMBAK (PASCAL)

Adaikan pascal juga bisa support buat tembak cewe.. hahahha, *mimpi.com* , yasudahlah, tembak-tembakan aja sebisanya di dalam game tembak pascal ini berisi procedure procedure yang setiap procedurenya berisi tombol panah atas, kanan, dan bawah..

halah-halah, si uji kebanyakan basa basi gag jelas, udah lah dowload aja yuk..

GAME TEMBAK.rar

guest:(udah didownload-udah dicoba)
fauzi:tampilanya jelek yah ??
guest: whoooo, iyah jelek masih cupu ji! huft (kecewa)
fauzi:namanya juga lagi tahap belajar.. hehehe.. makanya kasih saran tambahan dah yang bagus emang harus gimana coment tuh di bawah?

GAME TOGEL (PASCAL)

Hai teman-teman.. lama amat nih vakumnya si uji.. gag posting-posting.. hehehe.. ok ok tenang teman, liburan panjang kemarin iseng punya iseng utak diutik dapet nih beberapa program yang lumayan asyik dah di coba. GAME TOGEL!! hehehe.. Fauzi buat karena Request dari pengunjung setia fauzi online nih.. dia namanya kuat, biasa dipanggil kungseng dulu. Nih shout requestnya:


Ana software sing nggo masang togel ora?!
yang kalo dibahasa indonesiain : Ada software yang buat pasang togel gag>!


Ok deh download sajalah kalo begitu. Game Togel Pascal fauzi ini.. monggoo...

GAME TOGEL.rar

ehm ehm.. kalo udah didownload terus dicoba. kasih comentarnya yah teman.. hehe

Konversi BinerToDesimal

Naah.. kalo program yang satu ini mah.. fauzi iseng-iseng aja dah daripada Stress renungin mikirin nasib, hehehe
postingan sebelumnya khan ada tuh soal konversi desimal ke biner, nah kalo yang satu ini konversi dari biner ke desimal.
nah loo.. udah ada gambran blm logikanya kaya apa tuh? hehehe
mohon kritik saran teman-teman yah jika ada logika yang lebih efektif maupun ada kekurangan coding di postingan berikut..
yaah namanya juga belajar. OKAY? CHECK IT OUT... (^_^)

Output Biner To Desimal, kurang lebih sebagai berikut :



Logika / coding : Silahkan teman langsung unduh aja di kantong 4shared fauzi : [BinerToDesimal.rar]

Semoga bermanfaat...
Semangat.. Have Nice Holiday ALL... (^__^)

Kalkulator Sederhana

Tes Akademik untuk Penerimaan Calon Asisten LePKom 2010 (Tgl 13 jully 2010)
soal tes Algoritma Pemrograman (type C),waktu 120 Menit peserta calon aslab LePKom dituntut menyelesaikan sebuah program
yaitu Kalkulator (tambah, kurang, kali, bagi) akumulasi dari bilangan hasil ataupun sebaliknya yaah seperti kalkulator seperti biasa itu Lhoo,Bahasa Pemrograman Menggunakan Bahasa Pascal. Okay Check It Out... (^_^)

Soal di Hide Link http://lepkom.gunadarma.ac.id/calas2010 (khusus pada tanggal 13 Jully 2010)
Output Kalkulator Sederhana, kurang lebih sebagai berikut :



Logika / coding : Silahkan teman langsung unduh aja di kantong 4shared fauzi : [Kalkulator.rar]

Semoga bermanfaat...
Semangat Untuk CALAS LepKom 2012 Gunadarma.. ^_^

Konversi DesimalToBiner

Tes Akademik untuk Penerimaan Calon Asisten LePKom 2010 (Tgl 13 jully 2010)
soal tes Algoritma Pemrograman (type B),waktu 120 Menit peserta calon aslab LePKom dituntut menyelesaikan sebuah program
yaitu konversi dari bilangan Desimal (dengan batasan Max 2 Digit) diubah ke dalam bentuk bilangan Biner, Bahasa Pemrograman Menggunakan Bahasa Pascal.
Check It Out... (^_^)

Soal di Hide Link http://lepkom.gunadarma.ac.id/calas2010 (khusus pada tanggal 13 Jully 2010)
Output Konversi Bilangan Desimal Ke Bilangan Biner, kurang lebih sebagai berikut :



Logika / coding : Silahkan teman langsung unduh aja di kantong 4shared fauzi : [DesimalToBiner.rar]

Semoga bermanfaat...
Semangat Untuk CALAS LepKom 2012 Gunadarma.. ^_^

Bilangan Prima < 100

Tes Akademik untuk Penerimaan Calon Asisten LePKom 2010 (Tgl 13 jully 2010)
soal tes Algoritma Pemrograman (type A),waktu 120 Menit peserta calon aslab LePKom dituntut menyelesaikan sebuah program
yaitu dengan Output Bilangan Prima < 100, Bahasa Pemrograman Menggunakan Bahasa Pascal.
Check It Out... (^_^)

Soal di Hide Link http://lepkom.gunadarma.ac.id/calas2010 (khusus pada tanggal 13 Jully 2010)
Output Bilangan Prima Kurang Dari 100, kurang lebih sebagai berikut :



Logika / coding : Silahkan teman langsung unduh aja di kantong 4shared fauzi :
[Bilangan Prima.rar]

Semoga bermanfaat...
Semangat Untuk CALAS LepKom 2012 Gunadarma.. ^_^

Tips "IF Multi Condition"

Sebenarnya  untuk bisa pemrograman Kita tak harus menguasai berbagai bahasa Pemrograman untuk bisa bahasa tersebut, cukup hanya dengan mempelajari Algoritma Pemrograman ditambah aturan penulisan dalam pemrograman tersebut maka kita sudah menguasai bahasa pemrograman tersebut seutuhnya.. hehehe
(sok bisa aja nih fauzi hehehe)

Okay Kembali ke Algoritma Pemrograman, selain berbagi proposal usb sekedar berbagi aja yah sebagai mengidolakan dunia IT, sebenarnya seorang programmer dituntut untuk dapat membuat program sesuai dengan apa yang diinginkan si pemesan. Termasuk membuat program multi kondisi. Program multi kondisi adalah program dimana sebuah variable/lebih harus memenuhi berbagai kondisi yang ditentukan untuk menghasilakan output yang tepat.

Contoh: Jika a adalah genap maka a harus dikali 5 dan jika hasil a dikali 5 kurang dari 100 maka a harus ditambahkan 3 dan dikalikan dengan 6 dan jika hasil a + 3 dikali 6 kurang dari 100 maka proses itu harus diulang (a + 3)*6 sampai nilainya lebih besar atau sama dengan 100

Wadoh, mbaca soalnya ja bingungnya setengah hidup apalagi buat solusinya ya??? Tapi sebagai programmer kita dituntut untuk dapat mengerjakan dan membuat Algoritma serta Programnya. Lalu darimana kita memulai membuat Algoritmanya? mari kita coba membuatnya sama-sama!

a = bilangan genap : Algoritma untuk genap --> a mod 2 = 0
a dikalikan 5 : a * 5 --> misal a * 5 dinyatakan dengan b
b kurang dari 100
a + 3 dan harus dinyatakan dengan a untuk memenuhi kalimat "proses itu harus diulang"
a dikali 6 : a * 6 --> misal dinyatakan dengan c
jika c elbih dari atau sama dengan 100 maka proses selesai

Nah kira-kira begitulah Algoritma sederhana yang saya buat, kita juga bisa membuat Flowchart untuk lebih memudahkan memahami Algoritma tersebut. Bila membuat dengan Flowchart maka bentu multi kondisi (multi condition) akan nampak sangat, tapi bila hanya Algoritma sederhana seperti diatas memang susah untuk menentukan itu multi kondisi atau tidak.

Nah, daripada berbelit-belit dan tambah bingung mendingan kita coba buat program pascal nya aja biar ketahuan, itu multi kondisi atau tidak yah?

uses crt;
var
a,b,c:integer;
d:boolean;
begin
clrscr;
for d:=false to true do
begin
write('Masukkan nilai a: ');readln(a);
if (a mod 2 = 0) then
begin
writeln('Nilai a awal: ',a);
b:= a * 5;
if (b < 100) then begin for d:=false to true do begin a:= a+3;
c:= a*6;
if c >= 100 then
begin
d:=true;
end;
end;
end;
writeln ('Nilai a akhir: ',a);
end else d:=false;
end;
readln;
end.

Mungkin Script program multi kondisi diatas begitu membingungkan, tapi cobalah lihat screenshot script program multi kondisi diatas dalam bentuk yang teratur dan tertata berdasarkan block prosesnya di sini
naah ketauan kan lebih mudah dibaca algoritmanya... hehehe semoga Bermanfaat

Program Belah Ketupat

Belum juga hari lebaran.. udah disuruh belajar sama kak asisten buat ketupat... tapi dipascal?? lho kaya gimana tuuh...


Maksudnya deret belah ketupat hehe, untuk buat deret belah ketupat, perulangan yang digunakan fauzi tuh lumayan banyak juga:
hmmm kira-kira kita butuh 2perulangan untuk buat segitiga kosong(spasi), dan 4perulangan untuk buat segitiga berisi deret bilangan atau isinya..

aduh aduuh.. daripada teman-teman penasaran yang gak ada sasaran hehehe yuuuk kita liat aja yuuk deretnya... Segitiga Belah Ketupat {Pascal}.rar

Segitiga Fibonaci

Fibonaci dibuat segitiga perulangan????
Lumayan juga sih stelah fauzi coba tuuh.. agak sedikit kebingungan sebelumnya apakah perlu array atau tidak yaah?? buat temenQ yang kemaren penasaran... mengenai deret segitiga fibonaci, semoga aja postingan fauzi kali ini bisa buat kamu jadi gak jd hantu penasaran lagi yah?? heheheh "just kidding lho"..


silahkan di download yuuuk mariii jangan lupa jangan klik klik aja yaaa.. komentarnya ditinggalin dung? okaaay : Segitiga Fibonaci {Pascal}.rar
semangat semangat SEMANGAAAAAAAAAT!!!

Segitiga Berurut

Perulangan Perulangan Perulangan... yaaah ketemu deret lagi deret lagii... hehe tanggal 31 maret 2010 kemaren, hari yang seru juga siih buat anak sekelas, dimana ujian praktikum pascal dimulai.. dan ternyata soal dibagi menurut variasi berbeda pula, mau tau?? meja praktikum saya kebagian soal gimana?? eeng iing eeeng silahkan diliat:


dag dig dug lab praktikum serasa gunung es tuh waktu itu... sebelas menit pula udah dikelarin sama partner cew..
Tapi belasan menit kemudian ternyata macet katanya dideret: 'udah ah Q nulis logikanya ajah, nih ji yg terusin..' ucapnya tuh
waduuuh kebagian sisa niih aku?? heheheu eng ooong .. sisa 10 menit .. 7 menit .. anehnya insipirasi belum keluar juga tuuh..

suara :"3 MENIIIT LAGEE" diucapkan dari kak asisten waktu itu...
aduuuh gemana dong?? logika baru sebagian.. program deret macet pulaa... {bisikQ kpartner yg malah baru nulis logika program 1/3 isi coding pun belum ada tuuh wkt itu hiks hiks}

'udaah jii.. sebisa jii aja gapapa.. bentuk segitiga juga udah lumayan koq' ucap sipartner tuuh... iy iy maap yaa.. jawabQ {ujian atau main drama siih?? jadi terharu.. hahahaha}

tapi entah doa qt yg msg2 kuat n bsatu dalam 2menit terahir muncul deh inspirasiQ untuk membuat variable variable yang bener-bener gak q sangka sebelumnya 4Perulangan FOR dan 2Kondisi IF didalemnya dan
FINALLY.........

ALHamdulilah... hehehe selese juga niih deret segitiga berurutan..
makasiih tuhan.. praktikum pascal SUCCES!! gak kaya praktikum VB sebelumnya tuuuh HUFT!!..

buat teman-teman dan pengunjung fauzi_online silahkan download yah coding segitiga hasil kerja qt yaaah ^_^ :Program Segitiga Berurut {Pascal}.rar

semangat semangat SEMANGAAAAAAAAAT!!!

Sejarah Pascal

Semeser dua ini selain memborong kumpulan tugas Qbasic ternyata materi algoritma pemrograman buat kelas fauzi tuh mbahas pascal.. nah looh apa tuh pascal? yang fauzi tau malah segitiga pascal itu tuuh.. hehe, berikut ini nih cerita sejarah lahirnya Pemrograman pascal yuk kita lihat proses terbentuknya bahasa pascal ini terlahir dimuka pemrograman dunia...
ascal adalah sebuah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth pada tahun 1971, seorang anggota International Federation of Information Processing (IFIP) dari Technical University of Zurich, Switzerland. Nama Pascal diambil sebagai penghargaan terhadap Blaise Pascal, ahli matematik dan filosofer terkenal abad 17 dari Perancis yang pertama kali menciptakan mesin penghitung.

Profesor Niklaus Wirth memperkenalkan kompiler bahasa Pascal pertama kali untuk komputer CDC 6000 (Control Data Corporation) yang dipublikasikan dengan tujuan membantu mengajar program komputer secara sistematis, khususnya untuk memperkenalkan pemrograman terstruktur kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Dalam waktu singkat, Pascal telah menjadi bahasa yang populer di kalangan pelajar universitas dan merupakan bahasa yang diajarkan di beberapa perguruan tinggi. Beberapa profesional komputer juga mulai beralih ke bahasa Pascal. Kenyataannya, Pascal merupakan bahasa yang paling cepat populer dibandingkan dengan bahasa-bahasa komputer tingkat tinggi yang lainnya. Standar Pascal adalah bahasa Pascal yang didefinisikan oleh K.Jensen dan Niklaus Wirth.

Penerapan nyata dari standar Pascal banyak yang berbeda dengan seperti apa yang telah didefinisikan oleh K. Jensen dan Niklaus Wirth. Standar Pascal di Eropa didefinisiakn oelh ISO (International Standards Organization) dan di Amerika oleh kerjasama antara ANSI (American National Standar Institute) dengan IEEE (Intitute of Electrical and Electronic Engineer). Beberapa versi dari Pascal yang telah beredar di pasaran, di antaranya UCSD pascal (University of California at San Diego Pascal), MS-Pascal (Microsoft Pascal), Apple Pascal, Turbo Pascal dan lain sebagainya.

Sampai saat ini untuk komputer-komputer mikro dan personal, Turbo Pascal merupakan versi bahasa Pascal yang paling populer dan banyak digunakan. Kompiler Turbo Pascal banyak digemari, karena terutama bersifat interaktif, seperti interpreter saja layaknya. Selain itu Turbo Pascal mengikuti definisi dari standar Pascal seperti yang didefinisikan oleh K. Jensen dan Niklaus Wirth di Pascal User Manual dan Report. Turbo PASCAL adalah copyright dari Borland Inc. dan dapat digunakan pada sistem operasi PC-DOS, MS-DOS, CPM-86 dan CP/M-80.

Bagi teman-teman yang penasaran juga silahkan download aja nih
LINK DOWNLOAD TURBO PASCAL
Selamat mencoba dan belajar teman-teman...