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..

3 comments:

  1. infonya sangat bermanfat dan menambah wawasan,, thanks gan..

    ReplyDelete
    Replies

    1. đồng tâm
      game mu
      cho thuê phòng trọ
      cho thuê phòng trọ
      nhac san cuc manh
      tư vấn pháp luật qua điện thoại
      văn phòng luật
      số điện thoại tư vấn luật
      dịch vụ thành lập doanh nghiệp
      Dưới ngọn lửa của Vô Thượng Chân Hỏa vạn vật cũng có thể bị thiêu đốt huống chi là mãnh thú tam giai nho nhỏ.

      Một đạo thủ ấn của Nhạc Thành biến hóa, Nhạc Thành dập tắt hỏa diễm của Thổ Linh Báo.

      Sau đó hắn lấy ra nội đan rồi đi tới trước mặt. Trên đường đi Nhạc Thành lại đánh chết hai con mãnh thú tam giai khác nữa, càng vào ban đêm thì ma thú ở trên đảo càng nhiều cho nên Nhạc Thành phải quay trở về sơn động của mình.

      Sau khi bố trí một đạo cấm chế ở động khẩu Nhạc Thành khoanh chân tu luyện, cảm thấy khoảng cách tới Thai Tức Kỳ đã ngày càng gần, chỉ còn kém một bước cuối cùng.

      Ngày hôm sau Nhạc Thành đình chỉ tu luyện sau đó lại lên đường, hôm nay mục tiêu của hắn chính là đánh chết năm ma thú tam giai.

      Delete