Script untuk mencari harga di Restoran with Case of.
Uses wincrt;
Var
pil:Integer;
Kode_Pel:char;
Nama,Alamat:String;
Tobel,jumlah,kembali,Discount:Real;
Begin
Writeln(‘RESTORAN UNTUNG TAK MAU RUGI’);
Writeln(‘Menu Restoran Favorit’);
Writeln(’1.Menu Sego liwet+Juice Wortel’);
Writeln(’2.Menu Soto Kudus+Juice Jeruk Hangat’);
Writeln(’3.Menu Masakan Sunda,Lalapan+Wedang Ronde’);
Writeln(’4.Menu Masakan Eropa’);
Writeln(’5.Menu Masakan Jepang’);
Writeln;
Write(‘Nomor Menu Pilihan=’);Readln(pil);
Write(‘Masukan Kode Pelanggan=’);Readln(Kode_Pel);
Begin
Write(‘Total Belanja Hari Ini=Rp’);Readln(Tobel);
Write(‘Uang Pelanggan=Rp’);Readln(Jumlah);
Case pil of
1:Begin
If(kode_pel=’P')or(kode_pel=’p')then
If(kode_pel=’p')And(Tobel>1000000)then
Discount:=Tobel*0.1
Else If(kode_pel’P')And (Tobel>1000000)Then
Discount:=Tobel*0.05
Else If(kode_pel’P')And(Tobel
Discount:=0;
Kembali:=Jumlah-(Tobel-discount);
Writeln(‘Discount=Rp’,Kembali:12:2);
Writeln(‘Kembalian Uang=Rp’,Kembali:12:2);
Writeln(‘Menu Sego liwet+Juice Wortel’);
End;
2:Begin
If(kode_pel=’P')or(kode_pel=’p')then
If(kode_pel=’P')And(Tobel>1000000)Then
Discount:=Tobel*0.1
Else If(Kode_Pel’P')And(Tobel
Discount:=Tobel*0.05
Else if(Kode_Pel’P')And(Tobel
Discount:=0;
Kembali:=Jumlah-(Tobel-discount);
Writeln(‘Discount=Rp’,discount:12:12);
Writeln(‘Kembalian Uang=Rp’,Kembali:12:2);
Writeln(‘Menu Soto Kudus+Juice Jeruk Hangat’);
End;
3:Begin
If(kode_pel=’P')or(kode_pel=’p')then
If(kode_pel=’P')And(Tobel>1000000)Then
Discount:=Tobel*0.1
Else If(Kode_Pel’P')And(Tobel
Discount:=Tobel*0.05
Else if(Kode_Pel’P')And(Tobel
Discount:=0;
Kembali:=Jumlah-(Tobel-discount);
Writeln(‘Discount=Rp’,discount:12:12);
Writeln(‘Kembalian Uang=Rp’,Kembali:12:2);
Writeln(‘Menu Masakan Sunda,Lalapan+Wedang Ronde’);
End;
4:Begin
If(kode_pel=’P')or(kode_pel=’p')then
If(kode_pel=’P')And(Tobel>1000000)Then
Discount:=Tobel*0.1
Else If(Kode_Pel’P')And(Tobel
Discount:=Tobel*0.05
Else if(Kode_Pel’P')And(Tobel
Discount:=0;
Kembali:=Jumlah-(Tobel-discount);
Writeln(‘Discount=Rp’,discount:12:12);
Writeln(‘Kembalian Uang=Rp’,Kembali:12:2);
Writeln(‘Menu Masakan Eropa’);
End;
5:Begin
If(kode_pel=’P')or(kode_pel=’p')then
If(kode_pel=’P')And(Tobel>1000000)Then
Discount:=Tobel*0.1
Else If(Kode_Pel’P')And(Tobel
Discount:=Tobel*0.05
Else if(Kode_Pel’P')And(Tobel
Discount:=0;
Kembali:=Jumlah-(Tobel-discount);
Writeln(‘Discount=Rp’,discount:12:12);
Writeln(‘Kembalian Uang=Rp’,Kembali:12:2);
Writeln(‘Menu Masakan Jepang’);
End;
End;
End;
End.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
