Membuat Program Penjualan Dari Turbo Pascal 1.5

Berjumpa lagi dengan saya,dalam kesempatan ini saya akan membahas cara membuat Ptogram Penjualan Dari Turbo Pascal 1.5.Program adalah suatu aplikasi atau software yang dapat menyimpan data, serta dapat memudahkan pekerjaan, nah saya akan Membahas membuat Program Penjualan Dari Turbo Pascal 1.5.

Adapaun cara membuat programnya

• Bukak Penjualan Dari Turbo Pascal 1.5, caranya klik start => All Program => Pilih Tpw 1.5


• Masukan listing berikut
  uses wincrt;
  var
  b:string;
  h,y,u,by,tb:real;
  lagi:char;
  begin
  writeln('Toko "laris manis"');
  Writeln('------------------');
  tb:=0;
  Lagi:='Y';
  while lagi='Y' do
  begin
  write('barang:');readln(b);
  write('Harga:');readln(h);
  write('Unit:');readln(u);
  by:=H*u;
  writeln('Bayar:',by:0:0);
  writeln('coba lagi(Y/T);');readln(Lagi);
  writeln;
  writeln;
  tb:=tb+by;
  end;
  writeln('total bayar:',tb:0:0);
  end.


• jalankan program anda, caranya tekan tombol control f9 pada keyboard atau pilih menu run.