Информатика

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


<< Предыдущий вопрос Следующий вопрос >>

uses crt;


function Power(x,y:real):real;

begin

if x=0 then Power:=0
else
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.

Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы