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

Правила форума :: Скачать 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; и тому подобное, но ничего не выходит. Скажите, какой код надо написать. Заранее спасибо.

Ответов

Гость	18.04.2006 2:07 Сообщение #2
Гость	А попроще нельзя? Вот код ИИ: " (Показать/Скрыть) 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 Сообщение #3
Гость	Цитата(Гость @ 17.04.2006 22:07) А попроще нельзя? Это ты меня спрашиваешь про ПОПРОЩЕ??? Я тебя должен спросить, тебе не кажется? То, что ты делаешь в сотнях строк, у меня реализовано в двух десятках... Цитата(Гость @ 17.04.2006 22:07) Вот код ИИ: Код ЧЕГО??? Ты вообще в курсе, что такое ИИ? ЭТО по-твоему ИИ? Ну, тогда, извини, что помешал тебе создавать Искуственный Интеллект своими советами... Больше мешать не буду. Можешь продолжать спокойно.

Сообщений в этой теме

Venik Ожидание 17.04.2006 1:12

volvo Repeat ... Until KeyPressed; тебе поможет... То… 17.04.2006 1:45

мисс_граффити В модуле crt есть ф-ция KeyPressed. Думаю, она Вас… 17.04.2006 1:48

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

Гость Ах, да и есшо: Вот у меня выводится текст постепе… 17.04.2006 2:20

volvo Вариант увелечение вывода скорости текста (путём у… 17.04.2006 3:15

APAL Пиши свою функцию/процедуру. 17.04.2006 2:56

Гость А попроще нельзя? Вот код ИИ: Program AA_v1_0FR… 18.04.2006 2:07

volvo А попроще нельзя? :lol: :lol: :lol: Это ты меня… 18.04.2006 4:10

klem4 извиняюсь за оффтоп ... Это самый крутой код, кот… 18.04.2006 11:14

lapp В Юмор! :lol: 18.04.2006 13:32

FreeMan Вся тайна ИИ в иероглифах. Вольво, ты не запутался… 18.04.2006 21:06

volvo а попробуй графику рисовать, по точкам лучше всего… 18.04.2006 21:10

GoodWind и выводить обязательно через баб-ягу - не верь чт… 18.04.2006 21:36

Гость А чё такое-то? Я просто пишу Искуственный Интеллек… 19.04.2006 0:58

Гость Только без шуток! :( 19.04.2006 0:58

GoodWind примерно так (компилятора на работе нет): procedur… 19.04.2006 10:32

Гость А куда здесь текст вставлять? 19.04.2006 21:44

GoodWind блин, ты процедурами пользоваться умеешь ? а типы … 20.04.2006 10:25

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

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

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