Кубический корень. Pascal

[Dellc]

Доброго времени суток. Дана задача в паскале:
В массиве найдите элементы, корни кубические из которых, являлись бы целыми числами, и выведите эти элементы на экран.
Собственно не понятно как определить целое ли число.

[GreenWizard]

var
RootOf: Double;
.........
RootOf := Root3(.....);
if Abs(Round(RootOf) - RootOf) < DELTA then
  нашли!

DELTA поменьше, 0,00001 где-то... оно нужно т.к. дробные числа имеют особенности такие, что порой 5 - 4 не равно 1, а 1 +-DELTA

[Dellc]

Спасибо, попробуем так

[VIK_aka_TOR]

а как насчет такой идеи?

if round(x) = x then
 // целое число...

[GreenWizard]

VIK_aka_TOR, почитайте о вычислениях с плавающей точкой

[whatever]

Сообщение от GreenWizard

VIK_aka_TOR, почитайте о вычислениях с плавающей точкой

Ты процитируй, а то мне уже тоже интересно :\
По теме: согласен с VIK_aka_TOR

[Dellc]

program laba_5;
var
N:array [1..10] of integer;
i:integer;
x:real;
begin
WriteLn('Vvedite massiv n');
for i:=1 to 10 do
Read(n[i]);
for i:=1 to 10 do
begin
x:=exp(ln(N[i])/3);
if round(x)=x then
Writeln('Koren is',N[i],'=',x);
end;
readln;
readln;
end.

Написал не работает...

[GreenWizard]

Сообщение от whatever

Ты процитируй, а то мне уже тоже интересно :\
По теме: согласен с VIK_aka_TOR

статья полная: http://habrahabr.ru/post/112953/
выдержка про сравнение:

Очень распространенная ошибка при работе с float-ами возникает при проверке на равенство. Например,

float fValue = 0.2;
if (fValue == 0.2) DoStuff();

Ошибка здесь, во-первых, в том, что 0,2 не имеет точного двоичного представления, а во-вторых 0,2 – это константа двойной точности, а переменная fValue – одинарной, и никакой гарантии о поведении этого сравнения нет.

Лучший, но все равно ошибочный способ, это сравнивать разницу с допустимой абсолютной погрешностью:

if (fabs(fValue – fExpected) < 0.0001) DoStuff(); // fValue=fExpected?

Недостаток такого подхода в том, что погрешность представления числа увеличивается с ростом самого этого числа. Так, если программа ожидает «10000», то приведенное равенство не будет выполняться для ближайшего соседнего числа (10000,000977). Это особенно актуально, если в программе имеется преобразование из одинарной точности в двойную.

это касается Double и Extended.... проявляется рандомно, грубо говоря
Второй способ достаточно приемлемый, хоть и не абсолютно верный

[Serge_Bliznykov]

GreenWizard, +1

позволю себе дополнить ответ.

я тут на форуме неоднократнейше предлагал ознакомиться с профильными статьями.

вот ЗДЕСЬ я размещал ссылки на статьи...

[Dellc]

{$N+}
program laba_5;
var
N:array [1..10] of integer;
i:integer;
x:double;
begin
WriteLn('Vvedite massiv n');
for i:=1 to 10 do
Read(n[i]);
for i:=1 to 10 do
begin
x:=exp(ln(N[i])/3);
if abs(round(x)-x) < DELTA then
Writeln('Koren is',N[i],'=',x);
end;
readln;
readln;
end.

пишет что не понимает что такое дельта