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('__________________________________');
writeln('pembelian:');
write('Ban:');read(a);
write('cat:');read(b);
write('oli:');read(c);
write('bensin:');read(d);
write('knalpot:');read(e);
jumlah:=((Ban*a)+(cat*b)+(oli*c)+(bensin*d)+(knalpot*e));
writeln('Jumlah Bayar:',jumlah);
write('Uang Bayar:');readln(bayar);
writeln('uang kembali:',bayar-jumlah);
end.
Semoga Bermanfaat
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('__________________________________');
writeln('pembelian:');
write('Ban:');read(a);
write('cat:');read(b);
write('oli:');read(c);
write('bensin:');read(d);
write('knalpot:');read(e);
jumlah:=((Ban*a)+(cat*b)+(oli*c)+(bensin*d)+(knalpot*e));
writeln('Jumlah Bayar:',jumlah);
write('Uang Bayar:');readln(bayar);
writeln('uang kembali:',bayar-jumlah);
end.
Semoga Bermanfaat
Komentar
Posting Komentar