Используя вспомогательные алгоритмы запрограммируйте

Question

Используя вспомогательные алгоритмы запрограммируйте

---

Answer 1

Program drawFigure;
uses 
 graph;
var 
 gD,gR:integer;
 procedure drawIt(x,y,lineLong,time:word);
  var
   ci:byte;
  begin
   moveTo(x,y);
   lineTo(GetX+lineLong,GetY);
   for ci:=1 to time do
    begin
     lineTo(GetX,GetY-lineLong); lineTo(GetX+lineLong,GetY);
     lineTo(GetX,GetY+lineLong); lineTo(GetX+lineLong,GetY);         
    end;
  end;
begin
 initgraph(gD,gR,'');
 drawIt(80,80,50,2);
 readln; closeGraph;
end.

Comments

x,y - точки начала фигуры, lineLong - длина одного из отрезка, time - количество фигур(вверх,вправо,вниз,вправо).