home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug039.arc / ELEMENTS.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  768b  |  32 lines
  1. PROGRAM EXAMPLE (INPUT,OUTPUT);
  2.  
  3. {CALCULATE THE SUM AND AVERAGE OF AN ARBITARY SERIES OF NUMBERS
  4. TERMINATED BY -1.
  5.  
  6. THIS IS A SAMPLE PASCAL PROGRAM ILLUSTRATING SOME OF THE ELEMENTERY
  7. FEATURES OF THE PASCAL LANGUAGE.}
  8.  
  9. VAR
  10.         COUNT:INTEGER;
  11.         SUM,NUM:REAL;
  12.  
  13. BEGIN
  14.         WRITELN('ENTER NUMBERS ONE PER LINE.  TERMINATE WITH -1.');
  15.  
  16.         COUNT := 0;
  17.         WRITE('NUMBER : '); READLN(NUM);
  18.         WHILE NUM <> -1.0 DO
  19.         BEGIN
  20.                 COUNT := COUNT + 1;
  21.                 SUM := SUM + NUM;
  22.                 WRITE('NUMBER : ');READLN(NUM);
  23.         END;
  24.  
  25.         WRITELN;
  26. IF COUNT > 0 THEN
  27.         WRITELN('SUM IS',SUM,'AVERAGE IS',SUM/count)
  28. ELSE
  29.         WRITELN('NO DATA WAS ENTERED');
  30.  
  31. END.
  32.