Решение задачи Proc 39

#include <stdio.h>
#include <math.h>
 
float power1(float a, float b){
    return a<=0?0:exp(b*log(a));
}
 
float power2(float a, int n){
    float temp=1;
    int i;
    for (i=1; i<=abs(n); ++i) temp*=a;
    return n<0?1/temp:temp;
}
 
float power3(float a, float b){
    if  (fmod(b,1)==0) return power2(a, (int)b);
    else return power1(a,b);
}
 
 
 
int main(void)
{
    float p,a,b,c;
    printf("P:");
    scanf("%f", &p);
    printf("A: ");
    scanf("%f", &a);
    printf("B: ");
    scanf("%f", &b);
    printf("C: ");
    scanf("%f", &c);
 
    printf("power3: %f\n",power3(a,p));
    printf("power3: %f\n",power3(b,p));
    printf("power3: %f\n",power3(c,p));
 
    return 0;
}

import random
import math

def Power1(A,B):
    result = math.exp(B*math.log(A))
    return result

def Power2(A,N):
    i = 0
    p = 1
    
    if N < 0:
        N1 = -N
    else:
        N1 = N
        
    while i < N1:
        p *= A
        i += 1
    
    if N < 0:
        p = 1 / p

    return p

def Power3(A,B):
    result = Power2(A,B) if B == int(B) else Power1(A,B)
    return result

A = 2
P = 10
print(A,"^",P," = ",Power3(A,P),"; ",A**P)

A = 36
P = 0.5
print(A,"^",P," = ",Power3(A,P),"; ",A**P)

A = 2.25
P = 0.5
print(A,"^",P," = ",Power3(A,P),"; ",A**P)

A = 2.25
P = -0.5
print(A,"^",P," = ",Power3(A,P),"; ",A**P)
									

program Proc39;
 
Function Power1(A,B:Real):Real;
begin
  if a>0 then Power1:=exp(B*Ln(a))
  else Power1:=0;
end;
 
Function Power2(A:Real;N:Integer):Real;
var
i:integer;
TempRez:Real;
begin
 TempRez:=1;
 
 if N=0 then TempRez:=1
 else
 for i:=1 to abs(N) do TempRez:=TempRez*A;
 if N<0 then TempRez:=1/TempRez;
 Power2:=TempRez;
end;
 
Function Power3(A,B:Real):Real;
begin
 if B - Round(B) = 0 then Power3:=Power2(A,Round(B))
 else Power3:=Power1(A,B);
end;
 
var
  P,A,B,C:real;
 
 
begin
   Write('P :');
   Readln(P);
   Write('A :');
   Readln(A);
   Write('B :');
   Readln(B);
   Write('C :');
   Readln(C);
   Writeln(Power1(A,P));
   Writeln(Power1(B,P));
   Writeln(Power1(C,P));
end.