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

[-tania-]

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

[Tan]

round(x) - округление до целого

[-tania-]

Я и так пробовала, пишут ту же самую ошибку.

[mamont001]

Можеш привести код программы?

[-tania-]

uses graph,crt;
var d,m:integer;x1,x2,x3,x4,y1,y2,y3,y4:integer; xc,yc:real;
begin
clrscr;
initgraph(d,m,'');
readln(x1);
readln(x2);
readln(x3);
readln(x4);
readln(y1);
readln(y2);
readln(y3);
readln(y4);

line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x4,y4);
line(x4,y4,x1,y1);
xc:=(x4+x2)/2;
yc:=(y1+y3)/2; round(x); round(yc);
circle(xc,yc,10);

end.

!

Пользуемся тегами !

[Tan]

Задача такая: на паскале пользователь вводит координаты четырех углов ромба

Вероятно речь идёт о вершинах ромба. В таком случае не забывай что пользователь может ввести координаты фигуры, которая не будет ромбом.

Сообщение отредактировано: Tan - 3.04.2007 20:14

[-tania-]

Здесь она выдает мне ошибку, дальше вообще не знаю как.

Добавлено через 2 мин.
Tan, и как в этом случае писать? Тогда вообще непонятно, как эту окружность туда впихнуть.

[Tan]

circle (round(xc),round(yc),10). А ты по пифагору проверь, все ли стороны равны. Немного неправильно выразился, то есть используй теорему пифагора чтобы найти длины сторон фигуры и потом сравни их.

Сообщение отредактировано: Tan - 3.04.2007 20:29

[-tania-]

окружность нарисовать получилось, а как тогда двигать целую фигуру, а не одну точку?

[klem4]

Есть несколько вариантов как можно перемещать ихображение оп экрану

- отрисоывать каждый раз заново, относительно некой базовой точки
- отрисовать изображение 1 раз, захватить его с помощью GetImage, а за тем выводить где угодно с помощью PutImage


Воспользуйся поиском, решалось много задач на движение фигур, шариков всяких ...

[Tan]

Притивно : идти по всем точкам экрана и проверять их цвет, если это цвет нарисованной фигуры, то двигаем пиксель в зависимости от клавиши, при этом ставя цвет точки на которую "напоролись" цветом экрана . То есть когда пройдёшь по всем точкам, они будут подвинуты. Но это не лучший вариант.

[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

[-tania-]

[tag=]uses graph,crt;
var d,m:integer;x1,x2,x3,x4,y1,y2,y3,y4:integer; xc,yc:real; c:char;
begin
clrscr;
initgraph(d,m,'');
readln(x1);
readln(x2);
readln(x3);
readln(x4);
readln(y1);
readln(y2);
readln(y3);
readln(y4);
repeat
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x4,y4);
line(x4,y4,x1,y1);
xc:=(x4+x2)/2;
yc:=(y1+y3)/2;
circle(round(xc),round(yc),10);
gotoxy(x1,y1);
c:=readkey;
case c of
'd':if(x3+1)<640 then x1:=x1+1;
's':if(y2+1)<480 then y1:=y1+1;
'a':if (x4-1)>0 then x1:=x1-1;
'w':if(y1-1)>0 then y2:=y2-1;
until c=chr(27);
end.

Добавлено через 1 мин.
он мне подчеркивает где until и выдает какую-то ошибку

[Tan]

end после case надо

[-tania-]

Я сейчас написала. Он мне двигает только точки которые в if, больше ничего не делает, только "растягивает" фигуру, а мне нужно чтобы она просто вся перерисовывалась.

[volvo]

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

А я сомневаюсь, что ты знаешь, что такое GetImage в таком случае, ибо для ее использования совершенно не нужны указатели... Буфер нужен, а вот указатели - совсем нет...