Make your own free website on Tripod.com

Thai Banner
Thai Banner


<-HOME  <-FLOWCHART
PROGRAM Number6;
USES crt;
VAR ndo,npit,ncof,prido,pripit,pricof:integer;
    vat,amount,total:real;
BEGIN
     prido:=10;
     pripit:=12;
     pricof:=6;
     clrscr;
     gotoxy(20,3);
     writeln('XYZ Coporation');
     gotoxy(12,5);
     write('Quantity of Donut Ordered : ');
     readln(ndo);
     gotoxy(12,6);
     write('Quantity of Pizza Ordered : ');
     readln(npit);
     gotoxy(12,7);
     write('Quantity of Coffee Ordered: ');
     readln(ncof);
     amount:=(ndo*prido)+(npit*pripit)+(ncof*pricof);
     vat:=amount*0.07;
     total:=amount+vat;
     clrscr;
     gotoxy(20,3);
     write('XYZ Coporation');
     gotoxy(5,5);
     write('*******************************************');
     gotoxy(8,7);
     write('Amount charged is : ',amount:8:2);
     gotoxy(43,7);
     write('baht');
     gotoxy(8,8);
     write('              VAT : ',vat:8:2);
     gotoxy(43,8);
     write('baht');
     gotoxy(8,9);
     write('Total charged     : ',total:8:2);
     gotoxy(43,9);
     write('baht');
     gotoxy(5,11);
     write('*******************************************');
     gotoxy(10,13);
     write('PROGRAM BY MISS ORATHAI JAIYAH 4411063');
END.