отрицательный кубический корень в Pascal

[Marta_Marta]

Please, help!

Можно ли вычислить отрицательный кубический корень ?
Можно ли x,y,z привести к типу Real?

Program Pascal_1;

var
  x, y, z: integer;

var
  a, b, c: real;

begin
  write('Введите значение x=');
  readln (x);
  write('Введите значение y=');
  readln (y);
  write('Введите значение z=');
  readln (z);
  if ((z<=0) and ((x+y)mod 2=1)) or ((z=0) and ((x+y)<0)) or (x<1) then begin
  ///при ((z<=0) and ((x+y)mod 2=1)) получается комплексное число
  ///при (z=0) and ((x+y)<0)) получается деление на ноль, т.к. 0^-n=n/0
  ///при (x<1) паскаль выдает ошибку, не вычисляя корень из третьей степени из отрицательного числа, хотя он и существует
  writeln('Введены некорректные данные');
  end
  
  else begin
  b:=Power(z,(x+y)/2);
  c:=Power((x-1)/(abs(y)+1), 1/3);
  a:=(b-c);
  writeln('значение фунции =', a);
  
end;
end.

[Аватар]

if аргумент>0 then результат:=Power(аргумент, 1/3)
else if аргумент<0 then результат:=-Power(abs(аргумент), 1/3)
else  результат:=0;

[Marta_Marta]

исправила так:

Program Pascal_1;

var
  x, y, z: integer;

var
  a, b, c: real;

begin
  write('Введите значение x=');
  readln (x);
  write('Введите значение y=');
  readln (y);
  write('Введите значение z=');
  readln (z);
  if x>0 then c:=Power((x-1)/(abs(y)+1), 1/3)
  else if x<0 then c:=-Power((x-1)/(abs(y)+1), 1/3);
  
  b:=Power(z,(x+y)/2);
  c:=Power((x-1)/(abs(y)+1), 1/3);
  a:=(b-c);
  writeln('значение фунции =', a);

end.

но все равно получается что a=Nan


______________________
Используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[p51x]

Ну так у вас x-1, а не просто x и ниже не исправили.

[Marta_Marta]

не понимаю..

[Serge_Bliznykov]

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

if x>0 then c:=Power((x-1)/(abs(y)+1), 1/3)
  else if x<0 then c:=-Power((x-1)/(abs(y)+1), 1/3);
  
  b:=Power(z,(x+y)/2);
  c:=Power((x-1)/(abs(y)+1), 1/3);

не смущает, что то, что Вы вычислили значение корня, Вы потом не используете?!!

напишите так:

  if ((x-1)/(abs(y)+1))>0 then c:=Power((x-1)/(abs(y)+1), 1/3)
  else  c:=-Power(abs((x-1)/(abs(y)+1)), 1/3);
  
  b:=Power(z,(x+y)/2);
  a:=(b-c);
  writeln('значение функции =', a);

[p51x]

Первое число у Power должно быть положительно.

if x>0 then c:=Power((x-1)/(abs(y)+1), 1/3)

Понимаете, что знак зависит не от x, а от x-1?

b:=Power(z,(x+y)/2);
c:=Power((x-1)/(abs(y)+1), 1/3);

Тут вы ничего не поменяли.

Так понятнее?

[Marta_Marta]

Благодарю вас!