CONTOH PROGRAM PENJUALAN PADA PASCAL

Ø  CODE PROGRAM :

Program penjualan;

usescrt;

var

          nama : string[30];

          jumbel : integer;

          h_satuan : integer;

          jumbar : real;

          pot : real;

begin

          clrscr;

          write('Namapembeli : ');

          readln(nama);

          write('Jumlahbeli : ');

          readln(jumbel);

          write('HargaSatuan : Rp.  ');

          readln(h_satuan);

          if (jumbel>12) then

                     begin

                     pot :=((jumbel *h_satuan)*0.2);

                     end

          else if (jumbel>6) then

                    begin

                    pot :=((jumbel *h_satuan)*0.1);

                     end

else

                    begin

                    pot :=(( jumbel *h_satuan)*0);

          end;

          jumbar := ((jumbel *h_satuan)-pot);

          writeln(‘================================’);

          begin

                     writeln('Namapembeli : ',nama);

                     writeln('Jumlahbeli : ',jumbel);

                     writeln('potongan :Rp. ',pot:0:2);

                     writeln('Jumlah Bayar :Rp. ',jumbar:0:2);

          end;

end.   

  Ø  OUTPUT :