Question

Даны три прямоугольника, каждого из которых известны координаты вершин одной диагонали: 1) 20, 20 и 80, 200;
2) 200, 97 и 500, 156;
3) 300, 120 и 400, 420. Составьте программу, которая рисует эти прямоугольники красным, жёлтым и зелёным цветами, соответственно.

ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ

Answer 1

PascalABCNET

uses graphABC;
begin
setpencolor (clRed);
line(20,20,20,200);
line(20,200,80,200);
line(80,200,80,20);
line(80,20,20,20);

setpencolor (clYellow);
line(200,97,200,156);
line(200,156,500,156);
line(500,156,500,97);
line(500,97,200,97);

setpencolor (clGreen);
line(300,120,300,420);
line(300,420,400,420);
line(400,420,400,120);
line(400,120,300,120)
end.

Answer 2

uses GraphABC;

begin
  Window.SetSize(600,500);
  setpenwidth (2);
  setpencolor(clRed);
  DrawRectangle(20,20,80,200);
  setpencolor(clYellow);
  DrawRectangle(200,97,500,156);
  setpencolor(clGreen);
  DrawRectangle(300,120,400,420);
end.