Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - [pascal]Graph (https://forum.antichat.xyz/showthread.php?t=51995)

r0	25.10.2007 19:55

[pascal]Graph

Как реализовать точку, движущуюся в заданном прямоугольнике(rectangle(x1,y1,x2,y2 ) ), чтобы она отскакивала от краев?
Начинает движение под углом A.

DWORD

25.10.2007 21:17

Что непонятно, алгоритм отражения? Угол падения равен углу отражения (они рядом лежат через перпендикуляр к отражающей поверхности)

Sn@k3

25.10.2007 22:45

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

ZaCo	25.10.2007 22:49

>>движущуюся в заданном прямоугольнике(rectangle(x1,y1,x2,y2 ) )
при ударе об боковые стенки координата х меняется на противоположную, при ударе об нижнюю или верхнюю стенку y.

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

а при чем тут графы?

DWORD

25.10.2007 22:51

Да, графы тут непричем. Название темы, как я понимаю, от слова "графика"

~Lexx~

25.10.2007 22:54

ГЫ. Херасебе курсовые... у меня на первом курсе надо было написать язык прогграммирования, со сходными паскалю командами - тоесть полностью поддержка ООП, обращение к памяти... пришлось пас выучить досконально. На самом деле все действительно очень просто - выводишь уравнение движения(по х и по у), и потом выделяя целую часть из каждой координыты строишь точку. уравнения можно взять из линейной алгебры, если незнаешь как )))

DWORD

25.10.2007 22:56

Lexx, расскажи пожалуйста что у тебя за институт и факультет. Если стесняешься, можно в приватные сообщения.

~Lexx~

25.10.2007 23:05

У меня Белорусский государственный университет, факультет радиофизики и электроники. Специальность компьютерная безопасность. Кстати если есть желание - где то на bsu.by можно скачать электронные конспекты почти по всем предметам - линейная алгебра - 1 курс Березкина Л.Л. там ооочень хорошо распиана вся линейка и аналитическая геометрия.

DWORD

25.10.2007 23:08

Спасибо мне на самом деле было бы очень интересно почитать официальный сайт, если на нем размещены курсы учебных планов например и какие-то конспекты

r0	26.10.2007 15:42

Слово

Цитата:

"Graph"

означает название модуля, позволяющего формировать изображения..
Ну в идеале я ожидал хотя бы пару строк кода.. А тема ушла в обсуждение "какой я крутой, а ты лох".
То что угол падения равен углу отражения это я и так знаю("от старшего брата"), пишу я не курсовую. Спасибо за напоминание.
Спасибо за ответы.

G1yuK

26.10.2007 16:32

угу с графом на первом курсе в своё время веселились(хотя задание веселое попалось, реализовать посадку спутника на планету, увеличивая уменьшая тягу), ну это поофтопил чутка...
я раньше на с+ писал подобное, но доделланый код затерялся.
С точкой сделать проще, чем с кругом.
Как и написал ZaCo, меняешь x и y на противоположный.Например есть шаги dx и dy, вначале они равны по 1, при достигании максимому по например x2-1(так как точка будет иметь радиус=1), меняем dx=-1,это если по прямой летает, если под углом, то и соответствующий dy. Только в таком случае, фигурка летает под углом 45 градусов, а для разноообразного начала движения, использовал рандомное значения dx и dy (-1 или 1 для каждого)

hidden

27.10.2007 01:38

G1yuK ответил наиболее правильно.

Просто определяешь dx и dy
dx:=sin(угол)*скорость;
dy:=cos(угол)*скорость;

а потом в цикле прибавляешь их к x и y
x:=x+dx;
y:=y+dy;
if ((x<rect.left) or (x>rect.right)) then dx:=-dx;
if ((y<rect.top) or (y>rect.bottom)) then dy:=-dy;

и перерисовываешь точку

That's it!

r0	20.12.2007 12:35

Ну вот что-то написал, может кто-нибудь поможет дописать? Очень надо =(

Код:

uses crt,graph;

var q,p,err,det,dm,x1,y1,x2,y2,i:integer;



function point(c,d:integer):integer;

begin



putpixel(c,d,2);

delay(10000);



putpixel(c,d,0);

end;



function lie(c,d,e,f:integer):integer;

begin

for i:=c to d do

begin

  delay(1000);

  setcolor(5);

  LineTo(i,d);

  delay(500);

  setcolor(15);

  LineTo(i+5,d);

end;

for i:=d to f do

begin

  delay(1000);

  setcolor(5);

  LineTo(e,i);

  delay(500);

  setcolor(15);

  LineTo(e,i+5);

end;



for i:=e downto c do

begin

  delay(1000);

  setcolor(5);

  LineTo(i,f);

  delay(500);

  setcolor(15);

  LineTo(i-5,f);

end;

for i:=f downto d do

begin

  delay(1000);

  setcolor(5);

  LineTo(c,i);

  delay(500);

  setcolor(15);

  LineTo(c,i-5);

end;





end;





begin

det:=detect;

initgraph(det,dm,'c:\coding\bp\bgi\');

err:=graphresult;

if err<>grOk then writeln(grapherrormsg(err));

readln(x1,y1,x2,y2);

rectangle(x1,y1,x2,y2);



{вычисление приращений для отскока}  

p:=x1;

q:=y1;

repeat

p:=p+1;

q:=q+2;

point(p,q);

if p>=x2 then

p:=p-2;

if q>=y2 then

q:=q-4;



lie(x1,y1,x2,y2);

until keypressed;





readkey;

closegraph;

end.

G1yuK

20.12.2007 16:30

вот этот кусок кода

Код:

det:=detect;

initgraph(det,dm,'c:\coding\bp\bgi\');

err:=graphresult;

if err<>grOk then writeln(grapherrormsg(err));

помести после readln( у тебя включается графика, а в ней readln не работает и не может считать данные), а лучше все эти 4 координаты прямоугольника сделай константами. Легче потом в коде разбираться. Это пока явные ошибки.
Ещё ты писал что точка начинает двигаться под углом А. Но у тебя нигде нет ввода угла А.
Так же немного не ясно, зачем функция lie. Она вроде как рисует прямоугольник вручную?

Xserg

20.12.2007 16:35

Для угла 45гр добавь две переменные vx,vy:integer;

Код:



{вычисление приращений для отскока}  

p:=x1; vx:=+1;

q:=y1; vy:=+1;

repeat

if ((p+vx)<x2) and ((p+vx)>x1) then p:=p+vx else if vx>0 then vx:=-1 else vx:=+1;

if ((q+vy)<y2) and ((q+vy)>y1) then q:=q+vy else if vy>0 then vy:=-1 else vy:=+1;

point(p,q);

lie(x1,y1,x2,y2);

until keypressed;

Паскалей нет проверить не могу :(

r0	20.12.2007 20:47

Цитата:

помести после readln( у тебя включается графика, а в ней readln не работает и не может считать данные), а лучше все эти 4 координаты прямоугольника сделай константами.

У меня все работает, данные readln считывает.
На угол мне уже пофик, лишбы двигалась точка, хотя, конечно, и угол не помешал бы.

Цитата:

Так же немного не ясно, зачем функция lie. Она вроде как рисует прямоугольник вручную?

http://forum.antichat.ru/showpost.php?p=487880&postcount=61
Xserg с п а с и б о!)
Переделал вот так:

Код:

p:=x1; vx:=trunc(sin(a))+3;

q:=y1; vy:=trunc(cos(a))+3;

repeat

if ((p+vx)<x2) and ((p+vx)>x1) then p:=p+vx else if vx>0 then vx:=-3 else vx:=+3;

if ((q+vy)<y2) and ((q+vy)>y1) then q:=q+vy else if vy>0 then vy:=-3 else vy:=+3;

point(p,q);

lie(x1,y1,x2,y2);

until keypressed;

Хм.. теперь осталось вычислить соприкасается ли Удав и точка...

r0	21.12.2007 20:42

Так, как я уже писал, остается вычислить соприкасается ли Удав и точка...
Чтобы мне сравнить координаты точки(он же зайчек) и удава, мне нужно чтобы ф-я возвращала в программу параметры? Правильно я написал? Что-то нет у меня радостного сообщения на экране "congrats!"

Код:

uses crt,graph;

var vx,vy,q,p,err,det,dm,x1,y1,x2,y2,i,a:integer;





function point(k,l:integer):integer;

begin



putpixel(k,l,2);

delay(9000);



putpixel(k,l,0);

end;



procedure lie(var c,d,e,f:integer);

begin

for i:=c to d do

begin

  delay(1000);

  setcolor(5);

  LineTo(i,d);

  delay(500);

  setcolor(15);

  LineTo(i+5,d);

end;

for i:=d to f do

begin

  delay(1000);

  setcolor(5);

  LineTo(e,i);

  delay(500);

  setcolor(15);

  LineTo(e,i+5);

end;



for i:=e downto c do

begin

  delay(1000);

  setcolor(5);

  LineTo(i,f);

  delay(500);

  setcolor(15);

  LineTo(i-5,f);

end;

for i:=f downto d do

begin

  delay(1000);

  setcolor(5);

  LineTo(c,i);

  delay(500);

  setcolor(15);

  LineTo(c,i-5);

end;





end;





begin

det:=detect;

initgraph(det,dm,'e:\bp\bgi\');

err:=graphresult;

if err<>grOk then writeln(grapherrormsg(err));

readln(x1,y1,x2,y2,a);

rectangle(x1,y1,x2,y2);



{вычисление приращений для отскока}



p:=x1; vx:=round(sin(a)+3);

q:=y1; vy:=round(cos(a)+3);

repeat

if ((p+vx)<=x2) and ((p+vx)>=x1) then p:=p+vx else if vx>=0 then vx:=-3 else vx:=+3;

if ((q+vy)<=y2) and ((q+vy)>=y1) then q:=q+vy else if vy>=0 then vy:=-3 else vy:=+3;

point(p,q);

lie(x1,y1,x2,y2);

if ( (p=x1) or (p=x2) ) and ( (q=y1) or (q=y2) ) then

begin

     setcolor(10);

     settextstyle(3,0,8);

     outtextxy(150,200,'CONGRATS! Udav fucked the rabbit! ');



end;

until keypressed;





readkey;

closegraph;

end.

G1yuK

22.12.2007 03:49

Код:

if (k=1) then

begin

     clrscr;

     setcolor(10);

     settextstyle(3,0,8);

     outtextxy(150,200,'CONGRATS! Udav fucked the rabbit! ');

     delay(1000);

end;

немного код переписать и поставить после слов until ((keypressed) or (k=1)) и в самом начале программы k:=0; . А на место того кода при выполнении условия k:=1; У тебя даже если зайчика поймали, он продолжит рисовать поверх надписи о победе.
Так же тебе надо синхронизировать передвижение зайца и удава. А то у тебя удав делает полный круг и заяц делает ход. Может хотя бы разбить те 4 цикла на 4 функции. Передвижение по нижней планке ,левой правой, верхней. И вызывать по определённому условию

Время: 11:27