Contoh Case Of Pascal

Contoh Case …Of perhitungan berat dan harga barang


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

Uses crt;
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.

1 comments:

xayveonvaldespino 5 Maret 2022 pukul 09.15  

titanium metal game - TITanium Art
You need your titanium engagement rings TITanium Art skills to succeed ti89 titanium calculators in a is titanium a metal successful game. If you are looking for welding titanium a game that can titanium sunglasses produce quality gaming, the TITanium

Posting Komentar

Pengikut