Предмет: Информатика,
автор: xujut
Нарисуйте в паскале пожалуйста, как решают в 11 классе
Приложения:
![](https://files.topotvet.com/i/dd1/dd17a3b569b355c71c351e5fc401a611.jpg)
Ответы
Автор ответа:
0
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.
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.
Приложения:
![](https://files.topotvet.com/i/903/903f68eb7a53c134a5a6a299ce32c93a.jpg)
Похожие вопросы
Предмет: Українська література,
автор: travkazelenet
Предмет: Математика,
автор: blackwoll2009
Предмет: Физика,
автор: saska6841
Предмет: Математика,
автор: lazareva305
Предмет: История,
автор: sasha2014982