1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программирован. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление
  2. Чат codeby в telegram перезагрузка. Обсуждаем вопросы информационной безопасности и методы защиты информации, программирование. Задавайте свои вопросы и комментируйте чужие. Подробнее ...

    Скрыть объявление

Помогите Исправить

Тема в разделе "Вопросы новичков и не только", создана пользователем kot070, 10 фев 2012.

  1. kot070

    kot070 Гость

    Репутация:
    0
    Вообщем программа такая что если вводим символы a * или цифры то это правда, если остальные символы то ложь и программа должна заканчиваться при нажатии клавиши делете.
    Моя беда в том что я не могу сделать чтобы программа закрывалась, при нажатии делете ничего не происходит и еще не могу добавить в ложь заглавные буквы от A до Z
    program tek;
    uses crt;
    var
    l:char;
    begin clrscr;
    while true do
    begin
    l:=readkey;
    case l of 'a', '*', '0'..'9' :
    begin
    writeln ('l=true', l );
    end;
    'b'..'z':
    writeln ('l=false', l);
    #0:
    begin
    l:=readkey;
    if l=#46 then
    break;
    end;
    end;
    end;
    end.


    Добавлено: Извиняюсь за дубль темы, интернет немного залагал
     
  2. Whatka

    Whatka Well-Known Member

    Репутация:
    0
    Регистрация:
    9 окт 2011
    Сообщения:
    428
    Симпатии:
    4
    тебе на с++ надо или на паскале?
     
  3. kot070

    kot070 Гость

    Репутация:
    0
    на паскале
     
  4. kot070

    kot070 Гость

    Репутация:
    0
    а можно как нибудь сделать через 2 переменные чтобы одна ловила 0 а вторая ловила 46 и выходил конец по клавиши делете?
     
Загрузка...

Поделиться этой страницей