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

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

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. Ребят,помогите пожалуйста,будьте добры. Надо составить программки в Паскале. Составить математическую модель, таблицу идентификаторов и алгоритм для следующих задач: Задано n точек. Определить, сколько из них находится внутри прямоугольника.

  1. вводятся по очереди координаты n точек определить сколько из них попадает в кольцо с внутреним радиусом r1 и внешним радиусом r2

  1. Написать функцию, определяющую, какой координатной четверти принадлежит точка с заданными координатами. Используя ее определить, сколько из N точек, заданных случайно, попали в каждую координатную четверть. Где-то с циклом напортачил. Принимает только последнее число.

  1. Цикл. Начав читать детектив с 30 страницы, читатель посчитал сумму номеров прочитанных за день страниц. Сколько он прочитал, если их сумма равна 840?

  1. В некотором году на участке в 100 гектаров средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5%, а средняя урожайность — на 2%. Определить, через сколько лет урожай превысит 4000 ц.

  1. У некоторого исполнителя, обрабатывающего числа, есть три команды: +1, +2, *3. Исполнитель получает на вход некоторое число и программу, представляющую собой некоторую последовательность вышеназванных команд. На выходе он выдает новое число - результат применения программы к исходному числу. Вам предлагается написать программу - анализатор данного исполнителя. На вход программе подаются два числа х и у, каждое из которых лежит в диапазоне от 0 до 200 (включая границы) и при этом гарантируется, что х меньше, либо равно у. Ваша программа должна подсчитать, сколько возможно построить различных программ для исполнителя, которые преобразуют число х в у. В качестве ответа нужно вывести одно целое число.Добавлено через 37 секунд Буду рад оперативной помощи, заранее спасибо!

  1. Дана строка. Определить, сколько в ней символов *, ;, :.

  1. Начав тренировку лыжник в 1 день пробежал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить, сколько он пробежит за N дней, если N вводится с клавиатуры. Саму программу я составил, но как, и можно ли сделать так, что бы на экран выводило все дни, например: если N = 4, то выводило: 1. 10.00 км 2. 11.00 км 3. 12.10 км 4. 13.31 км Вот программа:

  1. Сколько существует натуральных чисел N со следующим свойством: если к числу N справа приписать число 3375, то полученное число будет делиться на исходное число N?

  1. Есть задача:Дано N вещественных чисел. Определить ,сколько из них больше своих "соседей" , то есть предыдущего и последующего чисел. Ребят нужно эту задачу написать на естественном языке, потом блок схема,pdl, и Паскаль. Ничего не понимаю и буду очень благодарен !!


Нашли ошибку?
Развитие проекта
Яндекс.Метрика