Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/EXPNT.ZIP/EXPNT.PAS

Pascal/Delphi Source File | 1988-05-04 | 512 b | 28 lines

{$N+}

{THIS FUNCTION RETURNS THE VALUE OF a TO THE x POWER.  FOR EXAMPLE: a=2, x=4
WILL RETURN 16 IN EXPNT.  DECIMAL VALUES ARE ALLOWED TOO.  THE BASE IS FIRST
AND THE POWER IS SECOND.}

function expnt(a,x : real):extended;

var
  i : integer;
  sum : extended;
  test : extended;

begin
  i:=1;
  sum:=0;
  test:=1;
  while test>1.0E-16 do
    begin
      test:=test*(x*ln(a))/i;
       sum:=sum+test;
       i:=i+1;
     end;
  expnt:=sum+1;
end;