Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста сделать функцию возведения числа в степень (числа считываются с клавиатуры). на фотографии есть начало (только там в конце что-то не оч). ПОЖАЛУЙСТА!

Ответ оставил Гость

uses crt;

function Power(x,y:real):real;
begin
if x=0 then Power:=0else
if x>0 then Power:=exp(ln(x)*y)else
Power:=-exp(ln(abs(x))*y);
end;

var x,y:real;
begin
clrscr;
write(x=);readln(x);
write(y=);readln(y);
write(x^y=, Power(x,y):0:3);
readln
end.