home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
MBUG
/
MBUG039.ARC
/
ELEMENTS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1979-12-31
|
768b
|
32 lines
PROGRAM EXAMPLE (INPUT,OUTPUT);
{CALCULATE THE SUM AND AVERAGE OF AN ARBITARY SERIES OF NUMBERS
TERMINATED BY -1.
THIS IS A SAMPLE PASCAL PROGRAM ILLUSTRATING SOME OF THE ELEMENTERY
FEATURES OF THE PASCAL LANGUAGE.}
VAR
COUNT:INTEGER;
SUM,NUM:REAL;
BEGIN
WRITELN('ENTER NUMBERS ONE PER LINE. TERMINATE WITH -1.');
COUNT := 0;
WRITE('NUMBER : '); READLN(NUM);
WHILE NUM <> -1.0 DO
BEGIN
COUNT := COUNT + 1;
SUM := SUM + NUM;
WRITE('NUMBER : ');READLN(NUM);
END;
WRITELN;
IF COUNT > 0 THEN
WRITELN('SUM IS',SUM,'AVERAGE IS',SUM/count)
ELSE
WRITELN('NO DATA WAS ENTERED');
END.