Tuesday, 9 October 2012

Latihan Turbo Pascal (Membuat Program Penjualan)

Leave a Comment
Assalamu'alikum.. Kali ini saya mau share latihan Turbo Pascal (membuat Program Penjualan).
Langsung saja cara membuat programnya. Jalankan TP, di sini saya menggunakan TP v1.5.
klik start > all program pilih TPW 1.5.

program penjualan;
uses wincrt;
var
b:string;
h,y,u,by,tb:real;
lagi:char;
begin
writeln('Toko "TI Ast Asd"');
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, tekan tombol Ctrl+f9 pada keyboard atau pilih menu run.
mungkin sampai disini dulu pembahasan tentang Latihan Turbo Pascal (Membuat Program Penjualan). Selamat mencoba,semoga berhasil dan dapat bermanfaat.. :) Wassalamu'alaikum..

0 komentar:

Post a Comment