Program Penjualan Buah Segar menggunakan Turbo Pascal

Tugas Ujian Akhir Semester

Membuat Program Penjualan Buah Segar

menggunakan Turbo Pascal

                                                Nama              : Mubarok

                                                Progdi             : Manajemen Informatika

                                                Nomor induk  : 12011055

                                                Dosen             : Muhammad Danuri,M.kom.

Akademi Manajemen Informatika dan Komputer

Jakarta Teknologi Cipta

Semarang

Gambaran Isi Program

Turbo pascal merupakan bahasa program untuk pembuatan visual yang mana dengan memanfaatkan komponen graphics yang telah disediakan sebagai file penyerta dalam memunculkan fungsi graphic ke monitor.

Program ini mengunakan rumus“ if….then”.dimana program ini menentukan kebenaran logika dan penulisannya.Program yang disusun harus memiliki logika dalam pemecahan masalah. Program yang dibuat harus memiliki ketepatan, ketelitian dan kebenaran sehingga menghasilkan program yang baik.Contoh dalam progam ini adalah ,jika saya menulis kata buah “jeruk” maka muncul harga buah Rp.5,000/kg,begitu pula jika di tulis kata mangga,apel dan duren,maka akan muncul sesuai dengan harga masing-masing.

Coding / script program

Program ini menggunakan coding/script sebagai berikut.

Program Penjualan_Buah_Segar;

Uses wincrt;

Var napem,nb:string[15] ;

hrg,jb,jh,disc,tot:real;

Ul:char;

begin

Repeat

clrscr;

writeln;

writeln('----------------------------------------');

writeln(' DATA PENJUALAN BUAH SEGAR /KG');

writeln('----------------------------------------');

writeln;

write('Nama Pembeli     =  '); readln(napem);

writeln;

write('Buah Yang Dibeli =  '); readln(nb);

writeln('.............................');  

ifnb='jeruk' then hrg:=5000 else

ifnb='mangga' then hrg:=7000 else   

ifnb='apel' then hrg:=9000 else

ifnb='duren' then hrg:=11000;

begin

end;

writeln;

write('HargaBuah       =','Rp',hrg:6:0,'/Kg');

writeln;

writeln;

write('JumlahBeli      =  '); readln(jb);

writeln;

jh:= hrg*jb;

write('JumlahHarga     =','Rp',jh:10:0);

writeln;

writeln('.............................');

writeln;

ifjb> 3 then disc:=0.2*jh;

begin

end;

write('Anda Dapat Diskon=','Rp',disc:10:0);

writeln;

writeln('.............................');

writeln;                                           

writeln;

write('Total Bayar      =','Rp',hrg*jb-disc:10:0);

writeln;

writeln('----------------------------------------');writeln;

write('Terima kasih atas Kunjungannya');

readln;

Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);

Until Upcase(Ul)<>'Y';

end.

Perintah-perintah yang digunakan dalam pembuatan program animasi

Statemen adalah perintah untuk pengerjaan program pascal.Statemen terletak di bagian deklarasi statemen dengan diawali oleh kata cadangan BEGIN dan diakhiri dengan kata cadangan END.Akhir dari setiap statemen diakhiri dengan titik koma [;].
Statemen dalam bahasa Pascal terdiri dar ipernyataan yang berupa fungsi dan prosedur yang telah disediakan sebagai perintah standar Turbo Pascal.

 

   Statemen-statemen yang digunakan untuk input/output.

ü  Write/Writeln= statement ini digunakan untuk mencetak variable kedalam monitor salah satu contohnya adalah

write('AndaDapatDiskon=','Rp',disc:10:0);

write('Total Bayar      =','Rp',hrg*jb-disc:10:0);writeln;       

ü  Read/Readln [prosedur].
Perintah ini digunakan untuk memasukkan [input] data lewat keyboard kedalam suatu variabel. Sintaks: Read/Readln(x); (ingat, selalu diakhiri dengan titik koma [;])
Keterangan : x = variabel.
Read = pada statemen ini posisi kursor tidak pindah kebaris selanjutnya.
Readln = pada statemen ini posisi kursor akan pindah kebaris selanjutnya setelah di input. Contoh yang di pakai dalam pembuatan program ini adalah

write('Terima kasih atas Kunjungannya');readln;

Write('Mau Ulang Lagi? [Y/T]: ');readln(Ul);

    Statemen-statemen yang digunakan untuk pengaturan letak layar.
# ClrScr [prosedur].
Perintah ini digunakan untuk membersihkan layar.
sintaks: ClrScr; [Clear screen].

Dalam program saya menggunakan Struktur Perulangan atau repeat...until digunakan untuk mengulang statement atau blok statement hingga kondisi yang diseleksi di until terpenuhi. Perulangan repeat...until mempunyai bentuk umum yaitu:

Repeat statement Until kondisi;

Di dalam program ini saya membuat statement sebagai berikut.

if nama barang='jeruk' then hrg:=5000

if nama barang ='mangga' then hrg:=7000   

if nama barang ='apel' then hrg:=9000

if nama barang ='duren' then hrg:=11000.

Di dalam Program ini juga saya memberikan discount 20 % bagi pembeli yang membeli buah lebih dari 3 Kg. seperti gambar di bawah ini.