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

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

Nahhh ini 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

3. Hasil Program

    ketika mengetik "Y"

         Kita akan bisa menginput ulang data atau menghitung lagi seperi gambar dibawah

      sedangkan ketika mengetik huruf "T" maka akan kembali ke tampilan program awal yang artinya tidak ingin menghitung lagi.