RSS Feed

Program Kasir Sederhana

Posted by Rizki Labels:

uses crt;
var
f:string;
a:longint;
b:longint;
c:longint;
d:real;
e:real;
begin
clrscr;
writeln('masukkan namabarang=');readln(f);
write('masukkan jumlah barang=');readln(a);
write('masukkan harga barang=');readln(b);
c:=a*b;
writeln('total=',c);
if a>=50 then
d:= (c*10)/100;
writeln('discon=',d);
if a>=100 then
d:= (c*15)/100;
writeln('discon=',d);
e:= c-d;
writeln('anda harus membayar =',e);
readln;
end.

0 comments:

Post a Comment

WELCOME