Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2009, 10:45   #1
edmynt
Пользователь
 
Аватар для edmynt
 
Регистрация: 03.06.2009
Сообщений: 83
По умолчанию Pascal,C++ y/n

Как на паскале и С++ реализовать прирывания?
типа y/n
У -продолжить программу
n-выйти из нее
edmynt вне форума Ответить с цитированием
Старый 18.12.2009, 13:12   #2
Sweta
Форумчанин
 
Регистрация: 22.11.2007
Сообщений: 664
По умолчанию

Сделать цикл while(пока символ не равен Y)
{программа
запрос на ввод
считывание символа
}
Неприятности приходят и уходят, а жизнь продолжается!
Sweta вне форума Ответить с цитированием
Старый 18.12.2009, 13:32   #3
edmynt
Пользователь
 
Аватар для edmynt
 
Регистрация: 03.06.2009
Сообщений: 83
По умолчанию

Дело в том что я кака раз хочу избежать операции ввода..так бы я через case сделал...я хочу что код клавиши передовался моментально по нажатию
edmynt вне форума Ответить с цитированием
Старый 18.12.2009, 14:41   #4
edmynt
Пользователь
 
Аватар для edmynt
 
Регистрация: 03.06.2009
Сообщений: 83
По умолчанию

Тему Ап,срочняк нада завтра здавать лабу,я прост иду на 5 автоматом
edmynt вне форума Ответить с цитированием
Старый 18.12.2009, 15:44   #5
Stepler
Форумчанин
 
Аватар для Stepler
 
Регистрация: 03.02.2008
Сообщений: 213
По умолчанию

Цитата:
Сообщение от edmynt Посмотреть сообщение
я хочу что код клавиши передовался моментально по нажатию
key := readkey;
В key запишется скан код клавишы, чтобы обработать функцыональние клавиши нужно считать еще один байт.
Пишу программы на заказ, контакты под аватаром!
Отзывы тут
Stepler вне форума Ответить с цитированием
Старый 18.12.2009, 18:08   #6
Alex_FF
Удален
Форумчанин
 
Регистрация: 02.12.2009
Сообщений: 309
По умолчанию

Код:
var
  C: Char;
begin
  Read(C);
  if C = 'N' then Halt;
end.
Alex_FF вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
а free pascal не читает задачи которые написаны на turbo pascal? demonara Паскаль, Turbo Pascal, PascalABC.NET 3 25.05.2009 16:28
Pascal bpystep Фриланс 6 25.02.2009 22:44
Перевод кода из Pascal в Object Pascal zemskov77 Общие вопросы Delphi 1 03.01.2009 09:37