home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STEN / STEN10.MSA / PROGRAMS / PASCAL / PI.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2010-04-21  |  862 b   |  47 lines
  1. PROGRAM CIRCLE_AREA;
  2.  
  3.      {  This program is designed to calculate
  4.         the area of a circle from it's radius
  5.         value alone.
  6.            IDEA  PB
  7.            PROGRAMMING  D.COULTHURST & R. MCPARTLAND
  8.                 SAVED AS Pi      1/10/91                  }
  9.  
  10. USES
  11.     CRT;
  12.  
  13.  VAR
  14.     Radius,Area  :  REAL;
  15.  
  16.  CONST
  17.     Pi =3.1415;
  18.  
  19. PROCEDURE ENTER_DATA;
  20.     BEGIN
  21.        CLRSCR;
  22.        WRITELN('Enter radius value');
  23.        WRITE('=> ');
  24.        READLN(Radius);
  25.     END;
  26.  
  27. PROCEDURE Calculation;
  28.     BEGIN
  29.        Area := (Radius*Radius)*Pi
  30.     END;
  31.  
  32. PROCEDURE Presentation;
  33.     BEGIN
  34.        CLRSCR;
  35.        GOTOXY (0,5);
  36.        WRITE('Radius  = ');
  37.        WRITELN (Radius :8:3);
  38.        WRITE ('Area   = ');
  39.        WRITELN (Area :8:3);
  40.  
  41.     END;
  42.  
  43. BEGIN
  44.      ENTER_DATA;
  45.      Calculation;
  46.      Presentation;
  47. END.ə