Помощь - Поиск - Пользователи - Календарь
Полная версия: Инвертирование числа
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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 - ошибка, а иначе не знаю как цифры вытащить по отдельности. Вобщем уж не знаю... Помогите пожалуйста, курсач горит(
volvo
Ты бы название функции поменял, а то запутывает... И саму ее заодно поправить надо:
function FloatToStr(I: real): String;
var S: string[32];
begin
Str(I:0:15, S);
FloatToStr := S;
end;

inside
blush.gif просто я эту функцию тоже откуда то копировал и она вначале работала с int)
большое спасибо, теперь все работает верно, хотя я конечно не понял ничего, надо больше мануалы юзать :\
Родилась идея как решить без строк, но нужно из остатка целое число сделать 0.456 >> 456, как сделать впринципе знаю, но наверно сделаю криво) измерю длинну а потом в цикле умножу и возьму round, но может есть более рациональный первод 0.456 >> 456? )
Lapp
Цитата(inside @ 12.12.2007 23:52) *

более рациональный первод 0.456 >> 456? )

Не совсем понимаю, зачем тебе это нужно, но сделать можно так:
while Frac(a)<>0 do a:=a*10;


Добавлено через 1 мин.
Потом, если нужно, перевести в целое:
ia:=Round(a);
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.