Нарисуйте в паскале пожалуйста, как решают в 11 классе
Нарисуйте в паскале пожалуйста, как решают в 11 классе
Гость
Ответ(ы) на вопрос:
Гость PascalABC.Net 3.2
uses GraphABC;
begin
Pen.Width:=3;
DrawRectangle(125,325,150,350);
DrawRectangle(225,325,250,350);
var Pt1:=Arr((100,325),(125,300),(150,300),(175,325),
(175,350),(150,375),(125,375),(100,350),(100,325));
DrawPolygon(Pt1);
Pt1:=Arr((200,325),(225,300),(250,300),(275,325),
(275,350),(250,375),(225,375),(200,350),(200,325));
DrawPolygon(Pt1);
Line(125,300,275,100);
Line(175,325,275,100);
Line(200,325,100,100);
Line(250,300,100,100)
end.
Не нашли ответ?
Похожие вопросы