Вылет программы

@Udvin · Регистрация: 07.02.2012

Студворк — интернет-сервис помощи студентам

Подскажите, как предотвратить выход из программы, при выполнении её. т.е. она выполнила свою задачу, и сразу же себя закрывает(выходит).

Допустим, пусть выйдет только тогда, когда я нажму Enter.

@Ev[G]eN · 17.02.2012, 23:16

перед end. введите readln;

@sdcom · 18.02.2012, 02:04

либо в начале программы указать uses crt, а в конце Readkey;

Pascal
1
2
3
4
5
6
uses crt;
var ...
begin
...
Readkey; {ожидает нажатия клавиши}
end.

А вообще результат выполнения можно посмотреть, нажав alt+F5 в окне FreePascal

@Udvin · 18.02.2012, 12:04 **[ТС]**

А теперь главный вопрос. Я школьник, но достаточно хорошо программирую на Pascal. Кто нибудь может обьяснить что такое и зачем нужно uses crt?

@Ev[G]eN · 18.02.2012, 12:14

Модуль CRT содержит ряд подпрограмм, предоставляющих возможность программам, работающим под DOS, эффективно управлять такими характеристиками компьютера, как режимы экрана, расширенные коды клавиатуры, цвета, окна и звуковые сигналы.

@Udvin · 18.02.2012, 12:26 **[ТС]**

Большое спасибо. Ну и последний вопрос, дабы довести мою программу до идеала. Есть ли такой оператор, который дает программе задачу не выйти, а начать заного с определённого момента? Могу выложить программу для примера.

@Ev[G]eN · 18.02.2012, 12:33

можно через цикл repeat...until, можно через Label, но это не приветствуется

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Udvin 0 / 0 / 2 Регистрация: 07.02.2012 Сообщений: 11

	Вылет программы 17.02.2012, 21:48. Показов 3182. Ответов 6 Метки нет (Все метки) Подскажите, как предотвратить выход из программы, при выполнении её. т.е. она выполнила свою задачу, и сразу же себя закрывает(выходит). Допустим, пусть выйдет только тогда, когда я нажму Enter. 0

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	17.02.2012, 23:16
	перед end. введите readln; 0

@Udvin 0 / 0 / 2 Регистрация: 07.02.2012 Сообщений: 11
	18.02.2012, 12:04 [ТС]
	А теперь главный вопрос. Я школьник, но достаточно хорошо программирую на Pascal. Кто нибудь может обьяснить что такое и зачем нужно uses crt? 0

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	18.02.2012, 12:14
	Модуль CRT содержит ряд подпрограмм, предоставляющих возможность программам, работающим под DOS, эффективно управлять такими характеристиками компьютера, как режимы экрана, расширенные коды клавиатуры, цвета, окна и звуковые сигналы. 0

@Udvin 0 / 0 / 2 Регистрация: 07.02.2012 Сообщений: 11
	18.02.2012, 12:26 [ТС]
	Большое спасибо. Ну и последний вопрос, дабы довести мою программу до идеала. Есть ли такой оператор, который дает программе задачу не выйти, а начать заного с определённого момента? Могу выложить программу для примера. 0

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	18.02.2012, 12:33
	можно через цикл repeat...until, можно через Label, но это не приветствуется 0