Предмет: Информатика, автор: xujut

Нарисуйте в паскале пожалуйста, как решают в 11 классе

Приложения:

Ответы

Автор ответа: Аноним
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.

Приложения:
Похожие вопросы
Предмет: Математика, автор: blackwoll2009
Предмет: Математика, автор: lazareva305