Модуль возведения в степень(Uses)

@iskulll · Регистрация: 27.04.2011

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста написать модуль возведения в степень числа. Я смог только написать программу, с модулями у меня проблемы. Вот что у меня получилось

Pascal

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.

@SuPeR XaKer · 27.04.2011, 21:01

ух..наверное долго трудился над написанием этого -> Возведение числа в степень кода

@iskulll · 27.04.2011, 21:10 **[ТС]**

Пару минут XD

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	27.04.2011, 21:01	2
	ух..наверное долго трудился над написанием этого -> Возведение числа в степень кода 1

@iskulll 0 / 0 / 0 Регистрация: 27.04.2011 Сообщений: 26
	27.04.2011, 21:10 [ТС]	3
	Пару минут XD 0