RblSb, вот:

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. procedure proc2; forward;
2. procedure proc3; forward;
3. procedure proc1;
4. begin proc2 end;
5. procedure proc2;
6. begin proc3 end;
7. procedure proc3;
8. begin {some code} end;

У меня не получается сделать передвижение текста, в чём моя ошибка?

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. program shit;
2.  const user='Kalter';
3.  type cursor=record x,y:integer end;
4.  var ndx:integer;
5.      cur:cursor;
6.   begin ndx:=keytoaction(getkeyclicked);
7.         cur.x:=getwidth div 2;
8.         cur.y:=getheight div 2;
9.         repeat setcolor(0,0,0);
10.                fillrect(0,0,getwidth,getheight);
11.                setcolor(0,255,0);
12.                drawtext(user,cur.x,cur.y);
13.                repaint;
14.                if ndx=ga_right then cur.x:=cur.x+2;
15.                if ndx=ga_left then cur.x:=cur.x-2;
16.                if ndx=ga_up then cur.y:=cur.y+2;
17.                if ndx=ga_down then cur.y:=cur.y-2 until ndx=ga_fire end.

Цикла кажись нет, текст один раз вывелся и программа ждет нажатия fire

vl@volk, А как же repeat until ?

я хз чё это, люблю циклы

Kalter, текст по идее должен двигаться, только не в ту сторону, куда ты его направишь. Это связано с тем, что координаты отчитываются от верхнего правого угла.

Kalter, ndx:=keytoaction(getkeyclicked); в цикл впихни.

Helltar, помогло, спасибо.

дайте ссылочку на турбо, в пп битая

ВитаминКО, держи