Рекурсивная функция возведения вещественного числа в целую степень

@Amaliya · Регистрация: 10.02.2010

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

Решите задачку, плиз (((
Описать рекурсивную функцию pow(x, n) от вещественного x (x <> 0) и целого n, которая вычисляет величину x^n (x в степени n) согласно формуле: (система) x^n=1 при n=0; x^n=1/x^-n при n<0; x^n=x*x^n-1 при n>0.

@Puporev · 11.02.2010, 17:40

Pascal

uses crt;
function pow(x:real;n:integer):real;
var p,i:longint;
begin
if n=0 then pow:=1
else if n<0 then pow:=1/pow(x,-n)
else if n>0 then pow:=pow(x,n-1)*x;
end;
var a:real;
    k:integer;
begin
clrscr;
write('a=');readln(a);
write('k=');readln(k);
write(a:0:2,'^',k,'=',pow(a,k):0:4);
readln
end.

@Amaliya · 11.02.2010, 18:20 **[ТС]**

Спасибо большое

28.05.2012, 14:13

а на с++ можно эту же программу пожалуйста

@Amaliya 11 / 8 / 1 Регистрация: 10.02.2010 Сообщений: 22
		1
	Рекурсивная функция возведения вещественного числа в целую степень 11.02.2010, 17:29. Показов 4332. Ответов 3 Метки нет (Все метки) Решите задачку, плиз ((( Описать рекурсивную функцию pow(x, n) от вещественного x (x <> 0) и целого n, которая вычисляет величину x^n (x в степени n) согласно формуле: (система) x^n=1 при n=0; x^n=1/x^-n при n<0; x^n=x*x^n-1 при n>0. 0

@Amaliya 11 / 8 / 1 Регистрация: 10.02.2010 Сообщений: 22
	11.02.2010, 18:20 [ТС]	3
	Спасибо большое 0

mashaa
	28.05.2012, 14:13	4
	а на с++ можно эту же программу пожалуйста

Опции темы