Tutorial TPW 1.5

Berikut ini tutorial tentang program penjualan.



Sahabat Blogger - berjumpa lagi dengan saya,dalam kesempatan ini saya akan membahas cara membuat Program 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

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.