program case of dipascal ini akan mempermudah kita dalam mengunakan pemilihan program yang ingin kita jalankan,karena di progran ini ada pemilihan progran yang mau kamu jalan kan contohnya program ini tulis scrip progran ini pada turbo pascal yang anda miliki:
uses crt;
var
nama:string;
nomor,jumlah,harga:integer;
diskon,pajak,total:real;
lagi:char;
begin
clrscr;
writeln(’ program swalayan ’);
writeln(’========================’);
lagi:=’Y';
while lagi=’Y’ do begin
write(’masukan nomor program=’); readln(nomor);
case nomor of
1:begin
write(’masukan nama barang=’); readln(nama);
write(’masukan jumlah barang=’); readln(jumlah);
write(’masukan harga satuan Rp=’); readln(harga);
total:=jumlah*harga;
writeln(’total harga Rp=’,total:0:2)
end;
2:begin
write(’masukan nama barang=’); readln(nama);
write(’masukan harga barang Rp=’); readln(harga);
if harga >= 100000 then begin
diskon:=80/100*harga;
total:=harga-diskon;
writeln(’harga barang setelah didiskon Rp=’,total:0:2);
end else if harga <>
diskon:=10/100*harga;
total:=harga-diskon;
end;
writeln(’harga barang setelah didiskon Rp=’,total:0:2);
end;
3:begin
write(’masukan nama barang=’); readln(nama);
write(’masukan harga barang Rp=’); readln(harga);
pajak:=10/100*harga;
total:=harga-pajak;
writeln(’harga barang setelah kena pajak Rp=’,total:0:2);
end;
4:writeln(’keluar dari program’);
end;
write(’untuk melanjutkan program tekan Y/N=’); readln(lagi);
end;
readln;
end.
program ini dapat digunakan intuk menghitung harga,diskon dan pajak barang.
berikut hasil dari program yang dijalankan: