TURBO PASCAL:Учебное пособие. Терёхин В.В. - 80 стр.

UptoLike

Составители: 

80
Writeln(SS) ;
end.
Для преобразования строковых значений в числовые
(целые, вещественные) можно воспользоваться процедурой val.
procedure Val(S: String; var X: Real[Integer]; var Er : Integer);
Тип параметра Х может быть целым и вещественным, по жела-
нию пользователя. В процессе перевода строки в число может
возникнуть ошибка, например, строки 'ABC', 'M1О', '1. 22ddd'
и др. в число не переводятся. После вызова процедура Val че-
рез параметр Еr возвращает значение ноль, если перевод в чис-
ло прошел успешно и номер символа, на котором перевод был
прерван, в обратном случае.
Примеры:
{X: Integer}
S:= ‘ 423' ;
Val (S, x, Er);
{после вызова процедуры целая переменная X будет иметь
значение 123, а Ег - 0}
{R: Real}
S:= ‘ 423. 5' ;
Val (S, R, Er);
{R = 123. 5, Er = 0}
{X: Integer}
S:= ' 342ABC ' ;
Val(S, X, Er);
{после вызова процедуры Ег= 4, на четвертом символе про-
изошел сбой}
program рЗО;
var
  Writeln(SS) ;
end.

      Для преобразования строковых значений в числовые
(целые, вещественные) можно воспользоваться процедурой val.

procedure Val(S: String; var X: Real[Integer]; var Er : Integer);

Тип параметра Х может быть целым и вещественным, по жела-
нию пользователя. В процессе перевода строки в число может
возникнуть ошибка, например, строки 'ABC', 'M1О', '1. 22ddd'
и др. в число не переводятся. После вызова процедура Val че-
рез параметр Еr возвращает значение ноль, если перевод в чис-
ло прошел успешно и номер символа, на котором перевод был
прерван, в обратном случае.
        Примеры:
{X: Integer}
S:= ‘ 423' ;
Val (S, x, Er);
{после вызова процедуры целая переменная X будет иметь
значение 123, а Ег - 0}
{R: Real}

S:= ‘ 423. 5' ;
Val (S, R, Er);
{R = 123. 5, Er = 0}

{X: Integer}
S:= ' 342ABC ' ;
Val(S, X, Er);
{после вызова процедуры Ег= 4, на четвертом символе про-
изошел сбой}

program рЗО;
var
                                                                80