![Таблицы Excel. ( ) На промежутке [0...10] с шагом 0,4. Вычисления оформить в виде таблицы, отформати](/tpl/images/4417/5545/2c6a0.jpg)
![Таблицы Excel. ( ) На промежутке [0...10] с шагом 0,4. Вычисления оформить в виде таблицы, отформати](/tpl/images/4417/5545/f7eab.jpg)
![Таблицы Excel. ( ) На промежутке [0...10] с шагом 0,4. Вычисления оформить в виде таблицы, отформати](/tpl/images/4417/5545/4a1a7.jpg)
uses drawman;
Procedure w;
Begin
PenDown;
OnVector (0,-7);
OnVector (2,0);
OnVector (0,7);
PenUp;
OnVector (0,-7) ;
PenDown;
OnVector (2,0);
OnVector (0,7);
PenUp;
end;
procedure T;
Begin
PenDown;
OnVector (0,7);
OnVector (-2,0);
OnVector(4,0); penUp;
end;
procedure O;
Begin
PenDown;
OnVector (4,0);
OnVector (0,7);
OnVector (-4,0);
OnVector (0,-7);
PenUp;
end;
procedure R;
PenDown;
OnVector (0,7);
OnVector (4,0);
OnVector (0,-4);
OnVector (-4,0);
PenUp;
end;
procedure A;
begin
PenDown;
OnVector (2,7);
OnVector (2,-7);
PenUp;
OnVector (-3,3);
PenDown;
OnVector (2,0);
PenUp;
end;
begin
Field (32,10);
ToPoint (3,7); w;
OnVector (4,-7); T;
OnVector (2,-7); O;
OnVector (6,0); R;
OnVector (5,-3); A;
end.
Вроде работает