Определить, сколько поездов следует в каждом из направлений (южное, северное, западное, восточное) - Pascal

Формулировка задачи:

В расписании движения поездов по станции Масловка указаны: номера поездов , пункты следования, время прибытия и отправления, направления следования (южное, северное, западное, восточное). Сколько поездов следует в каждом из направлений?


textual

Код к задаче: «Определить, сколько поездов следует в каждом из направлений (южное, северное, западное, восточное) - Pascal»

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]);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.250 из 5

Источник