Langsung ke konten utama

Postingan

Menampilkan postingan dari Juni, 2017

Contoh Skrip Pemrograman membuat kasir dengan Turbo Pascal WIndows

Dalam membuat sebuah program Pascal tentunya memerlukan script yang berbeda dengan program yang lain. Kali ini Saya akam Share suatu program Kasir dengan Pascal. Berikut Contoh Scriptnya: Program Bengkel; uses wincrt; var Ban,cat,oli,bensin,knalpot,a,b,c,d,e,jumlah,bayar,kembali:longint; begin writeln('Program Jual-Beli Di Bengkel'); writeln('Bengkel Sumber'); writeln('Jalan Letjend suprapto'); writeln('089661725698'); writeln('__________________________________'); Ban                     :=90000; cat                     :=20000; oli                     :=75000; bensin                  :=8000 ; knalpot                 :=400000; writeln('Daftar Harga:'); writeln('Ban                     :90000'); writeln('cat                     :20000'); writeln('oli                     :75000'); writeln('bensin                  :8000'); writeln('knalpot                 :400000'); writeln('