Program penjualan barang turbo pascal

Program penjualan barang turbo pascal

Assalamualikum Wr.Wb..

Hallo gan.. saya akan share program aplikasi penjualan barang menggunakan turbo pascal.,

tanpa basa-basi .., langsung saja simak dan pelajari postingan berikut ini.

program penjualan barang turbo pascal

langkah langkah nya :

1. Buka Turbo pascal ( tpw )

2. klik menu new..

3. lalu ketikan ketikan kode berikut ini di aplikasi turbo pascal yang sudah di klik new tadi..

    ketikan script berikut ini

Program Penjualan_barang;

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.

Kalau Kode di atas sudah semuanya anda ketikan.,

coba jalan kan program tersebut dengan cara menekan ctrl+f9 ., kalau berhasil maka akan tampil seperti gambar berikut ini.

Demikianlah Program penjualan barang menggunakan bahasa pemograman turbo pascal kali ini.,

selamat mecoba ya gan., Semoga bermanfaat !

Terimakasih atas kunjungannya., :)