Tuesday, 9 October 2012

Latihan Turbo Pascal (Membuat Program Penjualan)

Standard
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