Maaf jika artikel yang saya muat tidak sebagus yang anda buat,
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.
0 komentar "Contoh Case Of Pascal", Baca atau Masukkan Komentar
Posting Komentar