возведение в степень

[ILNARM]

я сам зоколебался и вас не хочу мучать, но если подставить -2^(-2), то должно получится -0,25, а в вашей задаче 0,25. и 0 в отрицательную степень помоему даже не возводится, и у вас ответ 1 выводит(

[Arigato]

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

Arigato да вроде у него y^x

А, ну да. Но всё равно у вас не верно. Возведите 2^0.5 с помощью своей программы.

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

но если подставить -2^(-2), то должно получится -0,25

1/((-2)*(-2)) = 1/4

[ILNARM]

или я тупой или калькулятор кривой) и просьба есть
на каждом шаге кода, что происходит? не до конца врубюсь в этой задаче

[Arigato]

Вот, решение вашей задачи:

function Power (const Base, Exponent: Extended): Extended;
var I: Integer;
    Res: Extended;
begin
  if Exponent = 0 then Power := 1
  else if (Base = 0) and (Exponent > 0) then Power := 0
  else if (Frac (Exponent) = 0) and (Abs (Exponent) <= High (Integer)) then
  begin
    Res := 1;
    for I := 1 to Trunc (Abs (Exponent)) do Res := Res * Base;
    if Exponent < 0 then Res := 1 / Res;
    Power := Res;
  end else Power := Exp (Exponent * Ln (Base))
end; {func Power}

var X, Y: Real;

begin
  Write ('X = '); ReadLn (X);
  Write ('Y = '); ReadLn (Y);
  WriteLn (X:0:3, '^', Y:0:3, ' = ', Power (X, Y):0:3);
  ReadLn;
end.

[ILNARM]

Arigato спасибо, но нас в колледже таким вещям даж не учили, препод явно узнает что не моя работа

[Arigato]

А я типа экстрасенс и знаю, чему вас там учат. Переделайте так, что бы были только те конструкции, что вы проходили, делов-то...

[ILNARM]

всем спасибо, разобрался