Итак, новый год все ближе и ближе, а что еще так же близко как новый год? Ну, КОНЕЧНО ЖЕ, сессия.Дорогие друзья, спасите D:Практическая работа по программированию, нужно заставить рисунок двигаться (влево, вправо, вверх, вниз ), с помощью процедур и меню, рисунок есть, меню тоже оформил, но как настроить через него управление рисунком и заставить его двигаться? Помогите чем сможете пожалуйстаP.S Pascal Turbo, первая половина 3 курсаНе могу сделать в связи с тем, что на лекции по процедурам не ходил потому, что заболел, а самостоятельно изучать было лень
>турбо ПаскальПиздец. Вся суть снгшараг
>>896148 (OP)> самостоятельно изучать было леньну вот и случай представился же!
>>896148 (OP)Переменнные ты тоже походу проспал.Замечательная между прочим штука, эти переменные - может меняться в рантайме.Охуеть, да?
Местное быдло не умеет в такие сложные языки как Pascal
>>896265у меня freepascal
>>896403на третьем курсе не знать подобного?
>>896148 (OP)var x,y:integer;c:char;repeatwhile not keypressed do; c:=readkey;if c=0 then c:=readkey; {у стрелок вначале ноль приходит} writeln(' najata klavisha s kodom = ',ord(c)); {почитаешькоды клавишь}if ord(c)=kod_left then x:=x-1;if ord(c)=kod_right then x:=x+1;if ord(c)=kod_up then y:=y-1;if ord(c)=kod_down then y:=y+1;{RENDER HERE}until (ord(c)=27);{esc key}
