Program Toko (Input Kode Barang) - Pascal

Share Program Toko - Pascal yang baru didapat dari Kampus :



Berikut Listingnya :

Klik show untuk melihat

Program Toko(Input_Kode_Barang);

Uses Crt;
Var Pilih:Char;
JML:Byte;
Harga,HJ:Longint;
Nama:String[20]; Kode:String[5];

Begin
Clrscr;
Writeln('Kode Barang :');
Writeln('A. SBN01');
Writeln('B. RNS02');
Writeln('C. SMP03');
Writeln;
Write('Input Pilihan : ');readln(Pilih);
Case Pilih Of
'A':Begin
Kode:='SBN01';
Nama:='Sabun LUX';
Harga:=1500;
End;
'B':Begin
Kode:='RNS02';
Nama:='Rinso';
Harga:=11500;
End;
'C':Begin
Kode:='SMP03';
Nama:='Sunsilk';
Harga:=150;
End;
End;
Writeln;
Writeln('TOKO MAJU TERUS (JHOKO)');
Writeln;
Writeln('KODE : ',Kode);
Writeln('NAMA : ',Nama);
Writeln('HARGA : Rp.',Harga);
Write('JUMLAH : ');readln(JML);
HJ:=Harga*JML;
Writeln('HARGA JUAL : Rp.',HJ);
Repeat Until Keypressed;
End.

Semoga bermanfaat......