Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.