Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Изменение типов данных

Автор: falcon39 14.2.2006, 15:44

Нужно ввести число от 2 до 12
использую код

Код


     OutTextXY(50,400,'Vvedite chislo ot 2 do 12');
     ch:=ReadKey;
     OutTextXY(50,410,ch);

как введеное число сделать целым (Integer)

Автор: volvo877 14.2.2006, 16:06

А как ты хочешь "12" например поместить в один Char? От 0 до 9 - пожалуйста, 10 и больше - не пойдет... Надо строку вводить...

А потом (если через строку) - то процедура Val тебе поможет, если числа 0 .. 9 и пользуешься
ch := ReadKey
, то просто
num := ord(ch) - 48;

Автор: Snowy 14.2.2006, 16:06

Код

ord(ch) - 48;

Только через ReadKey ты две цифры не наберешь.
Добавлено @ 16:07
Не успел smile

Автор: falcon39 14.2.2006, 16:41

Цитата

Только через ReadKey ты две цифры не наберешь.

Это то я понимаю
проблема в переводе типов данных была
СПАСИБО
Добавлено @ 16:49
А как обратно из Integer в String.

Автор: Snowy 14.2.2006, 17:39

chr(x + 48);

Автор: karataev 14.2.2006, 21:41

Я делаю немного по другому, чтобы числа не запоминать:

ord(ch)-ord('0') и обратно chr(ord('0')+x)

Лично мне так легче smile