PROGRAMING FOR DUMMIES PART 2 (PASCAL – membuat program penghitung luas)
Posted by: tifani galuh utami on: Desember 11, 2010
ini adalah lanjutan dari tread gue sebelumnya.
membuat sebuah program penghitung sebuah luas bangun datar. disini lo bakal ngebuat banyak program didalam satu program. kok bisa ya ?
caranya pake case of . case of di pake waktu lo mau membuat sebuah kelompok data yang nantinya akan di tampilkan dengan cara kita memasukkan suatu pilihan.
contoh kasus.
buatlah sebuah program yang akan menampilkan:
PILIHAN PROGRAM
1.program lingkaran
2. program persegi
3. program persegi panjang
nah bingung kan lo?
nih gan gue kasih lo jawabannya. pertama, program ini boleh menggunakan aplikasi turbo pascal maupun borland delphi.
kalo gue sih prefer pake borland delphi 
)
ini dia sodara2 listingnya silahkan bagi pengguna borlan delphi bisa langsung di co-pas
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
phi=3.14;
var
pilihan, r,s,p,l: integer;
luas : real;
begin
writeln('selamat datang di program hitung luas');
writeln(' pilihan program:');
writeln('1. luas lingkaran');
writeln('2. luas persegi');
writeln('3. luas persegi panjang');
writeln('masukkan luas bangun data yang ingin dihitung: ');
read(pilihan);
case pilihan of
1:
begin
writeln('program lingkaran');
write('masukkan jari-jari lingkaran: ');
read(r);
luas:= phi*r*r;
writeln('jadi luasnya adalah: ',luas:2:2, 'cm2');
readln;
end;
2:
begin
writeln('program persegi');
write('masukkan sisi persegi: ');
read(s);
luas:=s*s;
writeln('jadi luasnya adalah: ',luas:2:2,'cm2');
readln;
end;
3:
begin
write('program persegi panjang');
writeln('masukan panjang : ');
read(p);
writeln('masukkan lebar: ');
readln(l);
luas:= p*l;
writeln('jadi luasnya adalah: ',luas:2:2,'cm2');
readln;
end;
end;
readln;
end.
kalo berhasil, ntar output lo bakal jadi kayak gini,
gimana bro? mantab kan tolong di rate ya. komen juga boleh
xoxo
3 Tanggapan to "PROGRAMING FOR DUMMIES PART 2 (PASCAL – membuat program penghitung luas)"
Tinggalkan Balasan
GaluhBoutique EtAccessoires on fb :)
flag counter
CLUB COOEE CHAT-3D
MAMPIR ? WAJIB KOMEN! :)
 | tohir on PROGRAMING FOR DUMMIES PART 2 … |
 | Anne'linnha Che Moet… on SURAT SAHABAT DARI TAHUN … |
 | anak putu on Belajar bahasa pemrograman PAS… |
 | kelly on SURAT SAHABAT DARI TAHUN … |
 | hasbi on Belajar bahasa pemrograman PAS… |
MY LOVE TUMBLR
- #seputarKP Februari 7, 2012haloo , im gonna share my experience around my internship or we just called it #KPfail. it is between me, @nichan91 and @acicuceco episode 1 : me, achi and irma want to go downstairs which is 0 floor. *ding* the elevator stopped . we ran out of the elevator but suddenly…….. “where were we?? this is the 1st floor” and “why we get out of the lift?” stupiiiiiid […]
- "Definition of TIME…!
Slow…when you wait
Fast…when you’r Afraid
Long…when you’r Sad
Short…when you’r..." Februari 6, 2012“Definition of TIME…! Slow…when you wait Fast…when you’r Afraid Long…when you’r Sad Short…when you’r happy Endless..when you’r in Pain Never feel it…when you’r Content Deadly…when you’r bored/Alone Time can only be determined by your feelings and your mental condition not by clock hands… time is very precious in life” - when the time goes by, use that as a s […]
- how i met my friend ashley . and it was fun!! Februari 5, 2012how i met my friend ashley . and it was fun!!
- i made this for my sis. what a sweet of me. xD Februari 5, 2012i made this for my sis. what a sweet of me. xD
- 1st day Practical Trainee Januari 24, 2012Hello mello…. 24 Januari 2012 adalah hari resmi pertama gue sebagai pelaku kerja praktek di PT PLN Persero (P3B) Cinere. hari dimulai dari pukul 05.00 . “Faniiiiiiiiiiiiiiiiiiiiiiiiiiiii!!!!!!!!!!!!!!!!!! BAAAAANGGGGGUUUUUUNNNNN!!” wanjiiiiir kata gue ini masih jam brapa nyaaaak?? ” mbak lo bangun mbaaaaak ” (adek gue) *masih ngebo* biarin, dia ga mau kerja […]
- kartu sakti beat the cop Januari 23, 2012mom : udah belok aja ngikutin polisinya me: kan lampu merah cop : *dijegat polisi* bisa liat surat2nya? ikut saya ke polsek mom : *ngeluarin surat sakti * cop : oh maaf ibu, silahkan dilanjutin perjalanannya me: *devil laugh*
- ketika sapi bertemu dengan kebo Januari 21, 2012Mr.D : asslm Me : walaikmsalam Mr. D: apa kbr bun,.. Me : alhamdulillah sehaat, lo apa kabar? Mr .D : alhamdulillah stabil,.. Me : haha Mr. D : kok ketawa? Me : gapapa dong. lagi dimana? Mr.D : kasih tau gak yaah?? :P hmmm... Me : ___-___ gue udah didepok looh Mr. D : hhm.. kangen yeeh??? Me : astaghfirullah [-_-] Mr.D : gpp kali bun,..km dah berubh kyaknya […]
- "Im sorry that i acted such a douche. Don’t know why it could happen. Everyone have a baggage...." Januari 21, 2012“Im sorry that i acted such a douche. Don’t know why it could happen. Everyone have a baggage. I really need you to carry on that together with me. I really sorry. Can we be friend again?” - Everybody have a mistake
- time vs joy Januari 21, 2012Gue nulis ini dalam perjalanan gue ke jakarta, td sempet kepikiran juga ternyata . Pertanyaan itu akan muncul. should i? Lo akan sadar kalo lo udah melewati masa puncak. Ini saat lo mulai mikir, lo itu ngapain lakuin ini itu dll. Kalo pada akhirnya pasti ada yg dikorbankan. Entah nilai, keluarga, sahabat lo atau bahkan diri sendiri. Apa harus gue ikut pusman […]
- "1. Great achievers develop their mental energy into vision
2. Great achievers develop their physical..." Januari 15, 2012“1. Great achievers develop their mental energy into vision 2. Great achievers develop their physical energy into discipline 3. Great achievers develop their emotional energy into passion 4. Great achievers develop their spiritual energy into conscience” - Part 1 : Express Your Voice - The 8th Habit
Desember 11, 2010 pada 6:22 am
mantapsssssssssss wessssss………
Desember 11, 2010 pada 6:25 am
thank you bro. semoga bermanfaat
)