[Asira]

Дан одномерный целочисленный массив.
Найти сумму элементов массива, являющихся точными квадратами.
Как это можно сделать ?? Есть какие нибудь идеи????

[lmikle]

Идти в цикле по массиву, и если результат функции sqrt есть целый, то складывать в какую-нить переменную.

[Asira]

Я так же делала, но информатик сказал ,что надо как то по другому....

[lmikle]

А как? Честно проверять через возведение в квадрат? Можно, конечно, и так, но этом, ИМХО, изврат и лишнее время при выполнении. Но если хочешь - напиши функцию вида:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

function IsWholeSquare(N : Integer) : Boolean; var   I, J  : Integer; begin   Result := False;   I := 1;   J := 1;   While J < N Do     Begin       J := I * I;       Result := J = N;       If Result Then Break;       Inc(I);     End; end;

И проверяй "квадратичную целостность" через нее.
Но это лишний код.

[Asira]

да это слишком долго........
а как грамотно записать вот эту фразу по отношению к массиву, думаю что у меня проблема именно в этом - "если результат функции sqrt есть целый"

[Kapitoshka438]

Код:

1	if Frac(Sqrt(X)) = 0 then ...