Форумы Серверы Суспільство
Игры Серверы VBIOS General Soft & Hard Увлечения А поговорить... Культура Полезная информация Межигір'я Чат

  1 из 4 1234
Пользователь Сообщение: Паскаль        (Тема#46227)
Franchesko 
Пет Рарка
Franchesko
Возраст: 27
: Киев
С нами с 13.05.08
Посты: 15386
09.02.11 23:41 Ukraine #941547
Надо бы написать програмку. Суть такова: йожиг(*) идет по полю(двумерный массив 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
Nameless
: 404
С нами с 02.11.05
Посты: 21233
09.02.11 23:51 [Re: Franchesko] Ukraine #941556
глянь пример:
http://www.cyberforum.ru/pascal/thread171090.html#post996249
KillMachine UA 
генералиссимус
KillMachine UA
Возраст: 39
: Київ
С нами с 10.12.07
Посты: 25376
09.02.11 23:56 [Re: Franchesko] Ukraine #941558
  • Franchesko :
Надо бы написать програмку. Суть такова: йожиг(*) идет по полю(двумерный массив mas[m,n] из пробелов). Начинает с 1,1 и топает до хавчика(точка m,n). Так вот мне надо сделать, что при нажатии W/A/S/D он передвигался. Фактически нужен кусок алгоритма, что под if записать.
Code:
if "нажать D" then mas[i,j]:=mas[i+1,j]


Ну и аналогично для других клавиш я уже сам допишу...

там немного по-другому нуно, сначала определить нажатие клавиши, потом определить её код, а потом уже с этим кодом отрабатывать действия
Franchesko 
Пет Рарка
Franchesko
Возраст: 27
: Киев
С нами с 13.05.08
Посты: 15386
10.02.11 00:01 [Re: KillMachine UA] Ukraine #941561
W #119
A #97
S #115
D #100
Примет глянул - что то напутано и сильно сложно... щас смотрю readkey как работает..
лучший друг 
дружелюбный мясник
лучший друг
Возраст: 38
: ниризиновый
С нами с 26.04.05
Посты: 16780
10.02.11 00:09 [Re: Franchesko] Ukraine #941564
капец, на лекциях на ноуте с друзьями шпилит по вайфаю, а вечером домашку спрашивает как сделать на форуме, где он шпилит в БФ
и эти дети - наше будущее
KillMachine UA 
генералиссимус
KillMachine UA
Возраст: 39
: Київ
С нами с 10.12.07
Посты: 25376
10.02.11 00:10 [Re: Franchesko] Ukraine #941565
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 
Пет Рарка
Franchesko
Возраст: 27
: Киев
С нами с 13.05.08
Посты: 15386
10.02.11 00:11 [Re: лучший друг] Ukraine #941567
так это не домашка Мне просто ради интереса написать хочеться По домашке у меня рекурсия(факториал посчитать) - я его уже давным давно сделал)
Franchesko 
Пет Рарка
Franchesko
Возраст: 27
: Киев
С нами с 13.05.08
Посты: 15386
10.02.11 00:15 [Re: KillMachine UA] Ukraine #941571
под then можно ж оформить процедуру, в которой алгоритм изменения массива прописать?
KillMachine UA 
генералиссимус
KillMachine UA
Возраст: 39
: Київ
С нами с 10.12.07
Посты: 25376
10.02.11 00:16 [Re: Franchesko] Ukraine #941572
угу, по науке процедуры пишутся на каждую кнопку отдельно, а потом уже подставляются куда надо

хотя если прога маленькая, то такой фигней можно и не заморачиваться
Franchesko 
Пет Рарка
Franchesko
Возраст: 27
: Киев
С нами с 13.05.08
Посты: 15386
10.02.11 00:18 [Re: KillMachine UA] Ukraine #941575
та лучше через процедуру щас напишу)
Franchesko 
Пет Рарка
Franchesko
Возраст: 27
: Киев
С нами с 13.05.08
Посты: 15386
10.02.11 00:48 [Re: Franchesko] Ukraine #941591
основу настрочил - завтра вечерком буду доделывать Пока что работать как надо не хочет....)
Franchesko 
Пет Рарка
Franchesko
Возраст: 27
: Киев
С нами с 13.05.08
Посты: 15386
10.02.11 00:54 [Re: KillMachine UA] Ukraine #941593
  • KillMachine UA :


begin
repeat
repeat until KeyPressed;
CH := Readkey;
if (CH = ...) then ...
if (CH = ...) then ...
...
until (CH = Esckey);
end

Зачем эта строчка?
Nameless 
Maximus - Lite Edition
Nameless
: 404
С нами с 02.11.05
Посты: 21233
10.02.11 01:05 [Re: Franchesko] Ukraine #941597
шоп зациклить, пока кнопка не будет нажата
можно еще if keypressed как в примере, на который я ссылку бросал. Тока там repeat в самом начале пропущен )

Отредактировано Nameless 10.02.11 01:07. Причина редактирования: Причина не указана.
Franchesko 
Пет Рарка
Franchesko
Возраст: 27
: Киев
С нами с 13.05.08
Посты: 15386
10.02.11 08:15 [Re: Nameless] Ukraine #941627
дык эта... я зацикливаю нажатия кнопки, пока кнопка не будет нажата... ? О_о
Antonian 
очень важный палитолаг
Antonian
Возраст: 35
: Kiev,Ukraine
С нами с 18.10.03
Посты: 9101
10.02.11 11:33 [Re: Franchesko] Ukraine #941736
В кодерстве не шарю :))) когда скомпилишь - кидай, набалуемся мы твоим ежЕгом :)))
Franchesko 
Пет Рарка
Franchesko
Возраст: 27
: Киев
С нами с 13.05.08
Посты: 15386
10.02.11 12:33 [Re: Antonian] Ukraine #941812
Я пока хочу просто дописать, что б работало, а потом придумаю, как сделать какие нибудь стенки и тд
ROKO 
белка-маньяк
ROKO
Возраст: 33
: UA, Kiev
С нами с 21.03.06
Посты: 14756
10.02.11 17:10 [Re: Antonian] Ukraine #942171
  • Antonian :
В кодерстве не шарю :))) когда скомпилишь - кидай, набалуемся мы твоим ежЕгом :)))

Это паскаль, а не Делфи ,я уже не говорю про Си =))) Какое компилирование =)
KillMachine UA 
генералиссимус
KillMachine UA
Возраст: 39
: Київ
С нами с 10.12.07
Посты: 25376
10.02.11 17:10 [Re: Franchesko] Ukraine #942172
  • Franchesko :
дык эта... я зацикливаю нажатия кнопки, пока кнопка не будет нажата... ? О_о

неа, зацикливается прога до нажатия любой кнопки
KillMachine UA 
генералиссимус
KillMachine UA
Возраст: 39
: Київ
С нами с 10.12.07
Посты: 25376
10.02.11 17:11 [Re: ROKO] Ukraine #942176
  • ROKO :

Это паскаль, а не Делфи ,я уже не говорю про Си =))) Какое компилирование =)

эммм... а как ты себе представляешь работу программы БЕЗ компиляции?
ROKO 
белка-маньяк
ROKO
Возраст: 33
: UA, Kiev
С нами с 21.03.06
Посты: 14756
10.02.11 17:11 [Re: Franchesko] Ukraine #942177
  • Franchesko :
Я пока хочу просто дописать, что б работало, а потом придумаю, как сделать какие нибудь стенки и тд

стенки - вывод пикселей по координатам
А потом условиями изменяй по осям движение.
  1 из 4 1234
Icon Legend Права Настройки темы
Распечатать тему


2993 Просмотры
Реклама
130 сейчас в онлайне
8 пользователей (Mike_Mildy, 6APMALEU, Hac9lJlbHuKe, IrokeZZ, SerB2, artyom-310608, Din0saur, MAXVBIOS) и 2 скрытых, а также 120 гостей сейчас онлайн.
VBIOS Version 3.0 FINAL | ©1999-2020
Execution time: 0.931 seconds.   Total Queries: 79   Zlib сжатие вкл.
All times are (GMT+3). Current time is 17:09
Top