Program Kasir Sederhana (2)

Posted by Malik, Ulwan Dan Rizky 05.38, under | 0 komentar

uses crt;
var
NB:string;
HB:longint;
JB:integer;
TB:longint;
begin
clrscr;
write('Masukkan Nama Barang :');readln(NB);
Writeln('Masukkan Harga Barang :');readln(HB);
writeln('Masukkan Total barang :');readln(JB);
TB:=(HB*JB);
writeln('Total Bayar :',TB);
readln;
end.


0 Responses So Far:

Langganan: Posting Komentar (Atom)

Hubungi kami

Your Name :
Your Email :
Subject :
Message :
Image (case-sensitive):