PROGRAM MENGHITUNG HARGA PEMBAYARAN DAN DISCOUNT

PROGRAM MENGHITUNG HARGA PEMBAYARAN DAN DISCOUNT 

Berikut bentuk program menghitung harga pembayaran dan discount

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.