home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STEN / STEN10.MSA / PROGRAMS / PASCAL / SA1MPY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2010-04-21  |  1.3 KB  |  49 lines

  1. PROGARM VAT Reckoner
  2.                    { SA1MPY.PAS written by Pete Younger 13/11/91
  3.                      amended by ?????????? ??/??/??.
  4.                      This program prompts the user to enter the cost of
  5.                      an item before VAT.  The VAT is calculated and added
  6.                      for output.                                         }
  7.  
  8. USES
  9.    CTR;
  10.  
  11. VARS
  12.    InputCost        :REAL;
  13.    CalcVat          :REAL;
  14.    CalcTot          :REAL:
  15.  
  16. PROCEDURE InputData;
  17.    BEGIN
  18.           CLRSCR;
  19.           WRITELN('VAT Reckoner');
  20.           WRITELN;
  21.           WRITELN('Input cost of item.);
  22.           WRITE  ('VAT will be added ');
  23.           WRITELN('at standard rate - 17.5%');
  24.           WRITELN;
  25.           WRITE  ('Enter cost of item - £');
  26.           READLN(InputCost);
  27.     END;
  28.  
  29. PROCEDURE CalcAnswers;
  30.    BEIN
  31.           CalcVat := InputCost * 0.175;
  32.           CalcTot := InputCost + CalVat
  33.    END;
  34.  
  35. PROCEDURE OutputAnswer;
  36.    BEGIN
  37.           WRITELN;
  38.           WRITELN ('Original price - £',InputCost:6:2);
  39.           WRITELN ('+ VAT @ 17.5%  - £ ,CalcVat:6:2);
  40.           WRITELN ('                  ------')
  41.           WRITELN ('= Total cost   - £',CalcTot:6:2
  42.    END;
  43.  
  44. BEGIN
  45.    InputData;
  46.    CalcAnswers;
  47.    OutputAnswers
  48. .
  49. ə