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

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

Задать свой вопрос
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.
Юрик Лисицин-Светланов
x,y - точки начала фигуры, lineLong - длина одного из отрезка, time - количество фигур(ввысь,на право,вниз,на право).
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт