Jamilio
Профи
(562)
16 лет назад
Val(А, B, code) - преобразует строковую переменную А в целое число и записывает его в B. code - integer переменная, кот. указывает на ошибку в преобразовании и указывает позицию ошибки - к примеру
a := '1234d32';
val(a, b, code);
Здесь code примет значение 5 - позиция в строке, где появилась ошибка.
Если в строке только цифры - code принимает значение 0.
Для полнты ответа - пример. Преобразуем строковою переменную strg в integer переменную b и если все верно, возведем b в квадрат.
strg := '23243';
val (strg, b, code);
if (code = 0) then c := b*b
else writeln ('Error at position: ' + code);