Jumat, 22 April 2011

Sabtu yang luar biasa (sabtu yang biasa di luar???)

Bismillahirrahmanirrahim
sudah lama rasanya ga posting di blog yang ini (sedang mengelola blog lain siih). Kali ini posting lagi tapi copas dari blog yang satunya aza deeh. biar tetap bisa eksis di blog ini,.jadi judul n isi boleh sama, tapi sampul dan penerbit berbeda...#apanya..ahaha~
***
Pada hari minggu ku turut ayah ke kota,,naik delman istimewa ku duduk di muka..bla bla bla.. “Bangun bung. Ini sudah jam berapa? Lagian ini bukan hari minggu,ini sabtu..” terdengar suara seseorang sayup-sayup di telinga.
“Whaat???”, batin ku langsung terbangun. Segera deh aku mandi, shalat, santai sejenak, ngisi perut n bersiap berangkat ke kampus. Dalam hati aku yakin hari ini adalah hari yang Zuper sekali. Bukan karena hari ini aku berangkat menggunakan kendaraan kesayangan yang setia menemaniku (saking setianya sampai mau ikutan rebahan di aspal setelah kesenggol orang).
Lho,,memangnya kemarin – kemarin kamu ke kampus naik apa,? Delman??
“Ya iya lah kendaraan”, jawabku datar.
Terus apa bedanya?
“Ya iya lah beda, kemaren hari apa coba, trus hari ini hari apa? Hayooo”
Aahh,,aku ini selalu kebagian peran yang kalah di cerita kamu” (berpikir untuk minggat).
“Ahaha,,namanya juga aku yang ngarang,,kamu cukup duduk manis dalam cermin semu ini, oke,,kapan mau ke bagian inti niih kalo kita debat mulu?”, balas ku sekenanya.
Okee deeh,,tariiik Maaan..
“Lho,,kita di dunia nyata bro, bukan di mimpi lagi,,masih ke enakan yaA naik delman?”
***
Yaah lupain deh masalah delman di hari minggu, hari ini sabtu, sebenarnya ga da jadwal kuliah hari sabtu, tapi kali ini semangat buat ke kampus. Bukan karena sedang ada incaran di kampus. Tapi karena pribadi ini merasa sedang fit n mood banget. Hari ini pasti banyak motivasi yang ku dapat. Begitulah aku memulai rutinitas di pagi sabtu.
Segera ku kayuh pedal gas kendaraan (pedal gas???) kesayanganku. Sesampainya di kampus terdengar bunyi hape tanda sms. Segera ku cek, kali aja ada pulsa 500rbu nyasar masuk ke hape ku, kan lumayan tuuh. Ternyata eh ternyata itu cuma sebuah sms dari seorang teman. Isinya juga cuma bilang kalo acara dah mulai. Segera ku berlari menanjaki anak tangga yang terjal. Sesampainya di atas, dengan napas ngos-ngosan akhirnya sampai juga di depan ruangan. Isi absen. Lalu duduk manis semanis madu di kursi vip.
Ku buka bungkusan plastik yang menghiasi sebuah buku. “Waah, ni buku pasti menarik, dari covernya saja sudah bikin badan gemetar, kepala rasa melayang, keringat bercucuran, napas ngos-ngosan.” Batinku.
Memangnya kamu lagi ngapain sih Qan,,kok segitunya?
“Lho..kok kamu muncul lagi siih, tadi katanya mau minggat?”
Aku masih suka nyimak kok, sebagai pembaca setia blog kamu.
“Iya deh, izinkan aku ngelanjutin yaA. Ntar ga kelar-kelar niih”
Mataku terbelalak waktu beberapa lembar membaca isi bukunya. Ternyata yang ngarang ne buku adalah si empunya blog yang pernah aku baca dulu. Padahal ku kira itu bukan blog orang sini. Rasa penasaran semakin menghantui ku, seperti apa rupa si empunya blog itu batinku. Dan kali ini mata ini semakin terbelalak hampir keluar deh bola matanya (aah lebay lu ah Qan..Oke-oke ana khilaf). Ternyata si empunya blog adalah orang yang sering aku lihat di beberapa kesempatan. Dokter muda yang ku kira masih mahasiswa.
Acara pun mulai berjalan seperti sedia kala. Tuh dokter emang gokil. Aku sempat kena kegokilannya. Disuruh menjawab kuis yang akhirnya tak dapat ku jawab. (Hedeeeh,lemah loe Qan, gitu aza g bisa jawab..). Tapi tak seberapa malu yang ku rasakan, walaupun berdiri di depan dengan kikuknya, ditambah aroma tak bisa menjawab pertanyaannya, aku malah senyum-senyum (Memangnya kamu bisa senyum?kamu kan si cuek dari Man 2 Mtp yang katanya terkenal itu.). ga usah didengerin kata-kata benar dari tokoh lain dari cerita ini. Setidaknya aku bukan orang yang benar-benar terkenal. Yaaah ku akui laah sedikit mahal senyuum, kata orang siih. Mungkin ne bibir kurang beberapa senti aza biar terlihat senyum.
Kembali ke pokok cerita. Dokter muda itu benar-benar memberi motivasi, sesuai apa yang ditulis di bukunya. Walaupun sempat beberapa kali kena guyonannya tapi hati ini seolah sudah kenal lama dan terbiasa dengan guyonan itu.
Sebenarnya harus ku akui aku juga memiliki pemikiran yang kurang lebih sama. Bedanya beliau sudah bikin buku dan pikirannya jauh lebih luas dari ku. Kalo dulu ku masih suka bilang nikmatilah rasa sakit (akibat kegagalan) itu. Beliau sudah menemukan teori mengkonversi kegagalan menjadi energi yang luar biasa. (Jadi intinya apa niih? Kamu kurang beruntung??).
“Tidak, aku merasa beruntung. Beruntung karena aku tak perlu membuat buku yang sejenis lagi. Aku harus menemukan teori beda yang ga kalah gokilnya kelak. Jujur senang rasanya seolah punya teman sepikiran yang jauh lebih maju. Allah memang Maha Adil. Tadinya ku kira hanya au yang berpikiran seperti itu (saking kurang bergaul tuh kamu.makanya tuh mata dibuka jangan cuma ditambah).”
Yaah, ku tutup catatan ku hari ini dengan sebuah senyum tersungging (mana mungkin orang bisa liat Qan, kamu nulisnya aza ngumpet dalam kamar.Hedeeh). Orang tak  perlu liat ak senyum. Yang penting orang bisa merasakan senyumku. Itu sudah cukup kok. Terakhir Syukron katsir kepada si empunya blog doktermudaliar.wordpress.com yang tak bosan-bosannya beberapa jam memotivasi kami. Senang bisa mengenal anda. Semoga kita bisa bertemu kembali. Kalo tidak di dunia, di tempat yang jauuuh lebih baik daripada dunia. Amiin.

Minggu, 10 Oktober 2010

PENGENALAN PASCAL



SEJARAH SINGKAT
Bahasa Pascal dikembangkan pada awal tahun 1970-an oleh ilmuwan komputer Eropa, Niklaus Wirth (dibaca : Veert). Nama pascal diambil dari nama ahli matematika Blaise Pascal yang menemukan mesin hitung mekanik pertama.
Pada tahun 1960-an bahasa pemrograman sangat rumit. Kemudian Wirth ingin menciptakan bahasa yang sedderhana dan ringkas, tetapi cukup baik untuk memecahkan berbagai macam masalah. Ada dua tujuan yang ingin dicapai wirth, yaitu menjadikan Pascal sebagai bahasa yang :
Sesuai untuk pengajaran pemrograman sebagai sebuah disiplin yang matematis, dengan konsep dasar yang jelas dan secara alamiah direfleksikan oleh bahasa.
Efisien untuk dieksekusi oleh komputer.
Akhirnya Wirth berhasil mencapai dua tujuan tersebut.
Komputer hanya dapat mengesekusi bahasa yang dikenalinya yaitu bahasa mesin atau bahasa tingkat rendah (low-level language). Pascal sebagai salah satu bahasa tingkat tinggi (high-level language) harus diubah menjadi bahsa mesin agar dapat dikenali komputer. Untuk itu dikembangkanlah sebuah program penerjemah yang disebut kompilator (compiler). Kompilator Pascal adalah sebuah software bukan perangkat keras hardware.
Sebagai bahasa tingkat tinggi, Pascal mempunyai sifat machine independent yang tidak tergantung kepada mesin apapun atau dapat dieksekusi pada mesin apa saja.

Secara umum, program akan menerima masukan, melakukan sebuah proses tertentu dan menghasilkan keluaran. Dalam penulisan bahasa Pascal terdapat beberapa hal yang mesti diketahui, diantaranya sebagai berikut :
Komentar
Komentar dalam bahasa Pascal dituliskan dengan mengapitkannya pada dua buah tanta kurung kurawal “ { ..... }”. Komentar digunakan untuk menjelaskan program, khususnya pembaca program (manusia). Komentar dapat juga dijadikan bagian dokumentasi seperti nama pembuat program serta tanggal dibuat.

Reserved Word (kata kunci)
Reserved word adalah kata-kata yang sudah mempunyai arti khusus dalam bahasa pemrograman. Bahasa Pascal (standar) mempunyai 35 reserved, yaitu :

and
array
begin
case
const
div
do
downto
else
end
file
for
function
goto
if
in
label
mod
nil
mot
of
or
packed
procedure
program
record
repeat
set
then
to
type
until
var
while
with
asm
unit
uses
implementation


Identifier
Identifier adalah nama yang diberikan oleh programmmer. Identifier tidak hanya untuk menamai sebuah program tetapi juga untuk objek-objek Pascal yang lain, sepereti variable, dan konstanta.
Pedoman penamaan program adalah sebagai berikut :
1.     Karakter pertama identifier harus berupa huruf.
2.    Karakter selanjutnya dapat gabungan antara huruf dan angka.
3.    Nama tidak berupa reserved word dalam Pascal.
4.    Apabila nama lebih dari satu kata,maka tidak boleh menggunakan spasi tetapi dapat menggunakan tanda underscore “_”.

Perintah write dan writeln
Kegunaannya sama yaitu menulis parameter-nya pada layar. Perbedaanya hanay pada pemindahan posisi kursor setelah penulisan. Perintah writeln (kependekan dari write line), setelah menuliskan parameter-nya di layar, maka kursor penulisan akan langsung pindah baris atau ganti baris. Sedangkan perintah write hanya menuliskan parameter-nya saja, tanpa pindah baris.

KESALAHAN PADA PROGRAM
Ada dua jenis kesalahan yang mungkin terjadi pada sebuah program yang ditulis, yaitu :
1.     Kesalahan sintaks /atau tata bahasa (syntax error)
2.    Kesalahan logika (logical error)
Kesalaahn sintaks menyebabkan program tidak dapat dikompilasi, sedangkan kesalahan logika masih memungkinkan program dapat dikompilasi tetapi jika dijalankan akan menghasilkan keluaran yang salah. Kesalahan-kesalahn inilah yang disebut bug yang berarti kutu. Sedangkan proses menemukan dan memperbaiki kesalahan ini disebut debugging.

GAYA PENULISAN
Pascal bukan bahasa yang line-oriented, yaitu bahasa yang setiap perintah yang berbeda harus ganti baris penulisan. Penulisan Pascal tidak tergantung kepada spasi kosong dan gaya indentasi penulisan.
Salah satu kebiasaan yang perlu dilakukan dalam mempelajari pemrograman adalah menjaga konsistensi gaya penulisan, yaitu yang memudahkan program untuk dibaca.

PENDEFINISIAN VARIABEL
Kata kunci var digunakan untuk menandai awal pendefinisian variabel yang digunakan dalam program. Variabel diguknakan untuk menyimpan data yang digunakan dalam program.

PERINTAH READ DAN READLN
Perintah read dan readln akan menangkap masukan yang diberikan melalui keyboard dan menyimpannya disebuah tempat pada memori pada memori komputer dengan nama sesuai dengan parameter-nya. Perintah ini bukan merupakan reserved word tetapi sebuah built-in procedure yang telah disediakan Pascal.
Perbedaan perintah read dan readln sama dengan perbedaan perintah write dan writeln. Jika perintah readln tanpa menggunakan parameter, maka perintah ini akan manahan layar me=onitor sampai ditekan sebarang kunci atau tombol pada keyboard.

Kamis, 30 September 2010

Pertempuran Hati

...
“Astagfirullah”, batin Ricco ketika dia bangun tidur. Pagi itu terbangun dengan setengah terkejut. Seolah-olah fenomena yang dilihatnya di dalam mimpi terasa sangat real. Langsung di tengoknya hape kesayangannya, dilihatnya jam dan terlihat ada beberapa sms masuk. Dalam keadaan masih setengah sadar dicobanya membaca satu demi satu hurup yang tertera di pesannya. Sebuah senyum tersungging dimulutnya.

“Hehe, marah rupanya dia, wajar sih kalau dia marah” batinnya. Ingin untuk membalas semua sms yang masuk tapi apa daya masa aktifnya habis. Dia baru manyadari masa aktifnya habis setelah ingin membalas sms dari orang yang disayanginya.


“Oh iya ya, masa aktifnya habis”. Ricco pun segera bangun untuk mandi, tapi tiba-tiba rasa sakit muncul di organ dalam tubuhnya. Kembali dia rebahkan diri untuk sesaat.


“Waah,kambuh lagi nih penyakit lama, kok bisa datang lagi ya? Padahal sudah lumayan lama tak terasa sakit lagi” katanya dalam hati. Tapi rasa sakit itu tak dipedulikannya. Dia langsung bangun dan dengan langkah gontai menuju kamar mandi. Tapi mimpinya semalam masih mengisi pikirannya. Bahkan sampai di perjalanan menuju kampus pun pikiran itu mengusik otaknya.


Yup, itulah yang dialami Ricco pagi hari itu. Karena kehabisan masa aktif dia tidak bisa menghubungi teman sekelasnya untuk menanyakan dimana ruangan kuliahnya. Ada perubahan jadwal mata kuliah, tempatnya pun berubah. Tapi tak satupun jarkom pemberitahuan masuk ke inbox’nya.


“Haha,mau ga mau nih nyoba ngecek ke dua gedung, coba cek ke gedung A dulu gen nih”. Sesampainya di gedung A di tengoknya satu persatu kendaraan yang ada. Tapi tak satupun kendaraan teman-teman yang dikenalnya ada parkir.


“Pasti di gedung B ne”, katanya. Segera dihidupkannya kembali kendaraan dan langsung melaju ke gedung satunya. Sesampainya disana terlihat ruangan di lantai 3 semua pintunya tertutup. “Apa aku salah jadwal?” batinya. Tapi dilihatnya kendaraan beberapa teman sehingga dia yakin di gedung itulah tempat kuliahnya.


Setengah berlari disusurinya anak-anak tangga. Sesampainya di lantai tiga terlihat susunan sepatu di depan sebuah ruangan. Setelah yakin itu sepatu teman-temannya diberanikannya untuk masuk. Untung saat itu masih pengenalan dosen dan mata kuliah. Jadi tetap diperbolehkan masuk.


Sepulang kuliah ketika diperjalanan kembali teringat akan seseorang. Ricco pun harus berusaha fokus buat mengendarai kendaaraannya. Ada sesuatu yang mengusik pikirannya. Ini tentang masa lalunya, Aurel namanya.


Hal ini bermula ketika Ricco mengirim sebuah sms sesaat sebelum dia tidur, mungkin isi sms itulah yang membuat Aurel jadi kecewa dan lumayan marah padanya. Wajar saja sih klo Aurel marah, soalnya isi sms Ricco mematahkan kepenasaran Aurel. Dari pesan singkat yang ga terlalu singkat itu terlihat n terasa banget atmosfer marahnya (waah,,mendramatisir banget nich kata2nya, tengah malam makin gaje z nich yang nulis).


Kita flash back ke beberapa hari yang lalu. Ketika itu Ricco pernah mengatakan kepada Aurel bahwa dia ingin meluruskan sesuatu mengenai cerita mereka di masa lalu. Hal itu kontan saja membuat Aurel bingung dan penasaran. (Padahal kalau saja dia ingat jauh sebelum hari itu Ricco juga pernah mengucapkan hal yang sama). Sebenarnya bukan masalah yang begitu penting bagi Aurel, karena itu tak akan berpengaruh banyak pada dirinya.


(kalau kita tengok isi pikiran Ricco, ada banyak peran bathin yang dialaminya, mulai dari organisasi, hubungan dengan teman2, kondisi dirinya, termasuk juga hal yang ingin diluruskannya dengan masa lalunya)


Mengenai Aurel, bukannya Ricco ragu, dia hanya ingin melakukannya ketika saat yang tepat, tapi setelah mendengar alias membaca pesan dari Ricco, Aurel seperti sangat memburunya. Alasannya sih simpel, dia ingin segera menyelesaikan masalah. Ricco sangat ingin menjawab ini bukan mengenai mengulur-ulur waktu, ada sesuatu yang mengganjal hatinya.


Dulu dia juga sempat mengucapkan hal yang sama, tapi karena saat itu bukan waktu yang tepat, jadi ditunda deh, malah Ricco kembali menghilang bak ditelan Bumi. Dia menjadi sibuk sesibuk2nya(padahal penulis males banget nih make kata “sibuk”,lagi anti aza ma ne kata.he) dengan kegiatan sehari2nya.
Kembali ke sms yang dikirim Ricco, malam itu dia merasa ini bukan saat yang tepat. Isi pesan yang disingkat2in itu pun dia meminta maaf karena ga bisa memberi tahunya sekarang.  Sepertinya lebih baik begitu untuk keduanya.
Selesai mengetik dan mengirim Ricco siap2 untuk tidur, tak lama berselang dia pun tertidur. Naah,dibagian inilah terjadi sesuatu yang begitu mengusik pikirannya. Padahal Ricco termasuk orang yang tidak peduli dengan mimpi. (Teeeettt,,mimpi sengaja tidak disampaikan.,,ahaha). 




Ketika terbangun di pagi harinya. Ricco terkejut dan yang diingatnya apakah ini jawaban dari doa sebelum tidurnya,,?
Mimpi inilah yang membuatnya semakin berpikir untuk menunda atau tidak meluruskan sama sekali mengenai Aurel.  Di mimpinya terlihat seorang wanita yang menjaga pasangannya tapi berlinangan air matanya, dan wanita itu adalah Aurel. terlihat seolah wanita yang tegar, tapi apa yang membuatnya terus menangis?
Ketika membaca pesan balasan dari Aurel, Ricco sangat ingin menjelaskannya. Tapi hati dan masa aktif kartu menahannya. Baginya jika dijelaskannya lewat pesan mungkin akan tambah runyam. Setelah berpikir lumayan keras dia akhirnya mendapatkan metodenya. Memanfaatkan kemajuan teknologi. Dia pun mengirim sms kepada Aurel bahwa dia akan menanggapi pesan Aurel melalui media yang lain. Mungkin urel jadi bingung, tapi inilah cara yang lumayan bisa diandalkan untuk meredam emosinya (paling tidak dia akan bosan terlebih dahulu membaca hal yang panjang lebar, dan bingung menetukan inti dari itu semua, Good untuk penulis kondisi tengah malam membuatnya semakin ga jelas mau nulis apa,ahaha)
Sebenarnya Ricco ingin menjelaskan bahwa dia tak ada sedikitpun niat untuk membuat Aurel penasaran, bingung dan sebagainya. Dia juga tidak ingin memberi harapan semu, dia ingin kesbaran dan pengertian Aurel akan hal itu. Susah memang cara Ricco mengungkapkan keinginannya kepada seorang wanita,apalagi wanita itu masa lalunya. Berat baginya. Aurel juga sempat bilang jangan ngungkit2 masa lalu kalau memang tidak penting. Itu akan jadi kata2 yang diingat Ricco untuknya. “Berarti kemungkinan besar tak ada yang perlu dijelaskan lagi” batinnya.
Satu hal yang akhirnya Ricco tau, Aurel sudah bahagia bersama pasangannya yang baru, dan itu cukup menjadi suatu parameter kesuksesannya. So, biarlah hal itu tak tersampaikan secara langsung. Ricco tetap seperti yang dulu, menyimpan rahasia itu di dalam hatinya. Tak perduli apa kata dunia dia menjalaninya.
Ini resiko, bukan karena aQ bermain api, bukan juga aku mempermainkan perasaan, sebenarnya siapa yang korban siapa yang pelaku semua dibuatnya samar kala itu, mengalah dan dikalahkan saat itu memang tak berarti lagi sekarang, tapi akan menjadi sebuah perjuangan manis bagiQ, tak peduli apa kata dunia or apa kata mereka, yang penting aQ malksanakan misi terselubung Q dan itu berujung pada keberhasilan yang lumayan,tinggal liat perkembangannya. Semoga kebahagiaan selalu menyertainya.Amin
Ricco pun menutup cerita dan kata2 anehnya di hari itu dengan mengcopy semuanya dan disimpan di harddisknya, semoga bukan hanya di harddisk lappie kesayangannya itu kata2 penutup itu tersimpan, tapi juga di otak kecilnya.
Semoga bisa dimengerti.
...
  

Selasa, 28 September 2010

Soal Tugas Statistika Dasar

Buat yang tidak punya buku atau fotocopian buku Statistika Dasar berikut adalah soal tugas mata kuliah Statistika Dasar.

Hal 79 No 9
Sebuah percobaan menanyai 3 orang ibu rumah tangga yang diambil secara acak mengenai apakah mereka mereka menggunakan deterjen merk X.
(a) Daftarkan unsur-unsur ruang contoh S dengan menggunakan huruf Y untuk jawaban “ya” dan T untuk “tidak”.
(b) Daftarkan unsur-unsur kejadian E bahwa sekurang-kurangnya dua ibu rumah tangga yang ditanyai menggunakan merk X.
(c) Definisikan kejadian yang himpunannya adalah {YYY, TYY, YYT, TYT}.

Hal 80 No 17
Pasangan kejadian mana yang saling terpisah?
(a) Seorang pemain golf membuat skor terendah dalam suatu turnamen 72-lubang dan ia kalah dalam turnamen itu.
(b) Seorang pemain poker mendapatkan two pairs dan three of a kind.
(c) Seorang ibu melahirkan bayi perempuan dan bayi kembar perempuan pada hari yang sama.
(d) Seorang petenis kehilangan set terakhir dan memenangkan pertandingan.

Hal 87 No 12
(a) Berapa banyak bilangan yang tersusun atas tiga angka dapat dibuat dari angka-angka 0, 1, 2, 3, 4, 5, dan 6 bila setiap angka hanya boleh digunakan sekali?
(b) Berapa banyak di antara bilangan-bilangan itu yang ganjil?
(c) Berapa banyak yang lebih besar dari 330?

Hal 88 No 23
Berapa macam cara memilih 3 calon dari 8 pelamar yang berkualifikasi sama?

Hal 94 No 1
Temukan kesalahan dalam setiap pernyataan berikut ini :
(a) Peluang bahwa seorang salesman berhasil menjual 0, 1, 2, atau 3 mobil pada sembarang hari di bulan Februari, berturut-turut adalah 0.19, 0.38, 0.29, dan 0.15.
(b) Peluang bahwa besok akan turun hujan adalah 0.40, sedangkan bahwa peluang bahwa besok tidak hujan adalah 0.52.
(c) Peluang bahwa sebuah mesin cetak membuat 0, 1, 2, 3, atau 4 kesalahan, berturut-turut adalah 0.19, 0.34, -0.25, 0.43, dan 0.29.
(d) Pada pengambilan sebuah kartu bridge, peluang mendapatkan kartu heart adalah ¼, peluang mendapatkan kartu hitam adalah ½, dan peluang mendapatkan kartu heart hitam adalah 1/8.

Hal 95 No 3
Tiga orang calon saling bersaing memperebutkan satu jabatan. Calon A dan B mempunyai peluang berhasil yang sama, sedangkan calon C mempunyai peluang berhasil dua kali lebih besar daripada calon A maupun B.
(a) Berapa peluang C berhasil?
(b) Berapa peluang A tidak berhasil?

Hal 96 No 20
Di suatu penjara, ternyata 2/3 penghhuninya berumur di bawah 25 tahun. Selain itu diketahui bahwa 3/5 bagian diantaranya laki-laki; dan 5/8 bagian perempuan atau yang berumur 25 tahun atau lebih. Bila kita mengambil seorang secara acak dari penjara ini, berapa peluang bahwa ia berjenis kelamin perempuan dan berumur sekurang-kurangnya 25 tahun?

Thanks to Sari CS’09 yang dah minjamin saya fotocopi bukunya.he
(^_^)

Rabu, 30 Juni 2010

Program matematika dasar..

Setelah lama ga ng’posting di blog..kali ne Q coba post ge dech..

Namun agak berbeda dgn postingan2 sebelumnya..kali bener2 sesuai dengan jurusan Q.. haha.. Postingan ini berawal dari komen2n di FB,hingga akhirnya Q tau seperti apa soal final Ilmu komputer n pemrograman di salah satu PT di Kalsel.. Dari soal tu menggelitik hati dan isi kepala Q untuk mencoba memecahkan masalah yang diberikan..Namun ga cukup sampe situ z..Q beri sedikit tambahan n Q kembangkan..Q gabungin dengan tugas Alpro1 Q..hehe .. Maka jadilah seperti ini..

program Matematika_dasar;
{Selasa, 29 Juni 2010)
{Oleh RIZQAN ASWADI NOOR}

uses crt;

var
pilih : integer;

procedure kalkulator;
var
total,angka2: real;
operasi : string;
BEGIN
clrscr;
total:=0;
write ('Angka 1 : '); readln (total);
repeat
repeat
write ('Operasi (+,-,*,/,=) : '); readln (operasi);
until (operasi='+')or(operasi='-')or(operasi='*')or(operasi='/')or(operasi='=');

IF (operasi='+')or(operasi='-')or(operasi='*')or(operasi='/') then
begin
write ('Angka 2 : '); readln (angka2);

{operasi +,-,*,/,=}
IF operasi='+' THEN
total:= (total+angka2)
ELSE IF operasi='-' THEN
total:= (total-angka2)
ELSE IF operasi='*' THEN
total:= (total*angka2)
ELSE IF operasi='/'THEN
total:= (total/angka2);
end;

IF (operasi='=') then
{operasi =}
total:=(total*1);

writeln ('Total : ',total:0:0);
until (operasi='=');
writeln;
writeln;
END;

procedure tabel_perhitungan;
var n,i,j : integer;

BEGIN
clrscr;
writeln (' TABEL PENJUMLAHAN ');
write (' Mau tabel Penjumlahan berapa ? : '); readln (n);
write (' + ');
FOR i:=1 TO n DO
write (i:4);
writeln;
writeln;
FOR i:=1 TO n DO
Begin
write (i:4);
FOR j:= 1+0 TO n DO
write (i+j:4);
writeln;
writeln;
End;
writeln;
writeln;
writeln;

writeln (' TABEL PENGURANGAN ');
write (' Mau tabel Pengurangan berapa ? : '); readln (n);
write (' - ');
FOR i:=n DOWNTO 1 DO
write (i:4);
writeln;
writeln;
FOR i:=n DOWNTO 1 DO
Begin
write (i:4);
FOR j:= n DOWNTO 1 DO
write (j-i:4);
writeln;
writeln;
End;
writeln;
writeln;
writeln;

writeln (' TABEL PERKALIAN ');
write (' Mau tabel Perkalian berapa ? : '); readln (n);
write (' * ');
FOR i:=1 TO n DO
write (i:4);
writeln;
writeln;
FOR i:=1 TO n DO
Begin
write (i:4);
FOR j:= 1+0 TO n DO
write (i*j:4);
writeln;
writeln;
End;
writeln;
writeln;
writeln;

writeln (' TABEL PEMBAGIAN ');
write (' Mau tabel Pembagian berapa ? : '); readln (n);
write (' / ');
FOR i:=n DOWNTO 1 DO
write (i:6);
writeln;
writeln;
FOR i:=n DOWNTO 1 DO
Begin
write (i:6);
FOR j:= n DOWNTO 1 DO
write (i/j:6:2);
writeln;
writeln;
End;
writeln;
writeln;
writeln;
END;

Procedure persegi;
var sisi,keliling,luas : real;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Sisi : ');read(sisi); writeln('cm');
writeln (' Ditanya : ');
writeln (' Keliling Persegi : ...?');
writeln (' Luas Persegi : ...?');
writeln (' Dijawab : ');

keliling:=4*sisi;
luas:=sisi*sisi;
write (' Keliling Persegi : ',keliling:2:0); writeln (' cm');
write (' Luas Persegi : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure Persegi_panjang;
var p,l,keliling,luas : real;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Panjang : ');read(p); writeln ( 'cm');
write (' Lebar : ');read(l); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Keliling Persegi Panjang : ...?');
writeln (' Luas Persegi Panjang : ...?');
writeln (' Dijawab : ');

keliling:=2*(p+l);
luas:=p*l;
write (' Keliling Persegi Panjang : ',keliling:2:0); writeln (' cm');
write (' Luas Persegi Panjang : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure lingkaran;
var r, keliling,luas : real;

const phi = 3.14;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Jari-Jari : ');read(r); writeln ( 'cm');
writeln (' Phi : 3.14');
writeln (' Ditanya : ');
writeln (' Keliling Lingkaran : ...?');
writeln (' Luas Lingkaran : ...?');
writeln (' Dijawab : ');

keliling:= 2*phi*r;
luas:=phi*(r*r);
write (' Keliling Lingkaran : ',keliling:2:0); writeln (' cm');
write (' Luas Lingkaran : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;


Procedure segitiga_siku2;
var a,sisi1,sisi2,t,keliling,luas : real;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Panjang Alas : ');read(a); writeln ( 'cm');
write (' Panjang Sisi Miring1 : ');read(sisi1); writeln ( 'cm');
write (' Panjang Sisi Miring2 : ');read(sisi2); writeln ( 'cm');
write (' Tinggi : ');read(t); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Keliling Segitiga : ...?');
writeln (' Luas Segitiga : ...?');
writeln (' Dijawab : ');

keliling:=sisi1+sisi2+a;
luas:=(a*t)/2;
write (' Keliling Segitiga : ',keliling:2:0); writeln (' cm');
write (' Luas Segitiga : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure kubus;
var s,volume,luas : real;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Panjang sisi : ');read(s); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Volume Kubus : ...?');
writeln (' Luas Permukaan Kubus : ...?');
writeln (' Dijawab : ');

volume:=s*s*s;
luas:=6*(s*s);
write (' Volume Kubus : ',volume:2:0); writeln (' cm3');
write (' Luas Permukaan Kubus : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure balok;
var p,l,t,volume,luas : real;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Panjang : ');read(p); writeln ( 'cm');
write (' Lebar : ');read(l); writeln ( 'cm');
write (' Tinggi : ');read(t); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Volume Balok : ...?');
writeln (' Luas Permukaan Balok : ...?');
writeln (' Dijawab : ');

volume:=p*l*t;
luas:= (2*(p*l))+(2*(p*t))+(2*(l*t));
write (' Volume Balok : ',volume:2:0); writeln (' cm3');
write (' Luas Permukaan Balok : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure silinder;
var r,h,volume,luas : real;

const phi = 3.14;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Jari-Jari Alas : ');read(r); writeln ( 'cm');
write (' Tinggi Silinder : ');read(h); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Volume Silinder : ...?');
writeln (' Luas Permukaan Silinder : ...?');
writeln (' Dijawab : ');

volume:=phi*(r*r)*h;
luas:= (2*phi*(r*r)+(2*phi*r*h));
write (' Volume Silinder : ',volume:2:0); writeln (' cm3');
write (' Luas Permukaan Silinder : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure bola;
var r,volume,luas : real;

const phi = 3.14;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Jari-Jari Bola : ');read(r); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Volume Bola : ...?');
writeln (' Luas Permukaan Bola : ...?');
writeln (' Dijawab : ');

volume:=(4*phi*(r*r*r))/3;
luas:= 4*phi*(r*r);
write (' Volume Bola : ',volume:2:0); writeln (' cm3');
write (' Luas Permukaan Bola : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

BEGIN
clrscr;
REPEAT
writeln ('########## MENU ##########' );
writeln ('1. Kalkulator' );
writeln ('2. Tabel Perhitungan Dasar' );
writeln ('3. Persegi' );
writeln ('4. Persegi Panjang' );
writeln ('5. Lingkaran' );
writeln ('6. Segitiga Siku-Siku' );
writeln ('7. Kubus' );
writeln ('8. Balok' );
writeln ('9. Silinder' );
writeln ('10. Bola' );
writeln ('11. Keluar' );
write ('Pilihan : ' ); readln (pilih);

IF pilih=1 THEN kalkulator;

IF pilih=2 THEN tabel_perhitungan;

IF pilih=3 THEN persegi; {menghitung keliling dan luas persegi}

IF pilih=4 THEN persegi_panjang; {menghitung keliling dan luas persegi panjang}

IF pilih=5 THEN lingkaran;

IF pilih=6 THEN segitiga_siku2;

IF pilih=7 THEN kubus;

IF pilih=8 THEN balok;

IF pilih=9 THEN silinder;

IF pilih=10 THEN bola;

UNTIL pilih=11;

END.

Semoga Bermanfaat