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

[ILNARM]

ребят, помогите. завтра сдавать задачку, если не сдам то с учебы выкидывают((
задача такова, возвести в степень z=y^x
Дело в том, что в паскале возвести в степень можно только так: exp(x*ln(y)). Вот, но есть нюанс. Если просто взять бумагу, высчитать -2^2 мозгов много не надо, а вот когда паскаль начинает считать, то логарифм из 0 и отрицательного числа не высчитывается.
Но надо решить задачу, без использования процедур и функций.
например так, но задача не сдалан до конца, не знаю как быть

Program turbo;
uses crt;
var a,b,c,y,z:real;
    x:integer;
Begin
   clrscr;
   write('y= '); readln(y);
   write('x= '); readln(x);
   if (y<0) then
   begin
   y:=y*(-1);
   end;
      a:=exp(x*ln(y));
      z:=a;
      writeln('z= ',z:1:3);
    end;
     readkey;
     end.

[Arigato]

Функция Power из Делфи:

function Power(const Base, Exponent: Extended): Extended;
begin
  if Exponent = 0.0 then
    Result := 1.0               { n**0 = 1 }
  else if (Base = 0.0) and (Exponent > 0.0) then
    Result := 0.0               { 0**n = 0, n > 0 }
  else if (Frac(Exponent) = 0.0) and (Abs(Exponent) <= MaxInt) then
    Result := IntPower(Base, Integer(Trunc(Exponent)))
  else
    Result := Exp(Exponent * Ln(Base))
end;

Функция IntPower возводит в степень целые числа. В Делфи она на Ассемблере, но можно и самому написать.

[redeezko]

можно вот так:

program turbo;
uses crt;
var y,z,x:real;
      i:integer;
Begin
    writeln('vvedite x');
    readln(x);
    writeln('vvedite y');
    readln(y);
    i:=1;
    z:=1;
    while i<=x do
            begin
                z:=z*y;
                i:=i+1
            end;
    writeln('z=',z:1:3);
    readkey;
End.

[Greblin]

redeezko Ну и посмотрите, что выдаст Ваша программа, например, для корня из 2
ILNARM Если надо без функций, то копайте во сторону ряда Маклорена-Тейлора. В Вашем случает лучше всего использовать ряд для (1+x)^m. Дальше ищете по форуму, как такой ряд реализовать с заданной точностью. Такие задания появляются каждую неделю

[redeezko]

Greblin не пойму о чем вы? Приведите пример когда данная программа не работает? Вроде пару занятий назад по информатике в универе препод нам написал именно такой код.

[ILNARM]

redeezko, спасибо за помощь, но при некоторых кобинация программа не правильно работает, например, 2^(-2)
Arigato, препод мне точно не поверит, что я сам делал, и доказать не смогу)

[redeezko]

Прошу прощения, сейчас исправлю

[redeezko]

Вот. Может и не рационально зато верно считает.

program Project1;
 {$APPTYPE CONSOLE}
 uses
  SysUtils;
var x,y,z:real;
    i:integer;
begin
  writeln('vvedite x');
  readln(x);
  writeln('vvedite y');
  readln(y);
  z:=1;
  i:=1;
  if x>0 then
      begin
  while i<=x do
              begin
                z:=z*y;
                i:=i+1;
              end
      end;
  if x<0 then
      begin
         while i<=abs(x) do
              begin
                z:=z*y;
                i:=i+1;
              end;
        z:=1/z;
      end;
  if ((y=0) and (x=0)) then z:=0;
  writeln('z:=',z);
  readln;
end.

[Arigato]

redeezko
А если X = 2; Y = 0.5

Да и не ясно, у вас X^Y или Y^X? Кажется, ТС надо X^Y.

[redeezko]

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