Graph Pascal

[Petr1K]

Разбиваем экран на шесть частей (две строки и три столбца), в каждом из которых строим вложенные квадраты, используя принцип: если оба (строка и столбец) – чётные или нечётные, вращаем по часовой стрелке, если одна (один) чётная, а другая (другой) – нечётная, вращаем против часовой стрелки.
Координаты каждого вложенного квадрата вычисляются по формулам


x=x1+u(x2-x1)
y=y1+u(y2-y1)
-1 <= u <= 1

[Petr1K]

помогите пожалуйста решить

[OCTAGRAM]

Я не понял, это просто 6 квадратов должны вращаться?

[Jora_Kornev]

да, согласен, странное условие...

[Petr1K]

я сам не вьехал, скажите тогда как квадраты заставить вращаться?

[Petr1K]

program xd;
uses Graph,crt;
const
a =100;
var
gd, gm,i : integer;
x0,y0,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5 ,l,h: integer;

procedure linerel (x,y,k: integer);
begin
{moveto (x+k,y-k);
lineto (x+a+k,y+k);
lineto (getx-k,y+a+k);
lineto (getx-a-k,gety-k);
lineto (x+k,y-k)}

line(x+k,y-k,x+a+k,y+k);
line(x+a+k,y+k,x+a+k,y+a+k);
line(x+a+k,y+a+k,x+k,y+a-k);
line(x+k,y+a-k,x+k,y-k);
end;
begin
if a<0 then writeln ('Error!')
else
begin
writeln ('Vvedite koordinati levogo verxnego ugla kvadrata:');
write ('x= '); readln (x0);
write ('y= '); readln (y0);
write ('l= '); readln (l);
write ('h= '); readln (h);

gd:=detect;
gm:=1;
initgraph (gd,gm,'egavga.bgi');
readln;
for i:=1 to 100 do begin
setcolor(14);
linerel (x0,y0,i); delay(10000);
setcolor(0);
linerel (x0,y0,i);
end;
setcolor(14);
linerel (x0+h*l,y0,0); linerel (x0+2*(h*l),y0,0);
linerel (x0,y0+h*l,0); linerel (x0+h*l,y0+h*l,0); linerel (x0+2*(h*l),y0+(h*l),0);

end;

readln;
closegraph
end.

(вот мой вариант)

[OCTAGRAM]

    writeln ('Введите координаты левого верхнего угла квадрата:');
    write ('x='); readln (x0);
    write ('y='); readln (y0);
    write ('l='); readln (l);
    write ('h='); readln (h);

А зачем это нужно?

[Petr1K]

мы вручную координаты квадрата задаем

[OCTAGRAM]

А это обязательно делать?

Было бы проще узнать GetMaxX, GetMaxY и по ним рассчитать.

Ну вот какие, например, значения вводить? Мне не очевидно.

[Petr1K]

мне бы главное заставить квадрат вращаться, он у меня неправильно вращается