Курсовая работа: Составление алгоритмов, реализованных в алгоритмическом языке Паскаль

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.

Заключение

Курсовая работа, состоящая из пяти заданий, которые представляют собой комплекс, включающий теоретический вопрос и четыре задания на составление алгоритмов, реализованных в алгоритмическом языке Паскаль, была выполнена в соответствии с предъявленными требованиями по оформлению работы.

Таким образом, главная цель работы по изучению требований к уровню знаний и приобретение практических и теоретических навыков в рамках дисциплины «Информатика» достигнута.


К-во Просмотров: 386
Бесплатно скачать Курсовая работа: Составление алгоритмов, реализованных в алгоритмическом языке Паскаль