20.12.2007, 16:30
|
|
Познающий
Регистрация: 25.05.2007
Сообщений: 36
С нами:
9981605
Репутация:
28
|
|
вот этот кусок кода
Код:
det:=detect;
initgraph(det,dm,'c:\coding\bp\bgi\');
err:=graphresult;
if err<>grOk then writeln(grapherrormsg(err));
помести после readln( у тебя включается графика, а в ней readln не работает и не может считать данные), а лучше все эти 4 координаты прямоугольника сделай константами. Легче потом в коде разбираться. Это пока явные ошибки.
Ещё ты писал что точка начинает двигаться под углом А. Но у тебя нигде нет ввода угла А.
Так же немного не ясно, зачем функция lie. Она вроде как рисует прямоугольник вручную?
Последний раз редактировалось G1yuK; 20.12.2007 в 16:38..
|
|
|