Инвертирование числа, обратить цифры в real числе Опции

[inside]

Задача состоит в обращении 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.

Писал такое... Но неверно решает.

Введите челое число: 123.456
Обратное ему число: 65432.1

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

Сообщение отредактировано: inside - 12.12.2007 23:40