16 lines
412 B
ObjectPascal
16 lines
412 B
ObjectPascal
// Преобразование вещественное <-> строка
|
|
var
|
|
s: string;
|
|
r: real;
|
|
|
|
begin
|
|
// Преобразование целого в строку
|
|
r := 3.1415;
|
|
s := FloatToStr(r);
|
|
writelnFormat('Целое: {0}. После преобразования к строке: ''{1}''',r,s);
|
|
|
|
// Преобразование строки в целое (может произойти исключение)
|
|
s := '3.1415';
|
|
r := StrToFloat(s);
|
|
writelnFormat('Строка: ''{0}''. После преобразования к целому: {1}',s,r);
|
|
end. |