Интерпретировать слова в числа.

[Linka]

Интерпретировать слова в числа.

Выдает: Ordinal expression expected.

program reversed_string;

var s1,s2 :string;

begin
readln(s1);

   case s1 of
'two':   s2:='2';
'three': s2:='3';
'four':  s2:='4';
   end;

writeln(s2);
readln;
end.

Что здесь неправильно ?

 

[Linka]

Ага, оказывается в операторе case можно только порядкового типа селектор указывать. А как быть в таком случае ? Как еще можно интерпретировать ?

 

[Long Cat]

С помощью массива. В массив записать строки, затем осуществить в нем поиск. Если найдется совпадение, его порядковый номер в массиве укажет на соответствующее число.

 

[Linka]

Да, массив это вариант. Но а если работать только со строками ? Это задание из книжки, и массивы только следующей темой будут. Инетересуют именно строки.

 

[Long Cat]

Тогда остается только использовать уйму конструкций вида if-then-else.