|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.01.2009, 14:03 | #1 |
Форумчанин
Регистрация: 05.01.2009
Сообщений: 242
|
запрос (выйти(завершить программу)) "Y";"N".
Дано задание сделать так чтобы при завершении программы, программа давала запрос (выйти(завершить программу)) "Y";"N".
т.е. выводилось окно с запросом на подтверждение завершения программы. Напишите пожалуйста текст!!! Заранее благодарю!!! |
15.01.2009, 14:14 | #2 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
program zapros;
uses crt; label m,l; var i:integer; s:char; begin i:=1; m:i:=i+1; writeln(i); l: writeln('vyhod y/n'); readln(s); if s='n' then goto m else if s='y' then exit else begin writeln('nado vvesti y ili n'); goto l; end; end.
вступлю в команду разработчиков ПО на Delphi
|
15.01.2009, 14:33 | #3 |
Форумчанин
Регистрация: 05.01.2009
Сообщений: 242
|
maladoy спасибо тебе помог!!!
завтра пойду сдаваться преподу ))) |
15.01.2009, 14:41 | #4 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
Отзыв не забудь
вступлю в команду разработчиков ПО на Delphi
|
15.01.2009, 15:01 | #5 | |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Цитата:
P.S. Для читабельности кода используйте теги форматирования #
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
|
15.01.2009, 15:18 | #6 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
Просили сделать...А как не говорили прога работает? Работает! А понравиться не понравиться это уже дело личное...Итак бесплатно сделали ... А под repeat переделать я думаю много ума не надо...Я бы с удовольствием писал даже с комментариями но с телефона это ой как не удобно...[/QUOTE]
вступлю в команду разработчиков ПО на Delphi
|
15.01.2009, 15:54 | #7 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
через readkey
|
15.01.2009, 16:32 | #8 |
Форумчанин
Регистрация: 05.01.2009
Сообщений: 242
|
Спасибо пацаны! Всё работает отлично! Вам respect!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Завершить приложения | EdNovice | Общие вопросы Delphi | 4 | 16.05.2008 08:06 |
Завершить процесс | doniyor | Win Api | 2 | 15.05.2008 21:52 |
Пытаюсь выйти в инет с компа через мобилу, в момент соединения комп начинает виснуть | Sava | Свободное общение | 5 | 29.04.2008 18:02 |
Как выйти из бесконечного цикла! | Эдуард | Общие вопросы C/C++ | 11 | 02.03.2008 19:15 |
снова завершить процесс | WOLFak | Win Api | 10 | 22.01.2008 18:07 |