kali ini saya akan menulis tentang membuat Contoh Program Fotocopy Case Of pada Pascal,
berikut ini contohnya scripnya :
show
uses wincrt;
var kode,harga,jumlah:integer;
begin clrscr;
writeln('keterangan kode kertas harga');
writeln('1=HVS Rp.100.-');
writeln('2=Quarto Rp.150,-');
writeln('3=Polio Rp.200,-');
writeln('masukan kode kertas=');
read(kode);
writeln('masukan jumlah kertas=');
read(jumlah);
case kode of
1: harga:= (150*jumlah);
2: harga:= (100*jumlah);
3: harga:= (200*jumlah);
end;
writeln('harga=','Rp',harga,',-');
readkey;
end.
Berikut hasilnya :
Terima kasih telah membaca. Semoga bermanfaat! - See more at: