Cara membuat Program Kasir Pascal

Fajar

Thursday, March 26, 2020

Pascal Tutorial

Hadeh ga abis abisnya bahas ginian lagi, gapapa lah sing penting blog ini ada isinya. Script ini saya dapatkan dari Pelajaran di Sekolah saya hehe, script ini saya namakan script kasir atau program kasir, kenapa kasir? ya karna funginya itu untuk kasir hehe.

Sebelumnya saya sudah pernah juga memposting program pascal yaitu Rumus Balok, silakan diklik kalo penasaran lumayan buat pengetahuan / pembelajaran kalian, kalo udah jago script kan enak yoi.

Oh iya, saya membuat blog ini kalian peduli ga sih, atau cuma saya aja yang dateng ke blog ini. Saya yang buat blog saya juga yang ngunjungin? mantap sekali, jadi curhat. Langsung aja kita menuju scriptnya.

program kasir;
uses crt;
  var harga, jml, bayar, total:integer;
  
  nama,kode: string ;
begin
clrscr;
WriteLn('==================================');
writeln('       TOKO BAJU FASHION');
WriteLn('==================================');
write('Masukan kode barang = ');readln(kode);
if kode='B01' then
begin
nama:='Baju Daster';
harga:=35000;
end
else if kode='B02' then
begin
nama:='Kaos';
harga:=20000;
end
else if kode='B03' then
begin
nama:='Kemeja';
harga:=50000;
end;
WriteLn('Nama Barang = ',nama);
WriteLn('Harga Barang = Rp.',harga);
WriteLn('==================================');
write('Masukan jumlah beli = '); readln(jml);
total:=harga*jml;
WriteLn('Total harga = Rp.',total);
WriteLn('==================================');
write('Masukan pembayaran = Rp.');ReadLn(bayar);
if bayar >=total then
begin
WriteLn('Kembalian anda = Rp.',bayar-total);
end
else
WriteLn('Hutang anda = Rp.',total-bayar);
WriteLn;
WriteLn('Terima kasih selamat datang kembali');
Writeln('andikta.blogspot.com');
readKey;
readln;
end.

Tuh scriptnya, gratis kan? kalo ada kesalahan ya komen aja ga ush repot repot.

Dah sekian dari saya Trimakasih, salam hehe