Задача состоит в обращении 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 reverse) ибо при делении real на 10 - ошибка, а иначе не знаю как цифры вытащить по отдельности. Вобщем уж не знаю... Помогите пожалуйста, курсач горит(

Ты бы название функции поменял, а то запутывает... И саму ее заодно поправить надо:

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? )

Не совсем понимаю, зачем тебе это нужно, но сделать можно так:

while Frac(a)<>0 do a:=a*10;

Добавлено через 1 мин.
Потом, если нужно, перевести в целое:

ia:=Round(a);