оператор Case, пример использования case Опции

[nikon]

начал pascal c нуля. все вроде нормально но есть некоторые "воросы"..
в переменную типа char вводится символ с клавиатуры.
прога должна выдать:

цифра от 0 до 9 ;
латинская строчная буква ;
латинская прописная буква ;

Код

program zad5_11;
  uses crt;
var
  x:char;

begin
    clrscr;
    writeln('введите символ');
    readln(x);
    case x of

     '0'..'9':writeln('цифра от 0 до 9');
    'a'..'z': writeln('латинская строчная буква');
    'A'..'Z': writeln('латинская прописная буква')
    else writeln('ошибка ввода ')
    end;
   readln
end.

загвоздка в том что под условие '0'..'9' - подпадает и 1 и 11 и 111 т. к. char понимает только первый символ

вот если написать '2'..'9' то 1 уже не попадает в интервал..
можно использовать таблицу ASCII и написать перевести 0 в chr(48) но и с этим тоже не получается

[klem4]

можно так :

Код

x:=readkey;
case x of
...
end;

но Volvo прав, char хранит только один символ, вводить больше не имеет смысла

Сообщение отредактировано: klem4 - 24.03.2005 15:35