начал 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) но и с этим тоже не получается


[email protected]

Это сообщение отредактировал(а) Fedor - 25.3.2005, 07:42

А замени char на string - тогда '11' <> '0'..'9'

Цитата

char понимает только первый символ

не "понимает", а "принимает" первый символ, игнорируя остальные.

Я паскаль уже и не помню, но попробуй

Код

x:string ... case Char(x) of

А длинну проверить?

Akina, оператор case не понимает тип string в качестве параметра для выборки.

Nikon, попробуй так:

Код

var   st : string; ...   if length(st)>1 then     writeln('Вас просили ввести один символ!')   else     case st[1] of           '0'..'9':writeln('цифра от 0 до 9');           'a'..'z': writeln('латинская строчная буква');           'A'..'Z': writeln('латинская прописная буква')          else writeln('ошибка ввода ')          end;