Menghitung Biaya Fotocopy Menggunakan Pascal

Judul : Menghitung biayafotocopy
Deklarasi :  nama:string
totalharga,totalbayar,kembalian:real
jumlahfc:integer
(harga perlembar) hpl -> 125
Deskripsi :
1. Masukan nama pelanggan
2. Masukan jumlah lembar fotocopy
3. Hitung total harga = hpl*jumlahfc
4. Masukan nominal uang yang dibayar pelanggan
5. Hitung kembalian = totalbayar-totalharga
6. Tampilkan nama pelanggan
7. Tampilkan jumlah fotocopy
8. Tampilkan total harga yang harus di bayar
9. Tampilkan nominal uang yang dibayarkan pelanggan
10. Jika uang yang dibayar >= total harga maka tampilkan uang kembalian
11. Jika tidak maka tampilkan uang yang anda bayarkan kurang
12. Tampilkan terimakasih

Coding

program Menghitungbiayafotocopy;
var nama:string;
totalharga,totalbayar,kembalian:real;
jumlahfc:integer;
const
hpl=100;
begin
write('masukan nama pelanggan = ');
read(nama);
write('masukan jumlah fotocopyan = ');
read(jumlahfc);
totalharga:=hpl*jumlahfc;
write('masukan nominal uang yang dibayar pelanggan = ');
read(totalbayar);
kembalian:=totalbayar-totalharga;
writeln('========================');
writeln('Nama pelanggan = ',nama);
writeln('Jumlah fotocoy = ',jumlahfc);
writeln('Total harga = ',totalharga:1:2);
writeln('Uang yang dibayar = ',totalbayar:1:2);
if totalbayar >= totalharga then writeln('Jumlah kembalian = ',kembalian:1:2)
else writeln('Maaf uang yang anda bayar kurang');
writeln('Terimakasih');
writeln('========================');
end.

Tweet