Question

Помогите! Создайте программу в pascal по обучению перехода дороги на сигнал сфетофора,срочно!

Answer 1

Program jwbdjd;
var x: String;
begin
writeln('Введите цвет светофора (красный, желтый, зеленый)');
readln(x);
if x='зеленый' then
writeln('На ',x,' цвет можно переходить')
else
writeln('На ',x,' цвет нельзя переходить');
end.

Answer 2

Конечно, я могу помочь вам с написанием программы на Pascal для обучения перехода дороги на сигнал светофора. Вот пример такой программы:

program TrafficLight;

uses crt;

var
  choice: char;

procedure RedLight;
begin
  writeln('Stop! The light is red.');
end;

procedure YellowLight;
begin
  writeln('Get ready! The light is about to change to green.');
end;

procedure GreenLight;
begin
  writeln('Go! The light is green.');
end;

begin
  clrscr;
  
  writeln('Welcome to the Traffic Light Training Program!');
  writeln;
  
  repeat
    writeln('Please choose a color: ');
    writeln('1. Red');
    writeln('2. Yellow');
    writeln('3. Green');
    writeln('0. Exit');
    writeln;
    write('Your choice: ');
    readln(choice);
    writeln;
    
    case choice of
      '1': RedLight;
      '2': YellowLight;
      '3': GreenLight;
      '0': writeln('Goodbye!');
      else writeln('Invalid choice. Please try again.');
    end;
    
    writeln;
    writeln('Press any key to continue...');
    readkey;
    clrscr;
  until choice = '0';
end.

Эта программа представляет собой простой текстовый интерфейс, где вы можете выбрать цвет сигнала светофора и получить соответствующую информацию. Когда вы выбираете цвет, программа выводит соответствующее сообщение. После этого вы можете продолжить или выйти из программы.

Программа использует модуль `crt`, чтобы очистить экран и сделать вывод более понятным. Если у вас нет этого модуля, вы можете удалить строки `uses crt;`, `clrscr;` и `readkey;`, и программа все равно будет работать.

Надеюсь, эта программа поможет вам в обучении перехода дороги на сигнал светофора!