PENGHITUNGAN BERAT DAN HARGA BARANG

ketentuannya adalah :
1. Kualitas Barang di masukkan
Kualitas Harga Per Kg
A/a 1000
B/b 750
C/c 500


yang dipake adalah case of seperti ini :
program berat_harga_barang;
Uses wincrt;
Var
Berat,harga,hargaperkg:integer;
Kualitas:char;
Begin
Clrscr;
Write(' Massukkan Kualitas Buah [A/B/C] : '); readln(kualitas);
Write(' Berapa Kg berat yang di beli           : ' ); readln(berat);
Case kualitas of
'A','a': hargaperkg:=1000;
'B','b': hargaperkg:=750;
'C','c': hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln('Salah Input');
End;
End;

Harga:=hargaperkg*berat;
Writeln(' Harga Per Kg : Rp.',hargaperkg);
Writeln(' Harga Total    : Rp.',harga);
End.