Question

напишите программу в Паскаль чтобы нарисован был светофор)) небольшой, разрисован нужными цветами( жёлтый, зелёный, красный) и сам светофор серый..Помогите пожалуйста...ставлю спасибо))) надеюсь на вашу помощь)))( программу не большую)

Answer 1

Uses graphabc;
begin
setwindowsize (600, 600);
setpencolor (clblack);
setbrushcolor (clgray);
rectangle (90, 90, 210, 450 );
setpencolor (clred);
setbrushcolor (clred);
circle (150, 150, 50);
setpencolor (clyellow);
setbrushcolor (clyellow);
circle (150, 260, 50);
setpencolor (clgreen);
setbrushcolor (clgreen);
circle (150, 370, 50);
setpencolor (clblack);
setbrushcolor (clgray);
rectangle (140, 450, 160, 600)
end.

Answer 2

Конечно, вот пример программы на языке Паскаль для рисования светофора:

program TrafficLight;

uses crt;

const
  RED = 4;
  YELLOW = 14;
  GREEN = 2;
  GRAY = 8;

procedure DrawTrafficLight;
begin
  // Рисуем вертикальную палку светофора
  TextColor(GRAY);
  WriteLn('    █');
  WriteLn('    █');
  WriteLn('    █');
  WriteLn('    █');
  
  // Рисуем красный сигнал
  TextColor(RED);
  WriteLn('   ███');
  WriteLn('   ███');
  WriteLn('   ███');
  WriteLn('   ███');
  
  // Рисуем желтый сигнал
  TextColor(YELLOW);
  WriteLn('    █');
  WriteLn('    █');
  WriteLn('   ███');
  WriteLn('   ███');
  
  // Рисуем зеленый сигнал
  TextColor(GREEN);
  WriteLn('    █');
  WriteLn('    █');
  WriteLn('    █');
  WriteLn('   ███');
end;

begin
  clrscr;
  DrawTrafficLight;
  ReadLn;
end.

Программа использует модуль `crt` для работы с цветами и очистки экрана. Константы `RED`, `YELLOW`, `GREEN` и `GRAY` задают цвета для рисования светофора. Процедура `DrawTrafficLight` отвечает за рисование светофора с нужными цветами. В основной части программы вызывается `clrscr` для очистки экрана, затем вызывается `DrawTrafficLight` и программа ожидает нажатия клавиши перед завершением.