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

For i:=1 to n Do{Вывод на экран исходного массива}

Write(a[i]:3:2,' ');

WriteLn;

WriteLn;

WriteLn('Номер первого отрицательного элемента:');{Вывод на экран номера отрицательного элемента}

Write(otr,' ');

ReadKey;{Задержка. Ожидание нажатия клавиши}

end.

Рис. 4. Примерный вид исходных данных и результата на экране по заданию 4

Задание 5. Алгоритмы обработки сложных структур

линейный алгоритм дисплей одномерный

Задание

Информация о движении междугороднего автобуса содержит следующие данные: название остановки, время прибытия (часы, минуты), время стоянки (минуты), стоимость проезда из начального пункта.

Написать программу, в которой:

· обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;

· организовать выборку из типизированного файла информации об остановках, стоянка на которых выше средней по маршруту, вывод данных о них на экран и сохранение в текстовом файле.

Выполнение

Алгоритм решения задачи должен содержать следующие шаги:

1) организация структуры данных для одного компьютера;

2) циклический ввод данных и сохранение их в типизированном файле;

3) завершение ввода при соответствующем подтверждении путем нажатия клавиш «Y» или «y»;

4) ввод значения средней стоянки по маршруту;

5) выборка и вывод на экран данных по остановкам, стоянка на которых выше средней по маршруту.

Структура данных о компьютере должна содержать следующие поля:

- текстовое поле – название остановки;

- поле целого числа – время прибытия (часы, минуты);

- поле целого числа – время стоянки;

- поле вещественного числа – стоимость проезда из начального пункта .