KeyzeX – Program ini di buat khusus untuk Bahasa Pemrograman Pascal saja. Berikut Program berat belanja sederhana menggunakan Case Of
Source Code untuk Program Pascal Berat Belanja Menggunakan Case Of
Untuk Codingnya :
Program berat;
Uses wincrt;
Var
beratt , harga , hargaperkg : integer ;
Kualitas:char;
Nama:string;
UI:char;
Begin
repeat
Clrscr;
Write(‘Masukan Nama Barang : ‘);readln(Nama);
Write(‘Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘Berapa Kg berat yang di beli : ‘ ); readln(beratt);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
writeln(‘================================================================================’);
Writeln(‘Salah Input’);
End;
End;
Uses wincrt;
Var
beratt , harga , hargaperkg : integer ;
Kualitas:char;
Nama:string;
UI:char;
Begin
repeat
Clrscr;
Write(‘Masukan Nama Barang : ‘);readln(Nama);
Write(‘Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘Berapa Kg berat yang di beli : ‘ ); readln(beratt);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
writeln(‘================================================================================’);
Writeln(‘Salah Input’);
End;
End;
Harga:=hargaperkg*beratt;
writeln(‘================================================================================’);
writeln(‘Nama Barang : ‘ ,Nama);
Writeln(‘Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘Harga Total : Rp.’,harga);
Write(‘Apakah Anda Ingin berbelanja lagi? (Y/T) ‘);readln(UI);
until upcase(UI)<>’Y’
End.
SEMOGA BERMANFAAT