Язык:
Русский
English
{Str.PAS}
{ Пример программы для процедуры Str }
function Image(I : LongInt) : String;
{ Преобразовывает значение типа LongInt в строку }
var
S : String[11];
begin
Str(I, S);
Image := S;
end;
begin
WriteLn(Image(-5322)); { '-5332' }
end.
{ Преобразовывает значение типа LongInt в строку }
var
S : String[11];
begin
Str(I, S);
Image := S;
end;
begin
WriteLn(Image(-5322)); { '-5332' }
end.