Правила форума
Val.PASЯзык:
Русский
English
{Val.PAS}
{ Пример программы для процедуры Val }
var
I, Code : Integer;
begin
{ Получаем текст из командной строки }
Val(ParamStr(1), I, Code);
{ Была ошибка при преобразовании ? }
if Code <> 0 then
WriteLn('Ошибка при преобразовании в позиции : ', Code)
else
WriteLn('Число = ', I);
end.
I, Code : Integer;
begin
{ Получаем текст из командной строки }
Val(ParamStr(1), I, Code);
{ Была ошибка при преобразовании ? }
if Code <> 0 then
WriteLn('Ошибка при преобразовании в позиции : ', Code)
else
WriteLn('Число = ', I);
end.
::
::
::
