repeat ... until - Помощь студентам

08ekhiv1 · 17.03.2009, 16:34

Кто знает как остановить действия нажатием только 1 клавиши esc(#13).

Допустим:
repeat
writeln('ypa');
...
...
...
until ...

пусть бесконечно пишет 'ypa' пока я не нажму esc...

Dj_smart · 17.03.2009, 16:38

until keypressed and (readkey=#13);

08ekhiv1 · 17.03.2009, 16:41

Цитата:

Сообщение от Dj_smart

until keypressed and (readkey=#13);

Забыл написать... библиотека SysUtils, язык Delphi. Как я понимаю ответ актуален для паскаля?

alex_fcsm · 17.03.2009, 16:42

Код:

uses crt;
begin
repeat
repeat
writeln('ypa');
until keypressed;
until readkey=#13;
end.

13 - Enter
27 - Esc

Да это в Паскале

17.03.2009, 16:38	#2
Dj_smart Капсула от спама Форумчанин Регистрация: 04.03.2008 Сообщений: 779	until keypressed and (readkey=#13); Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме? CncFiles.ru - бесплатный файловый хостинг

17.03.2009, 16:42	#4
alex_fcsm Участник клуба Регистрация: 10.11.2008 Сообщений: 1,502	Код: `uses crt; begin repeat repeat writeln('ypa'); until keypressed; until readkey=#13; end.` 13 - Enter 27 - Esc Да это в Паскале Нормальное состояние техники - нерабочее, все остальное частный случай.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
repeat until	4ERRY	Помощь студентам	7	21.02.2009 21:38
Repeat	Наталья111	Общие вопросы Delphi	7	06.01.2009 19:44
Задачи на repeat,while	Chief	Паскаль, Turbo Pascal, PascalABC.NET	7	06.01.2009 17:59
циклы while...do и repeat...until.	deniks	Паскаль, Turbo Pascal, PascalABC.NET	6	07.12.2008 15:58

17.03.2009, 16:34	#1
08ekhiv1 Пользователь Регистрация: 28.02.2009 Сообщений: 27	repeat ... until Кто знает как остановить действия нажатием только 1 клавиши esc(#13). Допустим: repeat writeln('ypa'); ... ... ... until ... пусть бесконечно пишет 'ypa' пока я не нажму esc...