uses crt;
var
nama : string;
hrg, jml, thrg, discount, tbyr : integer;
begin
writeln(' Menghitung total pembayaran TV');
writeln(' ###########################');
writeln('');
write(' Input Nama Barang :');readln(nama);
write(' Harga Barang :');readln(hrg);
write(' Jumlah Jual :');readln(jml);
thrg:=hrg*jml;
writeln(' Total Harga : Rp ', thrg:8:0);
if thrg>3000000 then
discount:=0.1*thrg
else
discount:=0;
tbyr:=thrg-discount;
writeln(' Discount : Rp ', discount:8:0);
writeln(' Total Bayar : Rp ', tbyr);
readln;
end.
Flowchat dari program diatas
Flowchart untuk Pembayaran Gaji Pegawai
