Определить, сколько поездов следует в каждом из направлений (южное, северное, западное, восточное) - Pascal
Формулировка задачи:
В расписании движения поездов по станции Масловка указаны: номера поездов , пункты следования, время прибытия и отправления, направления следования (южное, северное, западное, восточное). Сколько поездов следует в каждом из направлений?
Решение задачи: «Определить, сколько поездов следует в каждом из направлений (южное, северное, западное, восточное)»
textual
Листинг программы
var cnt: array [1..4] of Integer; ... while not eof(f) do with ehelon do begin read(f, eshelon); if naprav in [1..4] do Inc(cnt[naprav]); end; for i:=1 to 4 do WriteLn(napr[i],': ',cnt[i]);
Объяснение кода листинга программы
- Создается массив
cnt
из 4 целочисленных элементов для подсчета поездов в каждом из направлений:cnt: array [1..4] of Integer;
. - Выполняется цикл чтения записей из файла
f
. Для каждой записи выполняется следующий блок: a. Запись читается из файлаf
в переменнуюeshelon
. b. Если направление поезда (naprav
) находится в диапазоне от 1 до 4, то значение в соответствующем элементе массиваcnt
увеличивается на 1:if naprav in [1..4] do Inc(cnt[naprav]);
. - После того как все записи обработаны, выполняется цикл для вывода результатов подсчета поездов в каждом из направлений:
a. Для каждого из 4 элементов массива
cnt
выводится соответствующее значение с указанием направления:WriteLn(napr[i],': ',cnt[i]);
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д