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

#include <stdio.h>
#include <math.h>

float power1(float a, float b){
    return a<=0?0:exp(b*log(a));
}
 
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("power1: %f\n",power1(a,p));
    printf("power1: %f\n",power1(b,p));
    printf("power1: %f\n",power1(c,p));
 
    return 0;
}

import random
import math

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

for i in range(1,17):
    #x = random.randrange(1,16)
    a = random.randrange(1,5)
    #a = 2
    x = i
    print(a,":",x,":",Power1(a,x),":",a**x)
									

program Proc37;
 
Function Power1(A,B:Real):Real;
begin
  if a>0 then Power1:=exp(B*Ln(a))
  else Power1:=0;
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.