помогите решить второе задание плиз! а первое задание для второго ну тоесть во втором написао что надо первое)

1

Ответы и объяснения

2013-05-29T02:42:44+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program Envelope_1;
uses Drawman;
begin
   Field(10,10);
   OnVector(2,1);
   PenDown;
   OnVector(0,4);
   OnVector(6,0);
   OnVector(0,-4);
   OnVector(-6,0);
   OnVector(6,4);
   OnVector(-3,2);
   OnVector(-3,-2);
   OnVector(6,-4);
end.
   

Program Envelope_2a;
uses Drawman;
begin
   Field(10,10);
   OnVector(2,1);
   PenDown;
   OnVector(0,4);
   OnVector(6,0);
   OnVector(0,-4);
   OnVector(-6,0);
   PenUp;
   OnVector(0,4);
   PenDown;
   OnVector(3,-2);
   OnVector(3,2);
end.
   

Program Envelope_2b;
uses Drawman;
begin
   Field(10,10);
   OnVector(2,1);
   PenDown;
   OnVector(0,4);
   OnVector(6,0);
   OnVector(0,-4);
   OnVector(-6,0);
   OnVector(6,4);
   OnVector(-3,2);
   OnVector(-3,-2);
end.

Program Envelope_2c;
uses Drawman;
begin
   Field(10,10);
   OnVector(2,1);
   PenDown;
   OnVector(0,4);
   OnVector(6,0);
   OnVector(0,-4);
   OnVector(-6,0);
   PenUp;
   OnVector(6,4);
   PenDown;
   OnVector(-3,2);
   OnVector(-3,-2);
   OnVector(6,-4);
end.

Program Envelope_2d;
uses Drawman;
begin
   Field(10,10);
   OnVector(2,1);
   PenDown;
   OnVector(0,4);
   OnVector(6,0);
   OnVector(0,-4);
   OnVector(-6,0);
   PenUp;
   OnVector(0,4);
   PenDown;
   OnVector(3,2);
   OnVector(3,-2);
end.