Пользователь |
Сообщение: Паскаль (Тема#46227) |
Franchesko
Пет Рарка
Возраст: 31
: Киев
С нами с 13.05.08
Посты: 15445
|
Надо бы написать програмку. Суть такова: йожиг(*) идет по полю(двумерный массив mas[m,n] из пробелов). Начинает с 1,1 и топает до хавчика(точка m,n). Так вот мне надо сделать, что при нажатии W/A/S/D он передвигался. Фактически нужен кусок алгоритма, что под if записать.
Code:
if "нажать D" then
mas[i,j]:=mas[i+1,j]
Ну и аналогично для других клавиш я уже сам допишу...
|
|
|
Nameless
Maximus - Lite Edition
: 404
С нами с 02.11.05
Посты: 21233
|
|
|
KillMachine UA
генералиссимус
Возраст: 43
: Київ
С нами с 10.12.07
Посты: 25376
|
Надо бы написать програмку. Суть такова: йожиг(*) идет по полю(двумерный массив mas[m,n] из пробелов). Начинает с 1,1 и топает до хавчика(точка m,n). Так вот мне надо сделать, что при нажатии W/A/S/D он передвигался. Фактически нужен кусок алгоритма, что под if записать.
Code:
if "нажать D" then
mas[i,j]:=mas[i+1,j]
Ну и аналогично для других клавиш я уже сам допишу...
там немного по-другому нуно, сначала определить нажатие клавиши, потом определить её код, а потом уже с этим кодом отрабатывать действия
|
|
|
Franchesko
Пет Рарка
Возраст: 31
: Киев
С нами с 13.05.08
Посты: 15445
|
W #119
A #97
S #115
D #100
Примет глянул - что то напутано и сильно сложно... щас смотрю readkey как работает..
|
|
|
лучший друг
дружелюбный мясник
Возраст: 42
: ниризиновый
С нами с 26.04.05
Посты: 16780
|
капец, на лекциях на ноуте с друзьями шпилит по вайфаю, а вечером домашку спрашивает как сделать на форуме, где он шпилит в БФ
и эти дети - наше будущее
|
|
|
KillMachine UA
генералиссимус
Возраст: 43
: Київ
С нами с 10.12.07
Посты: 25376
|
var
CH : char;
const
Wkey = #119;
Akey = #97;
Skey = #115;
Dkey = #100;
Esckey = #27;
begin
repeat
repeat until KeyPressed;
CH := Readkey;
if (CH = ...) then ...
if (CH = ...) then ...
...
until (CH = Esckey);
end
|
|
|
Franchesko
Пет Рарка
Возраст: 31
: Киев
С нами с 13.05.08
Посты: 15445
|
так это не домашка Мне просто ради интереса написать хочеться По домашке у меня рекурсия(факториал посчитать) - я его уже давным давно сделал)
|
|
|
Franchesko
Пет Рарка
Возраст: 31
: Киев
С нами с 13.05.08
Посты: 15445
|
под then можно ж оформить процедуру, в которой алгоритм изменения массива прописать?
|
|
|
KillMachine UA
генералиссимус
Возраст: 43
: Київ
С нами с 10.12.07
Посты: 25376
|
угу, по науке процедуры пишутся на каждую кнопку отдельно, а потом уже подставляются куда надо
хотя если прога маленькая, то такой фигней можно и не заморачиваться
|
|
|
Franchesko
Пет Рарка
Возраст: 31
: Киев
С нами с 13.05.08
Посты: 15445
|
та лучше через процедуру щас напишу)
|
|
|
Franchesko
Пет Рарка
Возраст: 31
: Киев
С нами с 13.05.08
Посты: 15445
|
основу настрочил - завтра вечерком буду доделывать Пока что работать как надо не хочет....)
|
|
|
Franchesko
Пет Рарка
Возраст: 31
: Киев
С нами с 13.05.08
Посты: 15445
|
begin
repeat
repeat until KeyPressed;
CH := Readkey;
if (CH = ...) then ...
if (CH = ...) then ...
...
until (CH = Esckey);
end
Зачем эта строчка?
|
|
|
Nameless
Maximus - Lite Edition
: 404
С нами с 02.11.05
Посты: 21233
|
шоп зациклить, пока кнопка не будет нажата
можно еще if keypressed как в примере, на который я ссылку бросал. Тока там repeat в самом начале пропущен )
Отредактировано Nameless 10.02.11 01:07. Причина редактирования: Причина не указана.
|
|
|
Franchesko
Пет Рарка
Возраст: 31
: Киев
С нами с 13.05.08
Посты: 15445
|
дык эта... я зацикливаю нажатия кнопки, пока кнопка не будет нажата... ? О_о
|
|
|
Antonian
очень важный палитолаг
Возраст: 38
: Kiev,Ukraine
С нами с 18.10.03
Посты: 9148
|
В кодерстве не шарю :))) когда скомпилишь - кидай, набалуемся мы твоим ежЕгом :)))
|
|
|
Franchesko
Пет Рарка
Возраст: 31
: Киев
С нами с 13.05.08
Посты: 15445
|
Я пока хочу просто дописать, что б работало, а потом придумаю, как сделать какие нибудь стенки и тд
|
|
|
ROKO
белка-маньяк
Возраст: 36
: UA, Kiev
С нами с 21.03.06
Посты: 14763
|
В кодерстве не шарю :))) когда скомпилишь - кидай, набалуемся мы твоим ежЕгом :)))
Это паскаль, а не Делфи ,я уже не говорю про Си =))) Какое компилирование =)
|
|
|
KillMachine UA
генералиссимус
Возраст: 43
: Київ
С нами с 10.12.07
Посты: 25376
|
дык эта... я зацикливаю нажатия кнопки, пока кнопка не будет нажата... ? О_о
неа, зацикливается прога до нажатия любой кнопки
|
|
|
KillMachine UA
генералиссимус
Возраст: 43
: Київ
С нами с 10.12.07
Посты: 25376
|
Это паскаль, а не Делфи ,я уже не говорю про Си =))) Какое компилирование =)
эммм... а как ты себе представляешь работу программы БЕЗ компиляции?
|
|
|
ROKO
белка-маньяк
Возраст: 36
: UA, Kiev
С нами с 21.03.06
Посты: 14763
|
Я пока хочу просто дописать, что б работало, а потом придумаю, как сделать какие нибудь стенки и тд
стенки - вывод пикселей по координатам
А потом условиями изменяй по осям движение.
|
|
|