Составить программу в Pascal ABC, которая нарисует светофор и букву Р.

Программа для PascalABC.NET:

uses GraphABC;

begin
  SetWindowSize(500, 450);
  SetBrushColor(clGray);
  Rectangle(120, 40, 280, 350);

  SetBrushColor(clRed);
  Circle(200, 100, 35);
  SetBrushColor(clYellow);
  Circle(200, 195, 35);
  SetBrushColor(clGreen);
  Circle(200, 290, 35);

  SetPenColor(clBlack);
  SetPenWidth(8);
  Line(350, 100, 350, 330);
  Line(350, 100, 420, 100);
  Line(420, 100, 420, 180);
  Line(420, 180, 350, 180);
end.

Слева программа рисует светофор, справа — печатную букву «Р».

0 0 Пожаловаться