Составители:
Рубрика:
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
Страницы
- « первая
- ‹ предыдущая
- …
- 78
- 79
- 80
- 81
- 82
- …
- следующая ›
- последняя »