Contoh Penjualan Buah dengan Program turbo pascal

Uses crt;

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('.............................');  

if nb='jeruk' then hrg:=5000 else

if nb='mangga' then hrg:=7000 else   

if nb='apel' then hrg:=9000 else

if nb='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.

Hasil outputnya seperti berikut: