Ожидание - Форум «Всё о Паскале»

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Ожидание, До anykey

Опции

Venik	17.04.2006 1:12 Сообщение #1
Гость	И снова здрасьте! Вообщем, выполняется операция. Repeat...until. И мне нужно, чтобы она выполнялась до тех пор, пока пользователь не нажмёт какую-нибудь клавишу. И что получится? Напишите плиз. Пробовал разные варианты: Repeat ... Until AnyKey; и тому подобное, но ничего не выходит. Скажите, какой код надо написать. Заранее спасибо.

volvo	17.04.2006 1:45 Сообщение #2
Гость	Repeat ... Until KeyPressed; тебе поможет... Только перед выходом не забудь очистить буфер клавиатуры: While KeyPressed Do ReadKey;

мисс_граффити	17.04.2006 1:48 Сообщение #3
просто человек Группа: Пользователи Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55	В модуле crt есть ф-ция KeyPressed. Думаю, она Вас и интересует... опоздала. а как удалить сообщение? Сообщение отредактировано: мисс_граффити** - 17.04.2006 1:49 -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!

Гость	17.04.2006 2:13 Сообщение #4
Гость	Спасибо, всё получилось!

Гость	17.04.2006 2:20 Сообщение #5
Гость	Ах, да и есшо: Вот у меня выводится текст постепенно (тобишь медленно, по буквам). Необходимо, чтобы когда пользователь нажмёт любую клавишу, текст перестал выводится (аналог CTRL+BRAKE) и вывелся сразу весь, чтобы можно было приступить к другим операциям. Ну вот, например заставка в играх идёт, вы нажимаете Пробел, заставка выключается и появляется главное меню. Вот также, но только с текстом. Вариант увелечение вывода скорости текста (путём уменьшения Delay) не предлагать. Ну блин, вообщем выводится текст. Нажимаю пробел и выводится сразу весь текст. Разом.

APAL	17.04.2006 2:56 Сообщение #6
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6	Пиши свою функцию/процедуру. -------------------- Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно. -------------------- Прежде, чем задать вопрос - Правила :: FAQ :: Поиск

volvo	17.04.2006 3:15 Сообщение #7
Гость	Цитата(Гость @ 16.04.2006 22:20) Вариант увелечение вывода скорости текста (путём уменьшения Delay) не предлагать. Но совсем без Delay ты тоже не обойдешься. Я надеюсь, объяснять, почему - не нужно? uses crt; const T = 50; function get_char(var f: text): string; var ch: char; begin read(f, ch); if ch = #13 then begin read(f, ch); get_char := #13#10; end else get_char := ch; end; var f: text; ch: char; begin assign(f, 'aa.txt'); reset(f); repeat if not eof(f) then begin write(get_char(f)); delay(T) end; until eof(f) or keypressed; while keypressed do readkey; while not eof(f) do write(get_char(f)); close(f); end. В файле 'aa.txt' - текст, который будет печататься. Величину T подберешь экспериментально.

Гость	18.04.2006 2:07 Сообщение #8
Гость	А попроще нельзя? Вот код ИИ: " (Показать/Скрыть) Program AA_v1_0FR; Uses Dos, CRT; Const C : Array[1..10] of String=('ЏаҐЇпвбвўЁҐ','ЋЎалў','‚аҐ¬Ґ®Ґ ЇаҐЇпвбвўЁҐ','‘ў®Ў®¤ ','ЋЎ«ҐЈзҐЁҐ','“¤®ў®«мбвўЁҐ', 'ЌҐЇаЁпв®бвЁ','Џ®¬®йм','?§Ўлв®Є','Ќг¦¤ '); Var Y : String; D : String; A : String; B : Byte; I : Byte; IX : Integer; Begin ClrScr; for i := 1 to 1 do begin Write ('„'); Delay (1); Write ('®'); Delay (1); Write ('Ў'); Delay (1); Write ('а'); Delay (1); Write ('®'); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write ('®'); Delay (1); Write ('¦'); Delay (1); Write (' '); Delay (1); Write ('«'); Delay (1); Write ('®'); Delay (1); Write ('ў'); Delay (1); Write (' '); Delay (1); Write ('в'); Delay (1); Write ('м'); Delay (1); Write ('!'); Delay (1); Write (' '); Delay (1); Write ('џ'); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write ('Ґ'); Delay (1); Write ('а'); Delay (1); Write ('ў'); Delay (1); Write (' '); Delay (1); Write ('п'); Delay (1); Write (' '); Delay (1); Write ('а'); Delay (1); Write (' '); Delay (1); Write ('§'); Delay (1); Write ('а'); Delay (1); Write ('®'); Delay (1); Write ('Ў'); Delay (1); Write ('®'); Delay (1); Write ('в'); Delay (1); Write ('Є'); Delay (1); Write (' '); Delay (1); Write (' '); Delay (1); Write ('Ђ'); Delay (1); Write ('а'); Delay (1); Write ('в'); Delay (1); Write ('с'); Delay (1); Write ('¬'); Delay (1); Write (' '); Delay (1); Write (' '); Delay (1); Write ('a'); Delay (1); Write ('k'); Delay (1); Write ('a'); Delay (1); Write (' '); Delay (1); Write ('V'); Delay (1); Write ('e'); Delay (1); Write ('n'); Delay (1); Write ('i'); Delay (1); Write ('k'); Write ('`'); Delay (1); Write ('a'); Delay (1); Write ('.'); Delay (1); Write (' '); Delay (1); Write ('Њ'); Delay (1); Write ('Ґ'); Delay (1); Write (''); Delay (1); Write ('п'); Delay (1); Write (' '); Delay (1); Write ('§'); Delay (1); Write ('®'); Delay (1); Write ('ў'); Delay (1); Write ('г'); Delay (1); Write ('в'); Delay (1); Write (' '); Delay (1); Write ('?'); Delay (1); Write ('б'); Delay (1); Write ('Є'); Delay (1); Write ('г'); Delay (1); Write ('б'); Delay (1); Write ('в'); Delay (1); Write ('ў'); Delay (1); Write ('Ґ'); Delay (1); Write (''); WriteLN ('-'); Delay (1); Delay (1); Write (''); Delay (1); Write ('л'); Delay (1); Write ('©'); Delay (1); Write (' '); Delay (1); Write ('?'); Delay (1); Write (''); Delay (1); Write ('в'); Delay (1); Write ('Ґ'); Delay (1); Write ('«'); Delay (1); Write ('«'); Delay (1); Write ('Ґ'); Delay (1); Write ('Є'); Delay (1); Write ('в'); Delay (1); Write ('.'); Delay (1); Write (' '); Delay (1); Write ('Њ'); Delay (1); Write ('®'); Delay (1); Write ('¦'); Delay (1); Write (''); Delay (1); Write ('®'); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write ('а'); Delay (1); Write ('®'); Delay (1); Write ('б'); Delay (1); Write ('в'); Delay (1); Write ('®'); Delay (1); Write (' '); Delay (1); Write ('?'); Delay (1); Write ('?'); Delay (1); Write ('.'); Delay (1); Write (' '); Delay (1); Write ('џ'); Write (' '); Delay (1); Write ('¬'); Delay (1); Write ('®'); Delay (1); Write ('Ј'); Delay (1); Write ('г'); Delay (1); Write (' '); Delay (1); Write ('"®'); Delay (1); Write ('в'); Delay (1); Write ('ў'); Delay (1); Write ('Ґ'); Delay (1); Write ('з'); Delay (1); Write (' '); Delay (1); Write ('в'); Delay (1); Write ('м"'); Delay (1); Write (' '); Delay (1); Write (''); Delay (1); Write (' '); Delay (1); Write (' '); Delay (1); Write ('§'); Delay (1); Write (' '); Delay (1); Write ('¤'); Delay (1); Write (' '); Delay (1); Write (''); Delay (1); Write (''); Delay (1); Write ('л'); Delay (1); Write ('Ґ'); Delay (1); Write (' '); Delay (1); Write ('¬'); Delay (1); Write (''); Delay (1); Write ('Ґ'); Delay (1); Write (' '); Delay (1); Write ('г'); Delay (1); Write ('б'); Delay (1); Write ('«'); Delay (1); Write ('®'); Delay (1); Write ('ў'); Delay (1); Write ('Ё'); Delay (1); Write ('п'); Delay (1); Write ('.'); Delay (1); Write (' '); Delay (1); Write ('ќ'); Delay (1); Write ('в'); Delay (1); Write ('®'); Delay (1); Write (' '); Delay (1); Write (' '); Delay (1); Write ('¬'); Delay (1); Write ('®'); Delay (1); Write ('п'); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write ('Ґ'); Delay (1); Write ('а'); Delay (1); Write ('ў'); Delay (1); Write (' '); Delay (1); Write ('п'); Delay (1); Write (' '); Delay (1); Write ('ў'); Delay (1); Write ('Ґ'); Delay (1); Write ('а'); Delay (1); Write ('б'); Delay (1); Write ('Ё'); Delay (1); Write ('п'); Delay (1); Write (','); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write ('®'); Delay (1); Write ('н'); Delay (1); Write ('в'); Delay (1); Write ('®'); Delay (1); Write ('¬'); Delay (1); Write ('г'); Delay (1); Write (' '); Delay (1); Write ('п'); Delay (1); Write (' '); Delay (1); Write ('Ў'); Delay (1); Write ('г'); Delay (1); Write ('¤'); Delay (1); Write ('г'); Delay (1); Write (' '); Write ('в'); Delay (1); Write ('®'); Delay (1); Write ('«'); Delay (1); Write ('м'); Delay (1); Write ('Є'); Delay (1); Write ('®'); Delay (1); Write (' '); Delay (1); Write ('¤'); Delay (1); Write ('Ґ'); Delay (1); Write ('¬'); Delay (1); Write ('®'); Delay (1); Write (''); Delay (1); Write ('б'); Delay (1); Write ('в'); Delay (1); Write ('а'); Delay (1); Write ('Ё'); Delay (1); Write ('а'); Delay (1); Write ('®'); Delay (1); Write ('ў'); Delay (1); Write (' '); Delay (1); Write ('в'); Delay (1); Write ('м'); Delay (1); Write (' '); Delay (1); Write ('‚'); Delay (1); Write (' '); Delay (1); Write ('¬'); Delay (1); Write (' '); Delay (1); Write ('Њ'); Delay (1); Write ('®'); Delay (1); Write ('Ё'); Delay (1); Write (' '); Delay (1); Write ('ў'); Delay (1); Write ('®'); Delay (1); Write ('§'); Write ('¬'); Delay (1); Write ('®'); Delay (1); Write ('¦'); Delay (1); Write (''); Delay (1); Write ('®'); Delay (1); Write ('б'); Delay (1); Write ('в'); Delay (1); Write ('Ё'); Delay (1); Write ('.'); Delay (1); Write (' '); Delay (1); Write ('‚'); Delay (1); Write (' '); Delay (1); Write ('б'); Delay (1); Write ('«'); Delay (1); Write ('Ґ'); Delay (1); Write ('¤'); Delay (1); Write ('г'); Delay (1); Write ('о'); Delay (1); Write ('й'); Delay (1); Write ('Ґ'); Delay (1); Write ('©'); Delay (1); Write (' '); Delay (1); Write ('ў'); Delay (1); Write ('Ґ'); Delay (1); Write ('а'); Delay (1); Write ('б'); Delay (1); Write ('Ё'); Delay (1); Write ('Ё'); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write ('®'); Delay (1); Write ('п'); Delay (1); Write ('ў'); Delay (1); Write ('Ё'); Delay (1); Write ('в'); Delay (1); Write ('б'); Delay (1); Write ('п'); Delay (1); Write (' '); Delay (1); Write ('ў'); Delay (1); Write ('®'); Delay (1); Write ('§'); Delay (1); Write ('¬'); Delay (1); Write ('®'); Delay (1); Write ('¦'); Delay (1); Write (''); Delay (1); Write ('®'); Delay (1); Write ('б'); Delay (1); Write ('в'); Delay (1); Write ('м'); Delay (1); Write (' '); Delay (1); Write ('ў'); Delay (1); Write ('ў'); Delay (1); Write ('®'); Delay (1); Write ('¤'); Delay (1); Write ('Ё'); Write ('в'); Delay (1); Write ('м'); Delay (1); Write (' '); Delay (1); Write ('г'); Delay (1); Write ('б'); Delay (1); Write ('«'); Delay (1); Write ('®'); Delay (1); Write ('ў'); Delay (1); Write ('Ё'); Delay (1); Write ('п'); Delay (1); Write (' '); Delay (1); Write ('‚'); Delay (1); Write (' '); Delay (1); Write ('¬'); Delay (1); Write (' '); Delay (1); Write ('б'); Delay (1); Write (' '); Delay (1); Write ('¬'); Delay (1); Write ('Ё'); Delay (1); Write ('¬'); Delay (1); Write ('.'); Delay (1); Write (' '); Delay (1); Write ('‚'); Delay (1); Write (' '); Delay (1); Write ('Ў'); Delay (1); Write ('®'); Delay (1); Write ('«'); Delay (1); Write ('Ґ'); Delay (1); Write ('Ґ'); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write ('®'); Delay (1); Write ('§'); Delay (1); Write ('¤'); Delay (1); Write (''); Delay (1); Write ('Ё'); Delay (1); Write ('е'); Delay (1); Write ('ў'); Delay (1); Write ('Ґ'); Delay (1); Write ('а'); Delay (1); Write ('б'); Delay (1); Write ('Ё'); Delay (1); Write ('п'); Delay (1); Write ('е'); Delay (1); Write (' '); Delay (1); Write ('§'); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write (' '); Delay (1); Write ('б'); Delay (1); Write (' '); Delay (1); Write ('г'); Delay (1); Write ('б'); Delay (1); Write ('«'); Delay (1); Write ('®'); Delay (1); Write ('ў'); Delay (1); Write ('Ё'); Write ('©'); Delay (1); Write (' '); Delay (1); Write ('Ў'); Delay (1); Write ('г'); Delay (1); Write ('¤'); Delay (1); Write ('Ґ'); Delay (1); Write ('в'); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write ('®'); Delay (1); Write ('Ї'); Delay (1); Write ('®'); Delay (1); Write ('«'); Delay (1); Write (''); Delay (1); Write ('п'); Delay (1); Write ('в'); Delay (1); Write ('м'); Delay (1); Write ('б'); Delay (1); Write ('п'); Delay (1); Write ('.'); Delay (1); Write (' '); Delay (1); Write ('ќ'); Delay (1); Write ('в'); Delay (1); Write ('®'); Delay (1); Write (' '); Delay (1); Write ('ў'); Delay (1); Write ('Ґ'); Delay (1); Write ('а'); Delay (1); Write ('б'); Delay (1); Write ('Ё'); Delay (1); Write ('п'); Delay (1); Write (' '); Delay (1); Write ('ь'); Delay (1); Write ('1'); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write ('®'); Delay (1); Write ('¤'); Delay (1); Write (' '); Delay (1); Write ('Є'); Delay (1); Write ('®'); Delay (1); Write ('¤'); Delay (1); Write ('®'); Delay (1); Write ('ў'); Delay (1); Write ('л'); Delay (1); Write ('¬'); Delay (1); Write (' '); Delay (1); Write (''); Delay (1); Write (' '); Delay (1); Write ('§'); Delay (1); Write ('ў'); Delay (1); Write (' '); Delay (1); Write (''); Delay (1); Write ('Ё'); Write ('Ґ'); Delay (1); Write ('¬'); Delay (1); Write (' '); Delay (1); Write ('A'); Delay (1); Write ('A'); Delay (1); Write ('-'); Delay (1); Write ('v'); Delay (1); Write ('1'); Delay (1); Write ('.'); Delay (1); Write ('0'); Delay (1); Write ('F'); Delay (1); Write ('R'); Delay (1); Write ('.'); Delay (1); Write (' '); Delay (1); Write ('„'); Delay (1); Write ('«'); Delay (1); Write ('п'); Delay (1); Write (' '); Delay (1); Write ('Ў'); Delay (1); Write ('®'); Delay (1); Write ('«'); Delay (1); Write ('Ґ'); Delay (1); Write ('Ґ'); Delay (1); Write (' '); Delay (1); Write ('Ї'); Delay (1); Write ('®'); Delay (1); Write ('¤'); Delay (1); Write ('а'); Delay (1); Write ('®'); Delay (1); Write ('Ў'); Delay (1); Write (''); Delay (1); Write ('®'); Delay (1); Write ('©'); Delay (1); Write (' '); Delay (1); Write ('Ё'); Delay (1); Write (''); Delay (1); Write ('д'); Delay (1); Write ('®'); Delay (1); Write ('а'); Delay (1); Write ('¬'); Delay (1); Write (' '); Delay (1); Write ('ж'); Delay (1); Write ('Ё'); Delay (1); Write ('Ё'); Delay (1); Write (' '); Delay (1); Write (''); Delay (1); Write (' '); Delay (1); Write ('Ў'); Delay (1); Write ('Ґ'); Delay (1); Write ('а'); Delay (1); Write ('Ё'); Delay (1); Write ('в'); Delay (1); Write ('Ґ'); Delay (1); Write (' '); Delay (1); Write ('Џ'); Delay (1); Write ('®'); Delay (1); Write ('¬'); Delay (1); Write ('®'); Delay (1); Write ('й'); Delay (1); Write ('м'); Delay (1); Write ('.'); Delay (1); WriteLN (''); ReadLN (A); If A='Џ®¬®йм' then Write ('„'); Delay (1); Write ('«'); Delay (1); Write ('п'); Delay (1); Write (' '); Delay (1); Write ('б'); Delay (1); Write ('в'); Delay (1); Write (' '); Delay (1); Write ('а'); Delay (1); Write ('в'); Delay (1); Write (' '); Delay (1); Write (' '); Delay (1); Write ('¤'); Delay (1); Write ('Ґ'); Delay (1); Write ('¬'); Delay (1); Write ('®'); Delay (1); Write (''); Delay (1); Write ('б'); Delay (1); Write ('в'); Delay (1); Write ('а'); Delay (1); Write (' '); Delay (1); Write ('ж'); Delay (1); Write ('Ё'); Delay (1); Write ('Ё'); Delay (1); Write (' '); Delay (1); Write ('¬'); Delay (1); Write ('®'); Delay (1); Write ('Ё'); Delay (1); Write ('е'); Delay (1); Write (' '); Delay (1); Write ('ў'); Delay (1); Write ('®'); Delay (1); Write ('§'); Delay (1); Write ('¬'); Delay (1); Write ('®'); Delay (1); Write ('¦'); Delay (1); Write (''); Delay (1); Write ('®'); Delay (1); Write ('б'); Delay (1); Write ('в'); Delay (1); Write ('Ґ'); Delay (1); Write ('©'); Delay (1); Write (' '); Delay (1); Write ('ў'); Delay (1); Write ('ў'); Delay (1); Write ('Ґ'); Delay (1); Write ('¤'); Delay (1); Write ('Ё'); Delay (1); Write ('в'); Delay (1); Write ('Ґ'); Delay (1); Write (' '); Delay (1); Write ('‘'); Delay (1); Write ('в'); Delay (1); Write (' '); Delay (1); Write ('а'); Delay (1); Write ('в'); Delay (1); Write ('.'); WriteLN (''); ReadLN (A); If A='‘в ав' then Begin Repeat Randomize; ix :=Random(10) + 1; WriteLN(C[ix]); If C[ix]='‘ў®Ў®¤ ' then WriteLN ('џ аҐиЁ« Їа®Јг«пвмбп!'); If C[ix]='ЋЎ«ҐЈзҐЁҐ' then WriteLN ('Џ®©¤г Ї®а ¤гобм ¦Ё§Ё.'); If C[ix]='“¤®ў®«мбвўЁҐ' then WriteLN ('Ќ б« ¤Ёвмбп ¤® ®вЄ § '); If C[ix]='ЏаҐЇпвбвўЁҐ' then WriteLN ('џ аҐиЁ« ®Ў®©вЁ ЇаҐЇпвбвўЁҐ.'); If C[ix]='ЋЎалў' then WriteLN ('џ аҐиЁ« Ї®ЁбЄ вм ¤агЈ®© Їгвм.'); If C[ix]='‚аҐ¬Ґ®Ґ ЇаҐЇпвбвўЁҐ' then WriteLN ('ЊҐ Ї®Є § «®бм Ў®«ҐҐ Їа ўЁ«мл¬, Ї®¤®¦¤ вм, Є®Ј¤ ЇаҐЇпвбвўЁҐ ЁбзҐ§Ґв б ¬®.'); If C[ix]='ЌҐЇаЁпв®бвЁ' then WriteLN ('ЃҐЈг, г¦Ґ ЎҐЈг!!!'); If C[ix]='Џ®¬®йм' then WriteLN ('Џ®¬®Јг г¦¤ ойҐ¬гбп!'); If C[ix]='?§Ўлв®Є' then WriteLN ('?§Ўлв®Є зҐЈ®? †Ґ« Ёп? Ќ ©¤г и«оег.'); If C[ix]='Ќг¦¤ ' then WriteLN ('Ѓ®«ҐҐ Їа ўЁ«мл¬ Ўг¤Ґв - ЁбЇа ¦Ёвмбп. ‚Є«оз о дгЄжЁо "ЋЇ®а®¦ҐЁҐ «®вЄ "!'); Until KeyPressed; ReadKey; End; End; End. Строчки, после которых идёт Delay (1) - это постепенный вывод текста. Затем, где If C[ix] - это ответ на условия. Могу потом поконкретнее объяснить. Так вот. Мне нужно чтобы текст, который медленно выводится, при нажатии любой клавиши выводился сразу и у меня появлялось меню. Т.е. чтобы ты нажимаешь кнопку, текст перестаёт выводится, выводится сразу и появляется меню. Вот.

volvo	18.04.2006 4:10 Сообщение #9
Гость	Цитата(Гость @ 17.04.2006 22:07) А попроще нельзя? Это ты меня спрашиваешь про ПОПРОЩЕ??? Я тебя должен спросить, тебе не кажется? То, что ты делаешь в сотнях строк, у меня реализовано в двух десятках... Цитата(Гость @ 17.04.2006 22:07) Вот код ИИ: Код ЧЕГО??? Ты вообще в курсе, что такое ИИ? ЭТО по-твоему ИИ? Ну, тогда, извини, что помешал тебе создавать Искуственный Интеллект своими советами... Больше мешать не буду. Можешь продолжать спокойно.

klem4	18.04.2006 11:14 Сообщение #10
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	извиняюсь за оффтоп ... Это самый крутой код, который я видел в своей жизни. Долго писал ?)))) Хотя вообще-то да, искуственный интеллект - это вам не шутки -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Lapp	18.04.2006 13:32 Сообщение #11
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159	В Юмор! -------------------- я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой

FreeMan	18.04.2006 21:06 Сообщение #12
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4	Вся тайна ИИ в иероглифах. Вольво, ты не запутался в этом сложнейшем коде? ты мог ошибится в 56 строчке. Помоему, это очень оптимальный вариант, надо провети замеры скорости, часто большая программа выигрывает по скорости. Гость, а попробуй графику рисовать, по точкам лучше всего. Не верь им, они тебя запугивают, продолжай в том же духе!!! Не используй сложных алгоритмов. -------------------- бб

volvo	18.04.2006 21:10 Сообщение #13
Гость	Цитата(FreeMan @ 18.04.2006 17:06) а попробуй графику рисовать, по точкам лучше всего. Главное - после вывода каждой точки не забыть Delay(1) поставить...

GoodWind	18.04.2006 21:36 Сообщение #14
Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16	и выводить обязательно через баб-ягу - не верь что прямой вывод в видеопамять быстрее чем через прерывания. -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?

Гость	19.04.2006 0:58 Сообщение #15
Гость	А чё такое-то? Я просто пишу Искуственный Интеллект. Эта программа состоит из 3 подпрограмм: 1)Массив, в котором содержаться условия; 2)Рандомизатор условий, в последствии выводит их на эран; 3)"Отвечальщик" на условия. Ну и мелкая подподпрограмма, связывающая всё это воедино. Программа носит кодовое имя AA-v1.0FR. Принцип действия: В массиве содержаться некие условия. Рандомизатор берёт эти условия и "перемешивает" их. Далее выводит одно из них (сами понимаете, в случайном порядке) на экран. Далее, другая подпрограмма анализирует это условие и ищет его в Базе Данных ответов. Как только она находит сопоставление, ответ сразу же выводится на экран. Пример: Массив=Словарь, чтобы было понятнее. В словаре есть 3 слова: препятствие, фотоаппарат, обрыв. Эти слова перемешивается и из них выбирается любое. Выбрано препятствие. На него ищется ответ и выводится на экран. Ответом является "Обойти препятствие". Т.е. грубо говоря вся работа программы сводится в одну строчку: Условие=препятствие. Ответ на условие=обойти. Вот собственно и всё. Иероглифы-буквы. При Copy-Paste они превратились в кракозябру. Delay(1) у меня стоит, так как я задолбался по 10 раз читать одно и тоже (что занимает довольно длительное вермя при выводе), чтобы протестировать 1 функцию. Поэтому я и обратился к вам за помощью в создании своеобразного "прерывания" вывода текста и вывода его целиком - сразу после нажатия люой клавиши. Стандартное значение Delay для постепенного вывода текста - 100. Чё вы сразу налетели-то? Лучше посоветуйте, какие поправки в коде надо сделать!

Гость	19.04.2006 0:58 Сообщение #16
Гость	Только без шуток!

GoodWind	19.04.2006 10:32 Сообщение #17
Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16	примерно так (компилятора на работе нет): procedure DelayedOutput(str:string; delay_value:longint); var i:byte; begin repeat write(str[i]); inc(i); delay(delay_value); until (keypressed) or (i>length(str)); while i<=length(str) do begin write(str[i]); inc(i); end; end; end; можно конечно и оптимизировать... Сообщение отредактировано: volvo - 2.11.2006 20:17 -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?

Гость	19.04.2006 21:44 Сообщение #18
Гость	А куда здесь текст вставлять?

GoodWind	20.04.2006 10:25 Сообщение #19
Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16	блин, ты процедурами пользоваться умеешь ? а типы различаешь ? вот текст - это сторока или целое число ? DelayedOutput('Hello World!',100); вывод строки "Hello World!" c задержкой между в 100 мс. между выводом символов. -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?

« Предыдущая тема · Задачи · Следующая тема »

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0