массив в паскале

[Olgaandsasha]

ладно с формулой разберусь, а не поможете еще вторую часть задания?

[AVer]

Var a:integer;
    b:real;
begin
a:=5;
b:=exp(1/3*ln(a*sqr(1-a)));
WriteLn(b:5:2);
ReadLn;
end.

Все работает значит с формулой и кодом все отлично. Видимо есть какие то значения в массиве Х на которых не существует какая нибудь мат. функция.

[Olgaandsasha]

я уже тоже проверила и сократила ее, ну так для проверки и выводит только массив Х

[AVer]

Var R:Real;
...
R:=0;
for i:=1 to n do
if (i mod 3 = 0) or (i mod 5 = 0) Then
R:=R+Z[i];

Вторая часть.

[Olgaandsasha]

почему выводит только Х?

[AVer]

Y[i]:=exp(1/3*ln(X[i]*sqr(1-X[i])));

Логарифм не существует при Х <= 0. Поскольку квадрат всегда положителен, значит X[i] должен быть всегда положительным. меняй строчку

X[i]:=-50+random(191);

[IT-man]

меняй строчку

кубический корень из отриц числа существует поэтому не надо ее менять просто рассмотреть 2 случая

if x[i]>0 then Y[i]:=exp(1/3*ln(X[i]*sqr(1-X[i])))
else Y[i]:=-exp(1/3*ln(abs(X[i])*sqr(1-X[i])));

[AVer]

Ушли в матан. Думаю это было не критично в задании. =))
Я к тому что паскаль не ищет лн из отричательного числа.

[IT-man]

Думаю это было не критично в задании

тогда бы не было отрицательных чисел в массивах X и Y и смысла в массиве Z

[Olgaandsasha]

спасибо всем огромное ))) только все равно нифига не работает(((