Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
GilStarEstel25
0 / 0 / 0
Регистрация: 08.06.2018
Сообщений: 4
1

Выход из бесконечного цикла в GraphABC при нажатии клавиши (любой)

08.06.2018, 10:50. Просмотров 731. Ответов 4

Здравствуйте! У меня такая проблема:
Дан цикл:
Pascal
1
2
3
4
5
uses GraphABC
repeat
     ......  
  until false; 
end;
При нажатии клавиши необходимо выйти из цикла. Задача-то легкая, но проблема в том, что это надо организовать без СRT, поскольку консоль СRT здорово мешает. Никак не могу найти ответ на эту задачку. Буду очень благодарен, если вы мне подскажете способ решения. С уважением - GilStarEstel.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2018, 10:50
Ответы с готовыми решениями:

При нажатии любой клавиши появляется картинка
Здравствуйте! У меня есть к Вам небольшой вопрос, мне нужно сделать так, чтобы...

Можно ли создать бесконечный цикл, из которого выходит при нажатии любой клавиши?
Можно ли создать бесконечный цикл, из которого выходит при нажатии любой...

Выход из бесконечного цикла
Здравствуйте Посмотрите вот такой интересный код s := 1; i := 1; repeat...

Задача: опрос клавиатуры. При нажатии любой клавиши должно появиться сообщение:"Нажата клавиша "(клавиша)"
Здравствуйте. Задача: опрос клавиатуры. При нажатии любой клавиши должно...

При нажатии лкм/пкм в окне graphABC считывались координаты пикселя
СОЗДАЛ ТРИ ТЕМЫ НИКТО НЕ ОТВЕЧАЕТ! ЧЕ НАФИГ ЗА ФОРУМ ТАКОЙ?! мне нужно, что...

4
JuriiMW
2002 / 1085 / 1575
Регистрация: 10.12.2014
Сообщений: 4,076
08.06.2018, 10:53 2
OnKeyDown или OnKeyPress
0
GilStarEstel25
0 / 0 / 0
Регистрация: 08.06.2018
Сообщений: 4
08.06.2018, 11:22  [ТС] 3
И как при помощи процедуры с параметрами выйти из цикла?
0
JuriiMW
2002 / 1085 / 1575
Регистрация: 10.12.2014
Сообщений: 4,076
08.06.2018, 11:33 4
Лучший ответ Сообщение было отмечено GilStarEstel25 как решение

Решение

Флагом, разумеется!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses GraphABC;
 
var theEnd := False;
 
procedure KeyDown(key : Integer) := theEnd := True;
  
begin
  Randomize;
  onKeyDown := KeyDown;
  Pen.Width := 5;
  repeat
    Pen.Color := clRandom;
    Circle(Random(Window.Width),Random(Window.Height),5);
    Sleep(5);
  until theEnd;
  Window.Caption := 'The End.';
  Sleep(2345);
  Window.Close;
end.
1
GilStarEstel25
0 / 0 / 0
Регистрация: 08.06.2018
Сообщений: 4
08.06.2018, 11:49  [ТС] 5
Использовал Ваш метод, немного видоизменив его для своей программы. У меня все работает! Спасибо вам огромное!
0
08.06.2018, 11:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.06.2018, 11:49

Выполнить процедуру при нажатии клавиши
Нужно сделать процедуру которая будет выполняться при нажатии клавиши. Делаю...

Увеличение круга при нажатии клавиши
Помогите пожалуйста с задачей. Знаю только как сделать крутящийся кружочек...

Выход из программы через ESC в graphabc без модуля crt
В любой момент программа должна завершаться при нажатии ESC uses...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru