program kasir turbo pascal
program kasir;
uses wincrt;
const
bulat= 50;
discount= 16000;
ppn= 75000;
biaya= 0;
grand= 994000;
var
tgl:string;
barang: array[1..50] of string;
banyak: array[1..50] of real;
harga: array[1..50] of real;
id:integer;
nama: string;
x,i,j,y:byte;
tmp,cm,c,jh,hrg,ji,opt,toto, grandtotal, disc, pn :real;
begin
clrscr;
writeln('Input Data!');
writeln('###############');
write('* Cust ID: ');readln(id);
write('* Nama Sales: ');readln(nama);
write('* tgl: ');readln(tgl);
writeln('###############');
clrscr;
gotoxy(20,0);writeln(' GRAND CELLULAR');
gotoxy(20,2);writeln(' Jl JAWA 28A JEMBER ');
gotoxy(20,3);writeln(' 0331-7833401');
writeln('');
gotoxy(3,5);writeln('Tgl :',tgl,' Cust ID :',id);
gotoxy(3,6);writeln('Faktur:PJ2011060248',' Sales :',nama);
writeln(' ---------------------------------------');
begin
i:=1;
tmp:=0;
repeat
i:= i+2;
gotoxy(x+9,5+i);readln(barang[i]);
if barang[i]<> ''then
begin
gotoxy(x+9,6+i);write('');readln(ji);
gotoxy(x+11,6+i);writeln('x ');
gotoxy(x+15,6+i);readln(hrg);
gotoxy(x+15,6+i);write('');
jh:=hrg*ji;
gotoxy(x+40,5+i);write(jh:2:0);
tmp:=tmp+jh;
grandtotal:=tmp-16000+ppn;
end;
until barang[i]='';
writeln(' ---------------------------------------');
gotoxy(x+9,8+i);writeln ('Jth Tempo: Sub Total : ',tmp:1:0);
gotoxy(x+9,9+i);writeln (' Discount : ',discount);
gotoxy(x+9,10+i);writeln(' PPN : ',ppn);
gotoxy(x+9,11+i);writeln('Opt.: Biaya : ',opt:2:0);
gotoxy(x+9,12+i);writeln(' --------------------');
gotoxy(x+9,13+i);writeln('toto Grand Total : ',grandtotal:1:0);
end;
end.
end.
This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.
ConversionConversion EmoticonEmoticon