Program Pascal Menentukan Discount dan Harga Pembayaran Menggunakan Perulangan While end While

Berikut adalah salah satu program pascal untuk Menentukan Discount dan Harga Pembayaran menggunakan Perulangan While end While

1. Programnya

Program MenghitungHargaPembayaran;
uses crt;
var
TP,P,HP,Discount :real;
lg :char;
begin
lg :='Y';
While Upcase(lg)='Y'do
begin
clrscr;
Writeln('Program Menghitung Harga Pembayaran');
Write('Input Total Pembelian Rp: ');readln(TP);

Discount :=0.1;
if TP >1500000 then
P :=TP * Discount
else
P:=0;

HP :=TP-P;

Writeln('Mendapat Harga Potongan Rp: ',P:0:0);
Writeln('____________________________________ -');
Writeln('Harga Pembayaran Rp: ',HP:0:0);
Writeln('----------------------------------------');
Write('Masih Ingin Menghitung [Y/T]:');readln(lg);
end;
readln;
end.

2. Tampilan Program dalam Pascal