Даны три прямоугольника, каждого из которых известны координаты вершин одной диагонали: 1) 20, 20 и 80, 200;
2) 200, 97 и 500, 156;
3) 300, 120 и 400, 420. Составьте программу, которая рисует эти прямоугольники красным, жёлтым и зелёным цветами, соответственно.
ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ
Answers & Comments
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.
Verified answer
PascalABCNETuses 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.