Курсовая работа: Составление алгоритмов, реализованных в алгоритмическом языке Паскаль
s:= s/n;
{создать файл mgts.txt для хранения результатов выборки}
assign(ft, 'mgts.txt');
rewrite(ft);
{установить файл mgts.dat на начало для чтения}
reset(f);
{проверить достижения конца файла mgts.dat }
while not eof(f) do
{пока не достигнут конец файла выполнять}
begin
{счтитать очередную запись файла mgts.dat }
read( f, m);
{объявить работу с переменной m}
with m do
if (m=mz) and (min*price>s) then
{если время стоянки выше средней}
begin
{вывести информацию о найденном разговоре на экран}
writeln( ost, timeh, timem, min, price);
{сохранить информацию о найденной остановке в файле mgts.txt }
writeln( ft, ost, timeh, timem, min, price);
end;
end;
{закрыть файл mgts.txt }
close( ft);
end.
Заключение
Курсовая работа, состоящая из пяти заданий, которые представляют собой комплекс, включающий теоретический вопрос и четыре задания на составление алгоритмов, реализованных в алгоритмическом языке Паскаль, была выполнена в соответствии с предъявленными требованиями по оформлению работы.
Таким образом, главная цель работы по изучению требований к уровню знаний и приобретение практических и теоретических навыков в рамках дисциплины «Информатика» достигнута.