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

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

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

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

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

Опции

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

Ответов

Гость	17.04.2006 22: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] - это ответ на условия. Могу потом поконкретнее объяснить. Так вот. Мне нужно чтобы текст, который медленно выводится, при нажатии любой клавиши выводился сразу и у меня появлялось меню. Т.е. чтобы ты нажимаешь кнопку, текст перестаёт выводится, выводится сразу и появляется меню. Вот.

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

Venik Ожидание 16.04.2006 21:12

volvo Repeat ... Until KeyPressed; тебе поможет... То... 16.04.2006 21:45

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

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

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

volvo Вариант увелечение вывода скорости текста (путём у... 16.04.2006 23:15

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

Гость А попроще нельзя? Вот код ИИ: Program AA_v1_0FR... 17.04.2006 22:07

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

26.07.2025 13:34

Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"