program foto copy

Program Fotokopi ,
Program ini untuk memenuhi tugas Algoritma dan pemrograman,
cara kerja program fotokopi ini yaitu kita harus menginput kode kertas, yaitu H untuk HVS, Q untuk Quarto, dan P untuk polio,
setelah kita masukkan kode kertas dan kita tekan enter maka akan keluar lah jenis kertas dan juga harganya perlembar, kemudian masukkan jumlah yang difotokopi , setelah diinput maka tekan enter maka keluarlah jumlah yang harus dibayar.

kode : ____________________________________________________


Program Fotokopi;
uses crt;
var
    kode : char;
    kertas : string;
    harga,jumlah,bayar : integer;
begin
clrscr;
writeln ('program fotokopi');
Write ('Masukkan Kode Kertas : ');
readln(kode);
case kode of
'H':begin
 kertas:='HVS';
 harga:=125;
 end;
'Q':begin
 kertas:='Quarto';
 harga:=150;
 end;
'P':begin
 kertas:='Polio';
 harga:=175;
 end;
else
kertas:='Tidak ada'
end;
Writeln('Menggunakan kertas : ',kertas);
Writeln('Harga perlembar : ',harga);
Write('Jumlah Yang difotokopi : ');
readln(jumlah);
bayar:=jumlah*harga;
Writeln('Yang Harus dibayar : ',bayar);
readkey;
end.


 ___________________________________________________