С Новым годом! Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 08.06.2018
Сообщений: 20
1
GraphABC

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

08.06.2018, 10:50. Показов 3102. Ответов 4

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

Как сделать выход из цикла при нажатии любой клавиши?
У меня Python 3.2.5 как сделать выход из цикла по нажатию любой клавиши!! зарание спасибо!

Выход из цикла при нажатии определенной клавиши
Подскажите, пожалуйста, как написать цикл с выходом из него при нажатии определенной клавиши ......

Выход из бесконечного цикла по нажатию любой кнопки
Молод и глуп, яндексы и гуглы облазил, а решение проблемы не нашлось. В чем суть: нужно, чтобы...

Выход из бесконечного цикла по нажатию клавиши
как выйти из бесконечного цикла по нажатию клавиши? begin: ..... jmp begin 8h ждет нажатия...

4
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,048
08.06.2018, 10:53 2
OnKeyDown или OnKeyPress
0
0 / 0 / 0
Регистрация: 08.06.2018
Сообщений: 20
08.06.2018, 11:22  [ТС] 3
И как при помощи процедуры с параметрами выйти из цикла?
0
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,048
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
0 / 0 / 0
Регистрация: 08.06.2018
Сообщений: 20
08.06.2018, 11:49  [ТС] 5
Использовал Ваш метод, немного видоизменив его для своей программы. У меня все работает! Спасибо вам огромное!
0
08.06.2018, 11:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2018, 11:49
Помогаю со студенческими работами здесь

Выход из програмы при нажатии определенной клавиши.
Надо сделать так, что бы при нажатии кнопки "1", потом "Enter" осуществлялся выход из программы....

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

Выход из программы при нажатии кнопки или клавиши
Подскажите пожалуйста, как сделать так чтобы при нажатии кнопки программа закрывалась, чтобы каждый...

Выход из цикла при нажатии кнопки
Добрый день! Подскажите, как такой код реализовать в ASP? Прилагаю код C# flag=true; ...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru