|
Displaying Source Code(s)
|
|
swim
--------------------------------------------------------------------------------
Description : the local swiming pool wants to monittor the
number of pepole
Code :
program swim;
{brian colston}
uses crt;
const
max=200;
var
attendance:array[1..max] of integer;
index:integer;
numdays:integer;
highest:integer;
lowest:integer;
average:real;
counter:integer;
count:1..5;
option:char;
choice:char;
monthly_file:text;
procedure monthly_stats;
begin
assign(monthly_file, 'A:monthly_file.txt');
index=1;
while not eof(monthly_file) and index<=max do
readln(attendance)[index];
index=index +1;
end-while;
numdays=index-1;
close monthly_file;
end
end; |
|
|
123
Eng