Показать сообщение отдельно
  #1  
Старый 09.10.2017, 18:48
Sulackan Sulackan вне форума
Прохожий
 
Регистрация: 09.10.2017
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Добрый день, нужна помощь

Имеется такой код(Алгоритм рисования траектории), задача с помощью таймера пустить по этой траектории фигуру, застрял на этом моменте и очень прошу вашей помощи

Код:
var x,y,d,k1,k2,k3,k4,i,j:integer;
begin
//координаты верхнего левого треугольника
x:=100;
y:=100;
//длина катета
d:=50;
moveto(x,y);
for j:=1 to 4 do
 begin
  case j of
  1:begin
    k1:=1;
    k2:=1;
    k3:=0;
    k4:=-1;
    end;
  2:begin
    k1:=-1;
    k2:=1;
    k3:=1;
    k4:=0;
    end;
  3:begin
    k1:=-1;
    k2:=-1;
    k3:=0;
    k4:=1;
    end;
  4:begin
    k1:=1;
    k2:=-1;
    k3:=-1;
    k4:=0;
    end;
  end;
for i:=1 to 5 do
 begin
  if odd(i) then
   begin
    lineto(x+k1*d,y+k2*d);
    x:=x+k1*d;
    y:=y+k2*d;
   end
  else
   begin
    lineto(x+k3*d,y+k4*d);
    x:=x+k3*d;
    y:=y+k4*d;
   end;
 end;
end;
Админ: Пользуемся тегами при оформлении кода!
Изображения
Тип файла: png Траектория.png (644 байт, 4 просмотров)
Тип файла: png Фигура.png (1.8 Кбайт, 4 просмотров)
Ответить с цитированием