Задача состоит в обращении real числа. Например: 123.456 >> 654.321
program N_95;Писал такое... Но неверно решает.
uses crt;
var j,len:integer;
i:real;
si:string;
function reverse(a:real):real;
var
b:real;
begin
b:= 0.0;
while a <> 0 do
begin
b:= b*10 + round(frac(a/10)*10);
a:= trunc(a/10);
end;
reverse:=trunc(b);
end;
function IntToStr(I: real): String;
var S: string[11];
begin
Str(I, S);
IntToStr := S;
end;
begin
write('Введите челое число: '); read(i);
write('Обратное ему число: ');
si:=IntToStr(i);
len:=Length(si);
for j:=len downto 1 do
if si[j] <> '0' then
write(si[j]);
repeat until keypressed;
end.
Ты бы название функции поменял, а то запутывает... И саму ее заодно поправить надо:
function FloatToStr(I: real): String;
var S: string[32];
begin
Str(I:0:15, S);
FloatToStr := S;
end;
просто я эту функцию тоже откуда то копировал и она вначале работала с int)
большое спасибо, теперь все работает верно, хотя я конечно не понял ничего, надо больше мануалы юзать :\
Родилась идея как решить без строк, но нужно из остатка целое число сделать 0.456 >> 456, как сделать впринципе знаю, но наверно сделаю криво) измерю длинну а потом в цикле умножу и возьму round, но может есть более рациональный первод 0.456 >> 456? )