contoh source kode pascal 1

Pembelian


uses
    wincrt;    
var              
   harga1,harga2,harga3 : longint;
   jumlah,total         : longint;
   disc                 : real;
   YT                   : char;
begin
     YT :='Y';
     repeat
     clrscr;
     write('harga barang 1 : '); readln(harga1);
     write('harga barang 2 : '); readln(harga2);
     write('harga barang 3 : '); readln(harga3);



     writeln;
     jumlah := harga1 + harga2 + harga3;
     writeln('TOTAL HARGA  : Rp  ', jumlah);
     write('KETERANGAN adalah ');if jumlah >7000 then writeln('Bonus satu keping cd')
                                 else if jumlah <=7000 then
                                      begin if jumlah >=5000 then
                                            begin
                                              writeln('anda cuma bayar = Rp ',jumlah - ((10/100)*jumlah):5:2);
                                            end          
                                            else
                                            begin if jumlah < 5000 then
                                                 writeln('Tidak ada bonus');
                                            end          
                                      end;
     write('Anda ingin mengulang : '); readln(YT);
     until upcase (YT) ='T';
end.

Pembelian dengan discount



uses
    wincrt;
var
   nama1,nama2                       : string;
   jumlah1,jumlah2                   : integer;
   harga1,harga2,disc                : longint;
   total1,total2,total               : longint;
   bayar                             : real;
   ulang                             : char;
 
begin                                                                                                  
     repeat
     clrscr;
     writeln('*********PROGRAM INPUT DATA BARANG*********');
     write('Nama Barang 1    : '); readln(nama1);
     write('Jumlah Beli 1    : '); readln(jumlah1);
     write('Harga Satuan 1   : '); readln(harga1);
     write('Nama Barang 2    : '); readln(nama2);
     write('Jumlah Beli 2    : '); readln(jumlah2);
     write('Harga Satuan2   : '); readln(harga2);
     writeln;

     total1 :=jumlah1*harga1;
     total2 :=jumlah2*harga2;                  
                                             
     writeln('----------------------------------------------');
     writeln('  Nama Barang  | Jumlah  |  Harga  |  Total  |');
     writeln('----------------------------------------------');
     writeln('|      ',nama1,'    |  ',jumlah1,'      |     ',harga1,'     |   ',total1,'    |');
     writeln('|      ',nama2,'   |  ',jumlah2,'      |      ',harga2,'    |   ',total2,'    |');
     writeln('----------------------------------------------');
     write('    Discount    = '); readln(disc);
     bayar :=(total1+total2)-(disc/100*(total1+total2));
     write('    Total Bayar = Rp '); writeln(bayar:5:2);
     writeln('----------------------------------------------');
     write('Apakah Ingin Mengulang [Y/T] : '); readln(ulang);
     until upcase (ulang) <> 'Y';
end.