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

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

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

Рубрика: 

81
I, Code: Integer;
S: String;
begin
WriteLn('Введите строку для перевода ');
ReadLn(S);
Val (ParamStr (1) , I, Code) ;
{ Если произошла ошибка... }
if code <> 0 then Writeln('Ошибка в позиции: ' , Code)
else Writeln('Значение: ', I);
end.
Процедура Str переводит число (целое или веществен-
ное) в строку.
procedure Str(X: Real [Integer]; var S: string);
При переводе числовых значений можно указывать формат пе-
ревода, подобно тому, как мы это делали при вызове Write и
WriteLn.
Примеры:
{Т: Integer}
Str(T: 6, S) ;
{М: Real}
Str(M: 4: 2, S);
Str(T, S);
Str(M, S);
program p31;
function IntToStr(I: Longint) : String;
var
S: string [11] ;
begin
Str(I, S) ;
IntToStr:= S; 
   I, Code: Integer;
   S: String;
begin
   WriteLn('Введите строку для перевода ');
   ReadLn(S);
  Val (ParamStr (1) , I, Code) ;
   { Если произошла ошибка... }
    if code <> 0 then Writeln('Ошибка в позиции: ' , Code)
   else Writeln('Значение: ', I);
end.

       Процедура Str переводит число (целое или веществен-
ное) в строку.

procedure Str(X: Real [Integer]; var S: string);

При переводе числовых значений можно указывать формат пе-
ревода, подобно тому, как мы это делали при вызове Write и
WriteLn.
       Примеры:
{Т: Integer}
Str(T: 6, S) ;

{М: Real}
Str(M: 4: 2, S);
Str(T, S);
Str(M, S);

program p31;
function IntToStr(I: Longint) : String;
var
   S: string [11] ;
begin
   Str(I, S) ;
   IntToStr:= S;
                                                             81

Страницы