jawaban uas silahkan klik atau dwodload di sini '''''''' di sini
UAS PBO.doc
Selasa, 29 Juni 2010
Jumat, 25 Juni 2010
neva ne
PEMERAN KCB....
1. KHAIRUL AZZAM
Pemuda dari Kartasura, Solo, Jawa Tengah. Warna kulitnya sawo matang. Bertubuh ramping. Terlihat kurus karena prihatin, tapi tidakkerempeng. Olahragawan alam. Pekerja keras. Ulet. Tingginya ideal ukuran orangIndonesia. Berusia 28 tahun. Asli jawa tengah. Hatinya mudah sekali tersentuh.Hatinya basah jika rindu pada ibu dan adik-adiknya.
Azzam mudah akrab dengan siapa saja dan suka menolong. Diantara teman-teman satu flatnya ia yang dituakan. Bakat kepemimpinannya nampakpada sifat disiplinnya, tegas, ngemong, dan bisa bercanda . Azzam adalahtipe orang yang berusaha untuk marah,cinta dan benci karena Allah SWT. Emosinyabisa naik jika prinsip hidupnya dilecehkan, terutama jika menyangkut nilai-nilai Islam yang sangat dia junjung tinggi.
Selama hampir sembilan tahun, ia hidup prihatin di Mesir.Ia menekuni bisnis makanan (tempe, bakso dan katering) sambil meneruskanprogram S1 nya yang tak kunjung selesai. Azzam pengagum ulama-ulama Al Azhar,diantaranya Syaikh Abdul Halim Mahmud, Prof. Dr. Ibrahim Khalifah, Dr. YusufAl-Qardhawi dll. Mahasiwa Fakultas Ushuluddin di Universitas Al Azhar.Cita-citanya sebenarnya ingin meraih doktor di Al Azhar, juga ingin jadipengusaha sukses kaya raya. Gemarolahraga, terutama sepak bola; pernah mendapat gelar ‘bek terbaik’ dan dijuluki‘Maldini from Java’ . Di tengah-tengah kesibukannya membuat tempe, berjualanbakso, dan melayani katering, ia masih menyempatkan untuk bertalaqqi Al Qurandan kitab Al Hikam pada seorang imam masjid di dekat tempat tinggalnya.
Rasa hormat dan kasih sayang yang tinggi pada ibunya, danpada adik-adik perempuannya, yang membuat Azzam unik dalam menilai wanita.Wajah Azzam sebenarnya tampan, hanya saja sedikit tertutupi oleh garis-gariskeprihatinannya. Sekilas ia nampak biasa saja, namun jika diamati dengan detilwajahnya memiliki pesona di atas rata-rata. Potongan rambutnya selalu rapi.Kedua rahangnya nampak kuat. Ada jenggot tipis di dagunya. Bibirnya selalumengulum senyum. Sorot kedua matanya tegas menyiratkan kepercayaan dirinya yangkuat sebagai entrepreneur muda. Suaranya enak didengar dan berwibawa.
Diperankan oleh: M. CHOLIDI ASADIL ALAM
azzam_250_resize
Pria asli Pasuruan kelahiran 30 Maret 1989 ini terpilih untuk memerankan karakter Azzam. Setelah lulus SMA di Jakarta tahun 2007 lalu, ia memilih untuk mendalami agama di Pondok Pesantren Darul Islah. Di sela-sela kesibukannya mendalami agama, ia juga menjadi distributor salah satu produk sarung di Jawa Timur untuk dipasarkan di Jakarta.
Dengan tinggi 185cm dan berat 80kg, Cholidi juga memiliki segudang prestasi yang cukup membanggakan, yang juga menjadi nilai plus untuk dapat memerankan karakter Azzam. Prestasi tersebut antara lain : Juara I Peragaan Busana Muslim Jombang [th.2000], Juara I Cak&Yuk Cilik Kab. Pasuruan; Juara I Peragaan Busana Muslim se-Jawa Timur [2001]; Juara I Duta Olahraga DKI [2005]; Duta Wisata Pulau Seribu; Juara I Liga Sepak Bola Pelajar Jak-Sel; Juara II Karate Se-DKI [2006]; Juara I Turnamen Voli Tingkat SMU [2006 & 2007].
Dengan segudang bakatnya, ilmu agama yang baik, berpenampilan menarik & postur tubuh proporsional, tak salah jika tim juri memilihnya untuk dapat memerankan karakter Azzam.
——————————————————————————–
3. ELIANA PRAMESTHI ALAM
Putri tunggal Duta Besar RI. di Mesir. Cantik, nampakgaris keindoan. Tingginya semampai proporsional. Raut mukanya menampakkankecerdasannya. Pendidikan S1 di EHESS Perancis (pendidikan tinggi yang banyakmenelorkan peneliti di Indonesia – terutama bidang ilmu sosial) dan kini sedangmengambil S2 di American University in Cairo. Ia bisa menulis opini di koran. Bahkan tulisannya dianggap mencerminkan perpaduanseorang jurnalis, sastrawan dan diplomat ulung.
Eliana, demikian dia biasa dipanggil, sangat enerjik dandinamis. Gerakannya gesit layaknya orang Dalam beberapa hal dia sangat agresif,khususnya yang berkaitan dengan sesuatu yang dia anggap penting bagikehidupannya, misalnya karier, pergaulan terbuka ala barat. Pendek kata sangatagresif pada semua yang dia anggap menyenangkan hatinya.
Dalam menilai pria Eliana tidak memandangstatus sosial maupun ekonomi, tetapi lebih pada intelektualitas, semangatnyadalam perjuangan hidup, dan ketampanan wajah. Kelihatannya semuanya ini karenadidikan orangtuanya. Namun sayangnya orangtuanya tidak cukup memberikanpendidikan agama, sehingga dalam menghadapi dan menyelesaikan persoalan jarangmenyertakan agama sebagai bahan pertimbangan. Selama kuliah di Perancis Eliana sudahbeberapa kali ganti pacar. Pendekkata Eliana sangat terpola dengan gaya hidup Eropa yang bebas.
Sangat otoriter, mungkin karena anaktunggal dan memang dasarnya cerdas dan perintahnya nyaris tak pernah keliru. Namun di balik sifat otoriternya, Eliana bisa mendengarpendapat orang lain dan bisa menghargai prinsip hidup orang lain. Elianamemiliki postur tubuh putih mulus cantik, proporsional, simetrik dan ‘menarikperhatian’ – hal ini mudah diapresiasi lantaran Eliana selalu tampil dengankostum yang agak ketat dan harum. Kalau berbicara Eliana sangat memikat, selainkarena warna suaranya jernih, juga karena dia memang anak diplomat, cerdas danberani. Bicaranya cepat tapiartikulasinya jelas sampai ke suku suku kata. Sorot matanya terkadang terkesanmenggoda.
elliana_250_resize1
Diperankan oleh: ALICE SOFIE NORIN
Wanita kelahiran Norwegia 19 Januari 2007 ini telah malang melintang di dunia modeling sejak umur 13 tahun. Saat ini ia lebih banyak menghabiskan waktunya sebagai bintang sinetron di rumah produksi Sinemart yang berjudul Assalamualaikum Cinta. Judul-judul sinetron yang telah Alice bintangi lainnya antara lain : Wulan, Kasih, Diva, Putri Kembar, dll.
Walaupun sibuk menjalani syuting sinetron, Alice tidak mengubur keinginannya untuk menjadi sutradara. Debut pertamanya adalah video klip berjudul “Rusty Guitar” yang terdapat di album “Keluar Malam Repackage” milik suaminya DJ Riri Mestica.
Dapat memerankan tokoh Eliana pun menjadi salah satu impian Alice. Untuk memperbesar peluangnya, Alice pun mengasah kemampuan mengajinya dengan mendatangkan guru ngaji 4x seminggu. Perjuangan Alice tidak sia-sia. Tim juri melihat perkembangan pesat dalam diri Alice dari masa audisi sampai karantina terakhir. Hingga tim juri pun menjatuhkan pilihan pada Alice untuk memerankan tokoh Eliana.
——————————————————————————–
2. FURQAN
Pemuda anak orang kaya bertampang khas melayu, umurnyaseusia dengan Azzam. Wajahnya tampan. Dalam dirinya mengalir darah Bugis ayahnya dan darah Betawi ibunya. Berbadan sehat, tegap, berkulit kuning langsatdengan raut wajah cerah khas melayu. Senyumnya indah.
Furqan mahasiswapasca sarjana Universitas Cairo bidang Tarikh wal Hadharah ( SejarahPeradaban ). Penuh percaya diri, will be planed, rasional dan sangatkalkulatif dalam menentukan suatu langkah. Sadar sebagai intelektual. Furqanmeski gayanya jelas sangat intelektual tapi ada pragmatisme di dalamnya.Dibesarkan dalam lingkungan. keluarga yang sangat mendorong dan menghargaikompetisi, kualitas, prestise dan status.
Gaya hidupnya boros. Suka pada kemewahan. Ekspresinyawajahnya agak tenang cenderung dinginmeski tatapan matanya yang bulat itu selalu tajam. Furqan penggemar buku-bukusejarah. Sebenarnya ia kurang suka pada dunia bisnis. Ia lebih suka padasejarah. Tapi lingkungan keluarganya membuatnya akrab dengan dunia bisnis.
Salah satu kekurangan Furqan adalah tidak bisa berpikirjernih dan dingin di saat panik. Tapi sesungguhnya ketika tidak panik Furqanbisa berbicara dengan tertib dan runtut. Ia pernah jadi Ketua PPMI Mesir.Suaranya microphonist – empuk, jelas dan merdu, tapi masih kalahberwibawa dibanding Azzam.
furqon_250_resize1
Diperankan oleh: ANDI ARSYIL RAHMAN PUTRA
Andi, pria asal Makassar kelahiran 15 September 1987, saat ini menjalani hari-harinya sebagai Mahasiswa di STIMIK Dipanegara, juga sebagai Duta Pariwisata Kota Makassar. Di sela-sela kesibukannya, ia mencoba untuk menjadi tokoh Furqon dalan Audisi Film Ketika Cinta Bertasbih. Tidak sia-sia, setelah melalui seleksi yang sangat ketat, ia akhirnya dipilih oleh tim juri untuk memerankan tokoh Furqon.
Seperti 4 pemeran tokoh utama lainnya, Andi juga memiliki segudang prestasi yang antara lain : Juara 3 Lomba Fisika “The Most Creative Student”; Juara I Wajah IT; Juara I Duta Kawasaki [2007]; Busana Terbaik ke-2 Lomba Busana Adat tk. Nasional di TMII; Juara I Pemilihan Dara & Daeng [2008]; Juara II Pemilihan Model Makassar Terkini; Duta Pariwisata Kota Makassar Sulawesi Selatan.
——————————————————————————–
4. ANNA ALTHAFUNNISA
Gadis Jawa, berusia menjelang 25 tahun, putri seorangkiayi. Anna, dia biasa dipanggil begitu, secara fisik hampir serupa Eliana. Iatidak kalah cantik dibanding Eliana. Ia adalah putri Jawa nan ayu. Kulitnyakuning langsat. Mukanya anggun mempesona. Ia memiliki aura kecantikan dankeanggunan melebihi Eliana.
Kalau bicara tegas, tenang sambil terus menatap lawanbicaranya tapi dengan pandangan tetap santun. Pribadinya tergolong serius jikadilihat dari usianya yang masih sangat muda. Apalagi jika dibandingkan denganumumnya gadis-gadis yang seusia dengannya. Sangat mencintai ilmu dan buku.Belanja buku dan kitab adalah hobinya.
Anna mahasiswa S2 Kuliyyatul Banat Al Azhar University.Dalam dirinya ada kedalaman khazanah keilmuan Islam klasik dan ada keprigelanmenganalisis. Anna sangat menguasai tata bahasa Arab dan Ilmu Ushul Fiqh.Bahasa Inggrisnya sama baiknya dengan bahasa Arabnya. Ia pernah tinggal diWales, Inggris.
Cara berpakaiannya Islami, namun tampak ia sangatmenguasai pemilihan warna. Jilbab dan pakaiannya semakin membuat anggunpenampilannya. Anna tipe orang yang tidak banyak bicara. Namun jika sudahbicara, kata-katanya seolah menyihir siapa pun yang mendengarnya. Kedua matanyabening dan teduh.
Anna orang yang rendah hati, tapi ia adalah gadis yangsangat teguh memegang keyakinan yang ia anggap benar. Dalam menyelesaikan suatumasalah rujukan pertamanya adalah ajaran agama yang ia yakini kebenarannya. DanAnna adalah orang yang sangat teliti melihat dasar-dasar agama. Tradisinyamerujuk kepada kitab-kitab induk sangat kuat.
Uniknya, Anna ternyata adalah pecinta karya sastra. Diabanyak membaca karya-karya sastra baik klasik maupun kontemporer. Tapi ia bukansastrawan, tidak menulis karya sastra.
anna_250_resize
Diperankan oleh: OKI SETIANA DEWI
Dara kelahiran Batam 13 Januari 1989, awalnya mendaftar untuk memerankan karakter Husna. Tapi diperjalanan karantina, ia akhirnya disarankan oleh Juri untuk masuk dalam kelompok pemeran Anna. Walaupun sempat kaget dan minim persiapan untuk memerankan karakter Anna, akhirnya Oki terpilih untuk menjadi pemeran tokoh Anna. Mungkin juri telah melihat potensi Oki untuk menjadi Anna dibandungkan Husna.
Saat ini Oki menjalani kesibukannya sebagai mahasiswi semester 3 di Sastra Belanda Fakultas Ilmu Budaya Universitas Indonesia. Selain cantik dan pintar, Oki juga memiliki segudang prestasi, antara lain : Putri Bunga Argadia Tingkat Nasional di Jakarta; Unggulan Covergirl Aneka Yess [2003]; Princess Fotogenic Hotel Mulia Panorama Batam [2004]; Juara I Busana Muslim “Anak Negeri Lancang Kuning” se-Kepulauan Riau; Juara II Speech Contest tk. SLTA se-Jabodetabek PPPG Bahasa, 2nd Winner Debating Constest tk. Provinsi Jawa Barat [2005]; Mahasiswa Baru Terbaik “Orientasi Kehidupan Kampus” UI [2007]; Aktris Terbaik Festival Teater “Petang Kreatif” FIB UI 2008.
——————————————————————————–
5. AYATUL HUSNA
Adikkandung Azzam. Biasa dipanggil Husna. Psikolog muda, asisten dosen di UNS Solo.Umurnya sepadan dengan Anna. Waktu remaja pernah sangat nakal, dia sadarsetelah kenakalannya itu menyebabkan ayahnya kecelakaan dan akhirnya meninggaldunia.
Husnajuga seorang cerpenis muda yang lagi naik daun. Antologi cerpennya memenangkan penghargaanDIKNAS. Secara fisik Husna tidak secantik Anna atau Eliana. Tapi ia memiliki innerbeauty. Tutur katanya halus. Kalimat-kalimatnya sangat ia jaga. Husnasangat mencintai ibu, kakak dan adik-adiknya.
Husna berjilbab. Hidupnya bersahaja. Pakaian yang ia kenakan lebih sederhana danlebih apa adanya dibandingkan Anna. Husna tampak sedikit lebih gagah dibandingkan Anna. Gerakannya gesit dan gaul. Husna waktu remaja pernah berpenampilan tomboy.
Wajahnya khas Solo, agak sawo matang seperti Azzam, kakaknya. Senyumnya manis. Sukabercanda, tapi sangat menghayati unggah-ungguh dan budaya Jawa. Jikabicara terkadang kalimat-kalimatnya seperti tertata puitis, sangat nyaman bagiyang mendengarkannya. Ia psikolog muda yang disukai anak remaja.
Husnajuga seorang cerpenis muda yang lagi naik daun. Antologi cerpennya memenangkan penghargaanDIKNAS. Secara fisik Husna tidak secantik Anna atau Eliana. Tapi ia memiliki innerbeauty. Tutur katanya halus. Kalimat-kalimatnya sangat ia jaga. Husnasangat mencintai ibu, kakak dan adik-adiknya.
Husna berjilbab. Hidupnya bersahaja. Pakaian yang ia kenakan lebih sederhana dan lebih apa adanya dibandingkan Anna. Husna tampak sedikit lebih gagah dibandingkan Anna. Gerakannya gesit dan gaul. Husna waktu remaja pernahberpenampilan tomboy.
Wajahnyakhas Solo, agak sawo matang seperti Azzam, kakaknya. Senyumnya manis. Sukabercanda, tapi sangat menghayati unggah-ungguh dan budaya Jawa. Jikabicara terkadang kalimat-kalimatnya seperti tertata puitis, sangat nyaman bagiyang mendengarkannya. Ia psikolog muda yang disukai anak remaja.
husna_250_resize
Diperankan oleh: MEYDA SEFIRA
Di masa kecilnya, Meyda ternyata sudah dekat dengan dunia modeling. Di masa sekolah, ia pernah menjadi Model Sepeda Polygon, Model Perumahan Citraland Surabaya, dan model brosur bimbingan belajar SSC. Di masa kuliahnya, ia juga menjadi model freelance Skaters [2007]. Bakatnya tidak hanya itu, dara kelahiran Bandung 20 Mei 1988 ini juga merupakan Juara ke-2 untuk nilai UAN tertinggi di sekolahnya, juga memperoleh predikat sebagai Mahasiswa Berprestasi ITENAS jurusan Teknik Lingkungan tahun 2008.
Meyda menjalani hari-harinya sebagai mahasiswi semester V Teknik Lingkungan ITENAS. Keaktifannya dalam Himpunan Mahasiswa dan Paduan Suara, dipadu bakatnya dan penampilan yang menarik, tim juri pun akhirnya menjatuhkan pilihan pada Meyda untuk memerankan karakter Husna, adik Azzam.
program pascal aq
program mahasiswa;
uses wincrt;
TYPE
recmhs=record
nama:string;
end;
Var
JumlahBayar:Array[1..100] Of Integer;
DataKei,BanyakDataKei,A,B,C,jum_brg:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Ulang:boolean;
Const
KodeKelas:Array [1..3] Of Integer=(1,2,3);
Kelas: array [1..3] of string [20]=('BAHASA INGGRIS','BAHASA PERANCIS','BAHASA JAPAN');
BiayaPendaftaran: array [1..3] of real =(100000,150000,200000);
BiayaKursus: array [1..3] of real = (1000000,1500000,2000000);
PROCEDURE TAMPILAN_AWAL ;
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(33,12);writeln('@ DATA MAHASISWA @');
gotoxy(33,13);writeln('STMIK PALANGKARYA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER KE PROGRAM UTAMA: ');
READLN;
END;
PROCEDURE MENU (VAR PIL:INTEGER);
begin
clrscr;
gotoxy(35,1);writeln('Data Harga Barang');
gotoxy(22,2);writeln('===========================================');
gotoxy(33,3);writeln('NURIAH EVA YANTI W.D');
gotoxy(33,4);WRITELN('C0955201008');
gotoxy(22,5);writeln('===========================================');
WRITELN;
WRITELN;
WRITELN;
gotoxy(10,9);writeln('============================================');
gotoxy(19,10);writeln('** MENU PILIHAN PROGRAM **');
gotoxy(10,11);writeln('============================================');
gotoxy(14,12);writeln(' 1.ISI DATA MAHASISWA');
gotoxy(14,13);writeln(' 2.TABEL MAHASISWA ');
gotoxy(14,14);writeln(' 3.SELESAI');
gotoxy(10,15);writeln('============================================');
gotoxy(19,16);write(' PILIHAN ANDA (1-3) = ');
readln(PIL);
GOTOXY(10,17);WRITELN('============================================');
end;
PROCEDURE ISI_MAHASISWA;
VAR
LAGI_BRG:CHAR;
Begin
Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' STMIK PALNGKARAYA');
WriteLn(' *******************************************************************');
WriteLn(' |Kode KELAS | KELAS | BIAYA PENDAFTARN | BIAYA KURSUS |');
WriteLn(' *******************************************************************');
WriteLn(' | 1 | BAHASA INGGRIS | 100.000 | 1000.000 |');
WriteLn(' | 2 | BAHASA PERANCIS | 150.000 | 1500.000 |');
WriteLn(' | 3 | BAHASA JAPAN | 200.000 | 2000.000 |');
WriteLn(' *******************************************************************');
WRITELN;
Write(' MASUKKAN KODE KELAS YANG AKAN ANDA PILIH.? ');
ReadLn(KodeKelas[datakei]);
If KodeKelas[datakei]=1 Then
begin
WriteLn(' KELAS = ',Kelas[1]);
end
else
If KodeKelas[datakei]=2 Then
begin
WriteLn(' KELAS = ',Kelas[2]);
end
else
If KodeKelas[datakei]=3 Then
begin
WriteLn(' KELAS = ',Kelas[3]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' BIAYA PENDAFTARAN= Rp.',BiayaPendaftaran[KodeKelas[datakei]]:5:0);
Writeln (' BIAYA KURSUS PERBULAN = Rp.',BiayaKursus[KodeKelas[datakei]]:5:0);
Total_bayar[datakei]:=BiayaPendaftaran[KodeKelas[datakei]]+BiayaKursus[KodeKelas[datakei]];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi data lagi tekan Y,tekan Sembarang untuk keluar = ) ? ');
ReadLn(lagi);
Until UpCase(lagi)<>'Y';
END;
PROCEDURE LAPORAN;
VAR
J:INTEGER; LIHAT_LAGI:CHAR;
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BAYAR ',Kelas[KodeKelas[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA CALON MAHASISWA BARU');
writeln(' STMIK PALANGKRAYA');
writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG ');
WRITELN(' ==============================================================================');
writeln(' KODE I KELAS I BIAYA PENDAFTARAN I BIAYA KURSUS I TOTAL BAYAR');
WRITELN(' ==============================================================================');
For DataKei:=1 to BanyakDataKei Do
WriteLn(' ',KodeKelas[DataKei],' ',Kelas[KodeKelas[DataKei]],' Rp. ',BiayaPendaftaran[KodeKelas[DataKei]]:5:0,
' Rp.',BiayaKursus[KodeKelas[DataKei]]:5:0,' Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln(' =============================================================================');
writeln(' Apakah Anda ingin mengisi Data lagi tekan Y,tekan Sembarang untuk keluar =');READLN(LIHAT_LAGI);
CASE LIHAT_LAGI OF
'Y':ISI_MAHASISWA;
'T':EXIT;
END;
end;
procedure tampilan_akhir;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(31,10);Writeln('DATA CALON MAHASISWA BARU');
Gotoxy(34,11);Writeln('STMIK PALANGKRAYA');
Gotoxy(23,12);Writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA CALON MAHASISWA BARU TELAH SELESAI');
READLN;
End;
var pilih:integer;
begin
ulang:=true;
DataKei:=0;
while ulang do
begin
clrscr;
TAMPILAN_AWAL;
menu (pilih);
case pilih of
1:BEGIN
ISI_MAHASISWA;
jum_brg:=DataKei;
end;
2: LAPORAN;
3: tampilan_akhir;
end;
end;
end. Program harga_barang;
Uses WinCrt;
Var
JumlahBeli:Array[1..100] Of Integer;
DataKei,BanyakDataKei:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Const
NomorBarang:Array [1..10] Of Integer=(1,2,3,
4,5,6,7,8,9,10);
NamaBarang:Array [1..10] Of String[10]=('NOKIA','NEXSIAN','SAMSUNG',
'MOTOROLA','SIEMENS','BLACKBERI','H_TACK','K_TOCKS','LG','PANASON');
HargaSatuan:Array [1..10] Of Real =(980000,750000,300000,
990000,950000,400000,300000,200000,500000,790000);
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(29,12);writeln('@ DATA HARGA DAN NAMA BARANG @');
gotoxy(32,13);writeln('COUNTERS PORORIO FUKADA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER KE PROGRAM UTAMA: ');
READLN;
Begin
datakei:=0;
Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' Counters Nevadya Pororio Fukada');
WriteLn(' *********************************************');
WriteLn(' |Kode barang | Nama barang | Harga satuan |');
WriteLn(' *********************************************');
WriteLn(' | 1 | NOKIA | Rp.980.000 |');
WriteLn(' | 2 | NEXSIAN | Rp.750.000 |');
WriteLn(' | 3 | SAMSUNG | Rp.300.000 |');
WriteLn(' | 4 | MOTOROLA | Rp.990.000 |');
WriteLn(' | 5 | SIEMENS | Rp.950.000 |');
WriteLn(' | 6 | BLACKBERI | Rp.400.000 |');
WriteLn(' | 7 | H_TACK | Rp.300.000 |');
WriteLn(' | 8 | K_TOCKS | Rp.200.000 |');
WriteLn(' | 9 | LG | Rp.500.000 |');
WriteLn(' | 10 | PANASON | Rp.790.000 |');
WriteLn(' *********************************************');
WRITELN;
Write(' MASUKKAN KODE BARANG YANG AKAN ANDA BELI.? ');
ReadLn(NomorBarang[datakei]);
If NomorBarang[datakei]=1 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[1]);
end
else
If NomorBarang[datakei]=2 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[2]);
end
else
If NomorBarang[datakei]=3 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[3]);
end
else
If NomorBarang[datakei]=4 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[4]);
end
else
If NomorBarang[datakei]=5 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[5]);
end
else
If NomorBarang[datakei]=6 Then
begin
WriteLn(' NAMA BARANG= ',NamaBarang[6]);
end
else
If NomorBarang[datakei]=7 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[7]);
end
else
If NomorBarang[datakei]=8 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[8]);
end
else
If NomorBarang[datakei]=9 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[9]);
end
else
If NomorBarang[datakei]=10 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[10]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' HARGA SATUAN = Rp.',HargaSatuan[NomorBarang[datakei]]:5:0);
Write (' JUMLAH BELI = ');ReadLn(jumlahbeli[datakei]);
Total_bayar[datakei]:=HargaSatuan[NomorBarang[datakei]] *jumlahbeli[datakei];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi lagi(Y/T) ? ');ReadLn(lagi);
Until UpCase(lagi)<>'Y';
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BELANJA ',NamaBarang[NomorBarang[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA DAN HARGA BARANG');
writeln(' COUNTERS NEVADYA PORORIO');
writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG ');
WRITELN(' =============================================================================');
writeln(' KODE BARANG I NAMA BARANG I HARGA SATUAN I JUMLAH BELI I TOTAL BAYAR ');
WRITELN(' =============================================================================');
For DataKei:=1 to BanyakDataKei Do
WriteLn(' ',NomorBarang[DataKei],' ',NamaBarang[NomorBarang[DataKei]],' Rp.',
HargaSatuan[NomorBarang[DataKei]]:5:0,' ',JumlahBeli[DataKei],' ','Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
End;
end;
BEGIN
WRITELN;
WRITELN;
WRITELN(' TEKAN ENTER UNTUK KELUAR');
readln;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(33,10);Writeln('DATA DAN HARGA BARANG');
Gotoxy(29,11);Writeln('COUNTERS NEVADYA PORORIO FUKADA');
Gotoxy(23,12);Writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA DAN HARGA BARANG TELAH SELESAI');
exit;
End;
end;
END.
program mahasiswa;
uses wincrt;
TYPE
recmhs=record
nama:string;
end;
Var
JumlahBayar:Array[1..100] Of Integer;
DataKei,BanyakDataKei,A,B,C,jum_brg:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Ulang:boolean;
Const
KodeKelas:Array [1..3] Of Integer=(1,2,3);
Kelas: array [1..3] of string [20]=('BAHASA INGGRIS','BAHASA PERANCIS','BAHASA JAPAN');
BiayaPendaftaran: array [1..3] of real =(100000,150000,200000);
BiayaKursus: array [1..3] of real = (1000000,1500000,2000000);
PROCEDURE TAMPILAN_AWAL;
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(33,12);writeln('@ DATA MAHASISWA @');
gotoxy(33,13);writeln('STMIK PALANGKARYA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER UNTUK KE MENU: ');
READLN;
END;
PROCEDURE MENU (VAR PIL:INTEGER);
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN;
WRITELN;
WRITELN;
gotoxy(10,9);writeln('============================================');
gotoxy(19,10);writeln('** MENU PILIHAN PROGRAM **');
gotoxy(10,11);writeln('============================================');
gotoxy(14,12);writeln(' 1.TAMPILAN AWAL ');
gotoxy(14,13);writeln(' 2.ISI DATA MAHASISWA');
gotoxy(14,14);writeln(' 3.TABEL MAHASISWA ');
gotoxy(14,15);writeln(' 4.SELESAI');
gotoxy(10,16);writeln('============================================');
gotoxy(19,17);write(' PILIHAN ANDA (1-4) = ');
readln(PIL);
GOTOXY(10,18);WRITELN('============================================');
end;
PROCEDURE ISI_MAHASISWA;
VAR
LAGI_BRG:CHAR;
Begin
Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' STMIK PALNGKARAYA');
WriteLn(' *******************************************************************');
WriteLn(' |Kode KELAS | KELAS | BIAYA PENDAFTARN | BIAYA KURSUS |');
WriteLn(' *******************************************************************');
WriteLn(' | 1 | BAHASA INGGRIS | 100.000 | 1000.000 |');
WriteLn(' | 2 | BAHASA PERANCIS | 150.000 | 1500.000 |');
WriteLn(' | 3 | BAHASA JAPAN | 200.000 | 2000.000 |');
WriteLn(' *******************************************************************');
WRITELN;
Write(' MASUKKAN KODE KELAS YANG AKAN ANDA PILIH.? ');
ReadLn(KodeKelas[datakei]);
If KodeKelas[datakei]=1 Then
begin
WriteLn(' KELAS = ',Kelas[1]);
end
else
If KodeKelas[datakei]=2 Then
begin
WriteLn(' KELAS = ',Kelas[2]);
end
else
If KodeKelas[datakei]=3 Then
begin
WriteLn(' KELAS = ',Kelas[3]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' BIAYA PENDAFTARAN= Rp.',BiayaPendaftaran[KodeKelas[datakei]]:5:0);
Writeln (' BIAYA KURSUS PERBULAN = Rp.',BiayaKursus[KodeKelas[datakei]]:5:0);
Total_bayar[datakei]:=BiayaPendaftaran[KodeKelas[datakei]]+BiayaKursus[KodeKelas[datakei]];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi data lagi tekan Y,tekan Sembarang untuk keluar) ? ');
ReadLn(lagi);
Until UpCase(lagi)<>'Y';
END;
PROCEDURE LAPORAN;
VAR
J:INTEGER; LIHAT_LAGI:CHAR;
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BAYAR ',Kelas[KodeKelas[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA MAHASISWA');
writeln(' STMIK PALANGKRAYA');
writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG ');
WRITELN(' ==============================================================================');
writeln(' KODE I KELAS I BIAYA PENDAFTARAN I BIAYA KURSUS I TOTAL BAYAR');
WRITELN(' ==============================================================================');
For DataKei:=1 to BanyakDataKei Do
WriteLn(' ',KodeKelas[DataKei],' ',Kelas[KodeKelas[DataKei]],' Rp. ',BiayaPendaftaran[KodeKelas[DataKei]]:5:0,
' Rp.',BiayaKursus[KodeKelas[DataKei]]:5:0,' Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln('================================================================================');
writeln(' Apakah Anda ingin mengisi Data lagi tekan Y,tekan Sembarang untuk keluar');READLN(LIHAT_LAGI);
CASE LIHAT_LAGI OF
'Y':ISI_MAHASISWA;
'T':EXIT;
END;
end;
procedure tampilan_akhir;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(31,10);Writeln('DATA CALON MAHASISWA BARU');
Gotoxy(34,11);Writeln('STMIK PALANGKRAYA');
Gotoxy(23,12);Writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA CALON MAHASISWA BARU TELAH SELESAI');
READLN;
EXIT;
End;
var pilih:integer;
begin
ulang:=true;
DataKei:=0;
while ulang do
begin
clrscr;
menu (pilih);
case pilih of
1: TAMPILAN_AWAL;
2:BEGIN
ISI_MAHASISWA;
jum_brg:=DataKei;
end;
3: LAPORAN;
4: tampilan_akhir;
end;
end;
end.
Program harga_barang;
Uses WinCrt;
type
recharga=record
nama_barang:string;
end;
Var
JumlahBeli:Array[1..100] Of Integer;
DataKei,BanyakDataKei,A,B,C,jum_brg:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Ulang:boolean;
Const
NomorBarang:Array [1..10] Of Integer=(1,2,3,
4,5,6,7,8,9,10);
NamaBarang:Array [1..10] Of String[10]=('MEJA','KURSI','LEMARI',
'RAK BUKU','TEMPAT TIDUR','MEJA BELAJAR','PINTU','CENDELA','KURSI GOYANG','RAK BAJU');
Const
KUALITAS:Array [1..3] Of integer =(1,2,3);
HARGA_SATUAN:ARRAY [1..3] of real=(1000000,750000,500000);
PROCEDURE MENU (VAR PIL:INTEGER);
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(29,12);writeln('@ DATA HARGA DAN NAMA BARANG @');
gotoxy(33,13);writeln('TOKO PORORIO FUKADA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER KE PROGRAM UTAMA: ');
READLN;
begin
clrscr;
gotoxy(35,1);writeln('Data Harga Barang');
gotoxy(22,2);writeln('===========================================');
gotoxy(33,3);writeln('NURIAH EVA YANTI W.D');
gotoxy(33,4);WRITELN('C0955201008');
gotoxy(22,5);writeln('===========================================');
WRITELN;
WRITELN;
WRITELN;
gotoxy(10,9);writeln('============================================');
gotoxy(19,10);writeln('** MENU PILIHAN PROGRAM **');
gotoxy(10,11);writeln('============================================');
gotoxy(14,12);writeln(' 1.ISI DATA HARGA BARANG');
gotoxy(14,13);writeln(' 2.TABEL DATA HARGA BARANG ');
gotoxy(14,14);writeln(' 3.SELESAI');
gotoxy(10,15);writeln('============================================');
gotoxy(19,16);write(' PILIHAN ANDA (1-3) = ');
readln(PIL);
GOTOXY(10,17);WRITELN('============================================');
end;
END;
PROCEDURE ISI_BARANG;
VAR
LAGI_BRG:CHAR;
Begin
Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' Toko Nevadya Pororio Fukada');
WriteLn(' **************************** [************************');
WriteLn(' |Kode barang | Nama barang | [Kualitas l Harga satuan]');
WriteLn(' **************************** [ A l RP.1000.000 ]');
WriteLn(' | 1 | MEJA | [ B l RP. 750.000 ]');
WriteLn(' | 2 | KURSI | [ C l RP. 500.000 ]');
WriteLn(' | 3 | LEMARI | [************************');
WriteLn(' | 4 | RAK BUKU |');
WriteLn(' | 5 | TEMPAT TIDUR|');
WriteLn(' | 6 | MEJA BELAJAR|');
WriteLn(' | 7 | PINTU |');
WriteLn(' | 8 | CENDELA |');
WriteLn(' | 9 | KURSI GOYANG|');
WriteLn(' | 10 | RAK BAJU |');
WriteLn(' ****************************');
WRITELN;
Write(' MASUKKAN KODE BARANG YANG AKAN ANDA BELI.? ');
ReadLn(NomorBarang[datakei]);
If NomorBarang[datakei]=1 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[1]);
end
else
If NomorBarang[datakei]=2 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[2]);
end
else
If NomorBarang[datakei]=3 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[3]);
end
else
If NomorBarang[datakei]=4 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[4]);
end
else
If NomorBarang[datakei]=5 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[5]);
end
else
If NomorBarang[datakei]=6 Then
begin
WriteLn(' NAMA BARANG= ',NamaBarang[6]);
end
else
If NomorBarang[datakei]=7 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[7]);
end
else
If NomorBarang[datakei]=8 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[8]);
end
else
If NomorBarang[datakei]=9 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[9]);
end
else
If NomorBarang[datakei]=10 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[10]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
Write(' MASUKKAN KUALITAS BARANG YANG AKAN ANDA PILIH.? ');
ReadLn(KUALITAS[datakei]);
If KUALITAS[datakei]=1 Then
begin
WriteLn(' KUALITAS BARANG = ',KUALITAS[1]);
end
else
If NomorBarang[datakei]=2 Then
begin
WriteLn(' KUALITAS BARANG = ',KUALITAS[2]);
end
else
If NomorBarang[datakei]=3 Then
begin
WriteLn(' KUALITAS BARANG = ',KUALITAS[3]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' HARGA SATUAN = Rp.',HARGA_SATUAN[KUALITAS[datakei]]:5:0);
Write (' JUMLAH BELI = ');ReadLn(jumlahbeli[datakei]);
Total_bayar[datakei]:=HARGA_SATUAN[NomorBarang[datakei]] *jumlahbeli[datakei];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi data lagi tekan Y,tekan Sembarang untuk keluar) ? ');
ReadLn(lagi);
Until UpCase(lagi)<>'Y';
END;
PROCEDURE LAPORAN;
VAR
J:INTEGER; LIHAT_LAGI:CHAR;
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BELANJA ',NamaBarang[NomorBarang[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA DAN HARGA BARANG');
writeln(' COUNTERS NEVADYA PORORIO');
writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG ');
WRITELN(' ==============================================================================');
writeln(' KODE BRNG I NAMA BARANG I KWLITAS I HARGA SATUAN I JUMLAH BELI I TOTAL BAYAR');
WRITELN(' ==============================================================================');
For DataKei:=1 to BanyakDataKei Do
WriteLn(' ',NomorBarang[DataKei],' ',NamaBarang[NomorBarang[DataKei]],' ',KUALITAS[DataKei],
' Rp.',HARGA_SATUAN[KUALITAS[DataKei]]:5:0,' ',JumlahBeli[DataKei],' ','Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln('================================================================================');
writeln(' Apakah Anda ingin mengisi Data lagi tekan Y,tekan Sembarang untuk keluar');READLN(LIHAT_LAGI);
CASE LIHAT_LAGI OF
'Y':ISI_BARANG;
'T':EXIT;
END;
end;
procedure tampilan_akhir;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(33,10);Writeln('DATA DAN HARGA BARANG');
Gotoxy(26,11);Writeln('TOKO NEVADYA PORORIO FUKADA');
Gotoxy(23,12);Writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA DAN HARGA BARANG TELAH SELESAI');
READLN;
End;
var pilih:integer;
begin
ulang:=true;
DataKei:=0;
while ulang do
begin
clrscr;
menu (pilih);
case pilih of
1:BEGIN
ISI_BARANG;
jum_brg:=DataKei;
end;
2: LAPORAN;
3: tampilan_akhir;
end;
end;
end.
program mahasiswa;
uses wincrt;
TYPE
recmhs=record
nama:string;
end;
Var
JumlahBayar:Array[1..100] Of Integer;
DataKei,BanyakDataKei,A,B,C,jum_brg:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Ulang:boolean;
Const
KodeKelas:Array [1..3] Of Integer=(1,2,3);
Kelas: array [1..3] of string [20]=('BAHASA INGGRIS','BAHASA PERANCIS','BAHASA JAPAN');
BiayaPendaftaran: array [1..3] of real =(100000,150000,200000);
BiayaKursus: array [1..3] of real = (1000000,1500000,2000000);
PROCEDURE TAMPILAN_AWAL ;
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(33,12);writeln('@ DATA MAHASISWA @');
gotoxy(33,13);writeln('STMIK PALANGKARYA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER KE PROGRAM UTAMA: ');
READLN;
END;
PROCEDURE MENU (VAR PIL:INTEGER);
begin
clrscr;
gotoxy(35,1);writeln('Data Harga Barang');
gotoxy(22,2);writeln('===========================================');
gotoxy(33,3);writeln('NURIAH EVA YANTI W.D');
gotoxy(33,4);WRITELN('C0955201008');
gotoxy(22,5);writeln('===========================================');
WRITELN;
WRITELN;
WRITELN;
gotoxy(10,9);writeln('============================================');
gotoxy(19,10);writeln('** MENU PILIHAN PROGRAM **');
gotoxy(10,11);writeln('============================================');
gotoxy(14,12);writeln(' 1.ISI DATA MAHASISWA');
gotoxy(14,13);writeln(' 2.TABEL MAHASISWA ');
gotoxy(14,14);writeln(' 3.SELESAI');
gotoxy(10,15);writeln('============================================');
gotoxy(19,16);write(' PILIHAN ANDA (1-3) = ');
readln(PIL);
GOTOXY(10,17);WRITELN('============================================');
end;
PROCEDURE ISI_MAHASISWA;
VAR
LAGI_BRG:CHAR;
Begin
Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' STMIK PALNGKARAYA');
WriteLn(' *******************************************************************');
WriteLn(' |Kode KELAS | KELAS | BIAYA PENDAFTARN | BIAYA KURSUS |');
WriteLn(' *******************************************************************');
WriteLn(' | 1 | BAHASA INGGRIS | 100.000 | 1000.000 |');
WriteLn(' | 2 | BAHASA PERANCIS | 150.000 | 1500.000 |');
WriteLn(' | 3 | BAHASA JAPAN | 200.000 | 2000.000 |');
WriteLn(' *******************************************************************');
WRITELN;
Write(' MASUKKAN KODE KELAS YANG AKAN ANDA PILIH.? ');
ReadLn(KodeKelas[datakei]);
If KodeKelas[datakei]=1 Then
begin
WriteLn(' KELAS = ',Kelas[1]);
end
else
If KodeKelas[datakei]=2 Then
begin
WriteLn(' KELAS = ',Kelas[2]);
end
else
If KodeKelas[datakei]=3 Then
begin
WriteLn(' KELAS = ',Kelas[3]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' BIAYA PENDAFTARAN= Rp.',BiayaPendaftaran[KodeKelas[datakei]]:5:0);
Writeln (' BIAYA KURSUS PERBULAN = Rp.',BiayaKursus[KodeKelas[datakei]]:5:0);
Total_bayar[datakei]:=BiayaPendaftaran[KodeKelas[datakei]]+BiayaKursus[KodeKelas[datakei]];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi data lagi tekan Y,tekan Sembarang untuk keluar = ) ? ');
ReadLn(lagi);
Until UpCase(lagi)<>'Y';
END;
PROCEDURE LAPORAN;
VAR
J:INTEGER; LIHAT_LAGI:CHAR;
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BAYAR ',Kelas[KodeKelas[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA CALON MAHASISWA BARU');
writeln(' STMIK PALANGKRAYA');
writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG ');
WRITELN(' ==============================================================================');
writeln(' KODE I KELAS I BIAYA PENDAFTARAN I BIAYA KURSUS I TOTAL BAYAR');
WRITELN(' ==============================================================================');
For DataKei:=1 to BanyakDataKei Do
WriteLn(' ',KodeKelas[DataKei],' ',Kelas[KodeKelas[DataKei]],' Rp. ',BiayaPendaftaran[KodeKelas[DataKei]]:5:0,
' Rp.',BiayaKursus[KodeKelas[DataKei]]:5:0,' Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln(' =============================================================================');
writeln(' Apakah Anda ingin mengisi Data lagi tekan Y,tekan Sembarang untuk keluar =');READLN(LIHAT_LAGI);
CASE LIHAT_LAGI OF
'Y':ISI_MAHASISWA;
'T':EXIT;
END;
end;
procedure tampilan_akhir;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(31,10);Writeln('DATA CALON MAHASISWA BARU');
Gotoxy(34,11);Writeln('STMIK PALANGKRAYA');
Gotoxy(23,12);Writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA CALON MAHASISWA BARU TELAH SELESAI');
READLN;
End;
var pilih:integer;
begin
ulang:=true;
DataKei:=0;
while ulang do
begin
clrscr;
TAMPILAN_AWAL;
menu (pilih);
case pilih of
1:BEGIN
ISI_MAHASISWA;
jum_brg:=DataKei;
end;
2: LAPORAN;
3: tampilan_akhir;
end;
end;
end. Program harga_barang;
Uses WinCrt;
Var
JumlahBeli:Array[1..100] Of Integer;
DataKei,BanyakDataKei:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Const
NomorBarang:Array [1..10] Of Integer=(1,2,3,
4,5,6,7,8,9,10);
NamaBarang:Array [1..10] Of String[10]=('NOKIA','NEXSIAN','SAMSUNG',
'MOTOROLA','SIEMENS','BLACKBERI','H_TACK','K_TOCKS','LG','PANASON');
HargaSatuan:Array [1..10] Of Real =(980000,750000,300000,
990000,950000,400000,300000,200000,500000,790000);
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(29,12);writeln('@ DATA HARGA DAN NAMA BARANG @');
gotoxy(32,13);writeln('COUNTERS PORORIO FUKADA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER KE PROGRAM UTAMA: ');
READLN;
Begin
datakei:=0;
Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' Counters Nevadya Pororio Fukada');
WriteLn(' *********************************************');
WriteLn(' |Kode barang | Nama barang | Harga satuan |');
WriteLn(' *********************************************');
WriteLn(' | 1 | NOKIA | Rp.980.000 |');
WriteLn(' | 2 | NEXSIAN | Rp.750.000 |');
WriteLn(' | 3 | SAMSUNG | Rp.300.000 |');
WriteLn(' | 4 | MOTOROLA | Rp.990.000 |');
WriteLn(' | 5 | SIEMENS | Rp.950.000 |');
WriteLn(' | 6 | BLACKBERI | Rp.400.000 |');
WriteLn(' | 7 | H_TACK | Rp.300.000 |');
WriteLn(' | 8 | K_TOCKS | Rp.200.000 |');
WriteLn(' | 9 | LG | Rp.500.000 |');
WriteLn(' | 10 | PANASON | Rp.790.000 |');
WriteLn(' *********************************************');
WRITELN;
Write(' MASUKKAN KODE BARANG YANG AKAN ANDA BELI.? ');
ReadLn(NomorBarang[datakei]);
If NomorBarang[datakei]=1 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[1]);
end
else
If NomorBarang[datakei]=2 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[2]);
end
else
If NomorBarang[datakei]=3 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[3]);
end
else
If NomorBarang[datakei]=4 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[4]);
end
else
If NomorBarang[datakei]=5 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[5]);
end
else
If NomorBarang[datakei]=6 Then
begin
WriteLn(' NAMA BARANG= ',NamaBarang[6]);
end
else
If NomorBarang[datakei]=7 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[7]);
end
else
If NomorBarang[datakei]=8 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[8]);
end
else
If NomorBarang[datakei]=9 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[9]);
end
else
If NomorBarang[datakei]=10 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[10]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' HARGA SATUAN = Rp.',HargaSatuan[NomorBarang[datakei]]:5:0);
Write (' JUMLAH BELI = ');ReadLn(jumlahbeli[datakei]);
Total_bayar[datakei]:=HargaSatuan[NomorBarang[datakei]] *jumlahbeli[datakei];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi lagi(Y/T) ? ');ReadLn(lagi);
Until UpCase(lagi)<>'Y';
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BELANJA ',NamaBarang[NomorBarang[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA DAN HARGA BARANG');
writeln(' COUNTERS NEVADYA PORORIO');
writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG ');
WRITELN(' =============================================================================');
writeln(' KODE BARANG I NAMA BARANG I HARGA SATUAN I JUMLAH BELI I TOTAL BAYAR ');
WRITELN(' =============================================================================');
For DataKei:=1 to BanyakDataKei Do
WriteLn(' ',NomorBarang[DataKei],' ',NamaBarang[NomorBarang[DataKei]],' Rp.',
HargaSatuan[NomorBarang[DataKei]]:5:0,' ',JumlahBeli[DataKei],' ','Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
End;
end;
BEGIN
WRITELN;
WRITELN;
WRITELN(' TEKAN ENTER UNTUK KELUAR');
readln;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(33,10);Writeln('DATA DAN HARGA BARANG');
Gotoxy(29,11);Writeln('COUNTERS NEVADYA PORORIO FUKADA');
Gotoxy(23,12);Writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA DAN HARGA BARANG TELAH SELESAI');
exit;
End;
end;
END.
program mahasiswa;
uses wincrt;
TYPE
recmhs=record
nama:string;
end;
Var
JumlahBayar:Array[1..100] Of Integer;
DataKei,BanyakDataKei,A,B,C,jum_brg:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Ulang:boolean;
Const
KodeKelas:Array [1..3] Of Integer=(1,2,3);
Kelas: array [1..3] of string [20]=('BAHASA INGGRIS','BAHASA PERANCIS','BAHASA JAPAN');
BiayaPendaftaran: array [1..3] of real =(100000,150000,200000);
BiayaKursus: array [1..3] of real = (1000000,1500000,2000000);
PROCEDURE TAMPILAN_AWAL;
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(33,12);writeln('@ DATA MAHASISWA @');
gotoxy(33,13);writeln('STMIK PALANGKARYA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER UNTUK KE MENU: ');
READLN;
END;
PROCEDURE MENU (VAR PIL:INTEGER);
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN;
WRITELN;
WRITELN;
gotoxy(10,9);writeln('============================================');
gotoxy(19,10);writeln('** MENU PILIHAN PROGRAM **');
gotoxy(10,11);writeln('============================================');
gotoxy(14,12);writeln(' 1.TAMPILAN AWAL ');
gotoxy(14,13);writeln(' 2.ISI DATA MAHASISWA');
gotoxy(14,14);writeln(' 3.TABEL MAHASISWA ');
gotoxy(14,15);writeln(' 4.SELESAI');
gotoxy(10,16);writeln('============================================');
gotoxy(19,17);write(' PILIHAN ANDA (1-4) = ');
readln(PIL);
GOTOXY(10,18);WRITELN('============================================');
end;
PROCEDURE ISI_MAHASISWA;
VAR
LAGI_BRG:CHAR;
Begin
Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' STMIK PALNGKARAYA');
WriteLn(' *******************************************************************');
WriteLn(' |Kode KELAS | KELAS | BIAYA PENDAFTARN | BIAYA KURSUS |');
WriteLn(' *******************************************************************');
WriteLn(' | 1 | BAHASA INGGRIS | 100.000 | 1000.000 |');
WriteLn(' | 2 | BAHASA PERANCIS | 150.000 | 1500.000 |');
WriteLn(' | 3 | BAHASA JAPAN | 200.000 | 2000.000 |');
WriteLn(' *******************************************************************');
WRITELN;
Write(' MASUKKAN KODE KELAS YANG AKAN ANDA PILIH.? ');
ReadLn(KodeKelas[datakei]);
If KodeKelas[datakei]=1 Then
begin
WriteLn(' KELAS = ',Kelas[1]);
end
else
If KodeKelas[datakei]=2 Then
begin
WriteLn(' KELAS = ',Kelas[2]);
end
else
If KodeKelas[datakei]=3 Then
begin
WriteLn(' KELAS = ',Kelas[3]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' BIAYA PENDAFTARAN= Rp.',BiayaPendaftaran[KodeKelas[datakei]]:5:0);
Writeln (' BIAYA KURSUS PERBULAN = Rp.',BiayaKursus[KodeKelas[datakei]]:5:0);
Total_bayar[datakei]:=BiayaPendaftaran[KodeKelas[datakei]]+BiayaKursus[KodeKelas[datakei]];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi data lagi tekan Y,tekan Sembarang untuk keluar) ? ');
ReadLn(lagi);
Until UpCase(lagi)<>'Y';
END;
PROCEDURE LAPORAN;
VAR
J:INTEGER; LIHAT_LAGI:CHAR;
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BAYAR ',Kelas[KodeKelas[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA MAHASISWA');
writeln(' STMIK PALANGKRAYA');
writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG ');
WRITELN(' ==============================================================================');
writeln(' KODE I KELAS I BIAYA PENDAFTARAN I BIAYA KURSUS I TOTAL BAYAR');
WRITELN(' ==============================================================================');
For DataKei:=1 to BanyakDataKei Do
WriteLn(' ',KodeKelas[DataKei],' ',Kelas[KodeKelas[DataKei]],' Rp. ',BiayaPendaftaran[KodeKelas[DataKei]]:5:0,
' Rp.',BiayaKursus[KodeKelas[DataKei]]:5:0,' Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln('================================================================================');
writeln(' Apakah Anda ingin mengisi Data lagi tekan Y,tekan Sembarang untuk keluar');READLN(LIHAT_LAGI);
CASE LIHAT_LAGI OF
'Y':ISI_MAHASISWA;
'T':EXIT;
END;
end;
procedure tampilan_akhir;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(31,10);Writeln('DATA CALON MAHASISWA BARU');
Gotoxy(34,11);Writeln('STMIK PALANGKRAYA');
Gotoxy(23,12);Writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA CALON MAHASISWA BARU TELAH SELESAI');
READLN;
EXIT;
End;
var pilih:integer;
begin
ulang:=true;
DataKei:=0;
while ulang do
begin
clrscr;
menu (pilih);
case pilih of
1: TAMPILAN_AWAL;
2:BEGIN
ISI_MAHASISWA;
jum_brg:=DataKei;
end;
3: LAPORAN;
4: tampilan_akhir;
end;
end;
end.
Program harga_barang;
Uses WinCrt;
type
recharga=record
nama_barang:string;
end;
Var
JumlahBeli:Array[1..100] Of Integer;
DataKei,BanyakDataKei,A,B,C,jum_brg:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Ulang:boolean;
Const
NomorBarang:Array [1..10] Of Integer=(1,2,3,
4,5,6,7,8,9,10);
NamaBarang:Array [1..10] Of String[10]=('MEJA','KURSI','LEMARI',
'RAK BUKU','TEMPAT TIDUR','MEJA BELAJAR','PINTU','CENDELA','KURSI GOYANG','RAK BAJU');
Const
KUALITAS:Array [1..3] Of integer =(1,2,3);
HARGA_SATUAN:ARRAY [1..3] of real=(1000000,750000,500000);
PROCEDURE MENU (VAR PIL:INTEGER);
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(29,12);writeln('@ DATA HARGA DAN NAMA BARANG @');
gotoxy(33,13);writeln('TOKO PORORIO FUKADA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER KE PROGRAM UTAMA: ');
READLN;
begin
clrscr;
gotoxy(35,1);writeln('Data Harga Barang');
gotoxy(22,2);writeln('===========================================');
gotoxy(33,3);writeln('NURIAH EVA YANTI W.D');
gotoxy(33,4);WRITELN('C0955201008');
gotoxy(22,5);writeln('===========================================');
WRITELN;
WRITELN;
WRITELN;
gotoxy(10,9);writeln('============================================');
gotoxy(19,10);writeln('** MENU PILIHAN PROGRAM **');
gotoxy(10,11);writeln('============================================');
gotoxy(14,12);writeln(' 1.ISI DATA HARGA BARANG');
gotoxy(14,13);writeln(' 2.TABEL DATA HARGA BARANG ');
gotoxy(14,14);writeln(' 3.SELESAI');
gotoxy(10,15);writeln('============================================');
gotoxy(19,16);write(' PILIHAN ANDA (1-3) = ');
readln(PIL);
GOTOXY(10,17);WRITELN('============================================');
end;
END;
PROCEDURE ISI_BARANG;
VAR
LAGI_BRG:CHAR;
Begin
Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' Toko Nevadya Pororio Fukada');
WriteLn(' **************************** [************************');
WriteLn(' |Kode barang | Nama barang | [Kualitas l Harga satuan]');
WriteLn(' **************************** [ A l RP.1000.000 ]');
WriteLn(' | 1 | MEJA | [ B l RP. 750.000 ]');
WriteLn(' | 2 | KURSI | [ C l RP. 500.000 ]');
WriteLn(' | 3 | LEMARI | [************************');
WriteLn(' | 4 | RAK BUKU |');
WriteLn(' | 5 | TEMPAT TIDUR|');
WriteLn(' | 6 | MEJA BELAJAR|');
WriteLn(' | 7 | PINTU |');
WriteLn(' | 8 | CENDELA |');
WriteLn(' | 9 | KURSI GOYANG|');
WriteLn(' | 10 | RAK BAJU |');
WriteLn(' ****************************');
WRITELN;
Write(' MASUKKAN KODE BARANG YANG AKAN ANDA BELI.? ');
ReadLn(NomorBarang[datakei]);
If NomorBarang[datakei]=1 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[1]);
end
else
If NomorBarang[datakei]=2 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[2]);
end
else
If NomorBarang[datakei]=3 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[3]);
end
else
If NomorBarang[datakei]=4 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[4]);
end
else
If NomorBarang[datakei]=5 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[5]);
end
else
If NomorBarang[datakei]=6 Then
begin
WriteLn(' NAMA BARANG= ',NamaBarang[6]);
end
else
If NomorBarang[datakei]=7 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[7]);
end
else
If NomorBarang[datakei]=8 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[8]);
end
else
If NomorBarang[datakei]=9 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[9]);
end
else
If NomorBarang[datakei]=10 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[10]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
Write(' MASUKKAN KUALITAS BARANG YANG AKAN ANDA PILIH.? ');
ReadLn(KUALITAS[datakei]);
If KUALITAS[datakei]=1 Then
begin
WriteLn(' KUALITAS BARANG = ',KUALITAS[1]);
end
else
If NomorBarang[datakei]=2 Then
begin
WriteLn(' KUALITAS BARANG = ',KUALITAS[2]);
end
else
If NomorBarang[datakei]=3 Then
begin
WriteLn(' KUALITAS BARANG = ',KUALITAS[3]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' HARGA SATUAN = Rp.',HARGA_SATUAN[KUALITAS[datakei]]:5:0);
Write (' JUMLAH BELI = ');ReadLn(jumlahbeli[datakei]);
Total_bayar[datakei]:=HARGA_SATUAN[NomorBarang[datakei]] *jumlahbeli[datakei];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi data lagi tekan Y,tekan Sembarang untuk keluar) ? ');
ReadLn(lagi);
Until UpCase(lagi)<>'Y';
END;
PROCEDURE LAPORAN;
VAR
J:INTEGER; LIHAT_LAGI:CHAR;
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BELANJA ',NamaBarang[NomorBarang[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA DAN HARGA BARANG');
writeln(' COUNTERS NEVADYA PORORIO');
writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG ');
WRITELN(' ==============================================================================');
writeln(' KODE BRNG I NAMA BARANG I KWLITAS I HARGA SATUAN I JUMLAH BELI I TOTAL BAYAR');
WRITELN(' ==============================================================================');
For DataKei:=1 to BanyakDataKei Do
WriteLn(' ',NomorBarang[DataKei],' ',NamaBarang[NomorBarang[DataKei]],' ',KUALITAS[DataKei],
' Rp.',HARGA_SATUAN[KUALITAS[DataKei]]:5:0,' ',JumlahBeli[DataKei],' ','Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln('================================================================================');
writeln(' Apakah Anda ingin mengisi Data lagi tekan Y,tekan Sembarang untuk keluar');READLN(LIHAT_LAGI);
CASE LIHAT_LAGI OF
'Y':ISI_BARANG;
'T':EXIT;
END;
end;
procedure tampilan_akhir;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(33,10);Writeln('DATA DAN HARGA BARANG');
Gotoxy(26,11);Writeln('TOKO NEVADYA PORORIO FUKADA');
Gotoxy(23,12);Writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA DAN HARGA BARANG TELAH SELESAI');
READLN;
End;
var pilih:integer;
begin
ulang:=true;
DataKei:=0;
while ulang do
begin
clrscr;
menu (pilih);
case pilih of
1:BEGIN
ISI_BARANG;
jum_brg:=DataKei;
end;
2: LAPORAN;
3: tampilan_akhir;
end;
end;
end.
Selasa, 08 Juni 2010
Kamis, 03 Juni 2010
nevadya pororio fukada
ini blog pertama aku........
by. nevadya pororio fukada
ke rumah BeKaBe
http://www.4shared.com/photo/1Qc4T_52/Foto090.html
Langganan:
Postingan (Atom)