Задача на графику Опции

[-tania-]

Задача такая: на паскале пользователь вводит координаты четырех углов ромба. Нужно нарисовать ромб, в центре маленькую окружность, и по кнопкам вверх, вниз, вправо, влево ромб с окружностью должны соответственно двигаться. Задачка простая, но я не могу ее никак написать: ромб я нарисовала, рассчитала координаты центра окружности, акогда начала рисовать саму окружность
circle(xcentra,ycentra,r),
то паскаль мне пишет ошибку type mismatch. xcentra,ycentra у меня real, но как округлять здесь числа я понятия не имею. Помогите пожалуйста!

[mamont001]

Начнём из далека-считывание клавиши:

Procedure otris(x1,y1,x2,y2,x3,y3,x4,y4);
var
  xc,yc:word;
begin
 line(x1,y1,x2,y2);
 line(x2,y2,x3,y3);
 line(x3,y3,x4,y4);
 line(x4,y4,x1,y1);
 xc:=(x4+x2) div 2;
 yc:=(y1+y3) div 2;
 circle(xc,yc,10);
end;
{Вначале обьявляем переменную}
ch:char;
{.................................}
{потом считываем клавишу:}
ch:=readkey;
{Стрелочки это отдельная тема, поетому хватит W,S,A,D}
if ch=97 then
begin
 setcolor(0);
 otris(x1,y1,x2,y2,x3,y3,x4,y4);
 setcolor(4);
 x1:=x1-1;
 x2:=x2-1;
 x3:=x3-1;
 x4:=x4-1;
 otris(x1,y1,x2,y2,x3,y3,x4,y4);

end;       {Клавиша a}
{...........................}

Добавлено через 3 мин.
2 Tan

... это не самый лучший вариант...

Это не вариант это такой геморой ,что сложнее сложно было придумать...

2 klem4

...getimage...

Я сомневаюсь, что этот человек знает указатели....

Сообщение отредактировано: mamont001 - 3.04.2007 21:07