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

ЯнаВасиленко ЯнаВасиленко    3   20.09.2019 22:10    3

Ответы
kristy43rus kristy43rus  08.10.2020 05:37
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.
ПОКАЗАТЬ ОТВЕТЫ
Laki333 Laki333  08.10.2020 05:37
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.
Даны три прямоугольника, каждого из которых известны координаты вершин одной диагонали: 1) 20, 20 и
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика