Пожалуйста, составьте метод-блок схему определения расстояния меж смежными

Пожалуйста, составьте алгоритм-блок схему определения расстояния меж смежными светофорами.
На жд линиях, оборудованных автоблокировкой с трехзначной сигнализацией, расстояние меж смежными светофорами обязано быть не менее тормозного пути, определенного для данного места при полном служебном торможении на максимальной реализуемой скорости, но не более 120 км/ч для пассажирских поездов и 80 км/ч для грузовых поездов, и, не считая того, должно быть не наименее тормозного пути при экстренном торможении с учетом пути, проходимого поездом за время, необходимое для воздействия устройств автоматической локомотивной сигнализации на тормозную систему поезда. При этом на участках, где видимость сигналов наименее 400 м, а также на железнодорожных линиях, вновь оборудуемых автоблокировкой, обозначенное расстояние, кроме того, обязано быть не наименее 1000 м.

Задать свой вопрос
1 ответ
Var
    a, b: real ;

begin
    Write('тормозной путь, определенного для данного места при полном служебном торможении = ');
    readln(a);
    Write('тормозной путь для на 120 км/ч для пассажирских поездов = ');
    readln(b);
    if b lt; a then a := b;
    Write('тормозной путь для на 80 км/ч для грузовых поездов = ');
    readln(b);
    if b lt; a then a := b;
    Write('тормозной путь при критическом торможении с учетом пути, проходимого поездом за время, нужное для воздействия устройств автоматической локомотивной сигнализации на тормозную систему поезда = ');
    readln(b);  
    if b gt; a then a := b;
    Write('участок, где видимость сигналов наименее 400 м? да-1/нет-0 ');
    readln(b);
    if (b = 1) and (a lt; 1000) then a := 1000;
    Write('жд линия, опять оборудуемая автоблокировкой? да-1/нет-0 ');
    readln(b);
    if (b = 1) and (a lt; 1000) then a := 1000;
    writeln(a);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт