Определить, сколько поездов следует в каждом из направлений (южное, северное, западное, восточное) - 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]);

Объяснение кода листинга программы

  1. Создается массив cnt из 4 целочисленных элементов для подсчета поездов в каждом из направлений: cnt: array [1..4] of Integer;.
  2. Выполняется цикл чтения записей из файла f. Для каждой записи выполняется следующий блок: a. Запись читается из файла f в переменную eshelon. b. Если направление поезда (naprav) находится в диапазоне от 1 до 4, то значение в соответствующем элементе массива cnt увеличивается на 1: if naprav in [1..4] do Inc(cnt[naprav]);.
  3. После того как все записи обработаны, выполняется цикл для вывода результатов подсчета поездов в каждом из направлений: a. Для каждого из 4 элементов массива cnt выводится соответствующее значение с указанием направления: WriteLn(napr[i],': ',cnt[i]);.

Оцени полезность:

12   голосов , оценка 4.25 из 5
Похожие ответы