Program Case Of

Rabu, September 14, 2011 andrytech.co.cc No comments

program caseOf;

uses wincrt;

var

jumbel,total,harga:real;

jenis:char;

begin

writeln('program toko cat tembok);

writeln('-------------------------------------------');

writeln('No Jenis Harga');

writeln('1. avian Rp 40000');

writeln('2. komilex Rp 35000');

writeln('3. vinilex Rp 30000');

writeln('-------------------------------------------');

write('Pilih Jenis (1-3): ');readln(jenis);

write('masukkan jumlah beli: ');readln(jumbel);

case jenis of

'1' : harga:=40000;

'2' : harga:=35000;

'3' : harga:=30000;

end;

total:=harga*jumbel;

write('Harga :Rp ',total:0:0);

end.

Posted in: Turbo Pascal