Написать рекурсивную программу вычисления функции Stepen (x,n)

@pion · Регистрация: 23.10.2012

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

Написать рекурсивную программу вычисления функции Stepen (x,n)

вот моя наработка,а как полностью слепить прогу незнаю,просто не очень понятно задание,подскажите люди добрые!

Pascal

program lab4;
uses crt;
function Stepen(x,n:integer):integer;
begin
if n=0 then Stepen:=1
else Stepen:=x*Stepen(X,n-1);
end;
var s,k:integer;
begin
s:=0;
write('k=');
readln(k);
exp(2,k)=Stepen(2,k);
exp(k,3)=Stepen(k,3);
s:=exp(2,k)+exp(k,3);
writeln(s);
end.

@Puporev · 20.03.2013, 13:05

Pascal

program lab4;
uses crt;
function Stepen(x,n:integer):integer;
begin
if n=0 then Stepen:=1
else Stepen:=x*Stepen(X,n-1);
end;
var s,k:integer;
begin
write('k=');
readln(k);
s:=Stepen(2,k)+Stepen(k,3);
writeln(s);
end.

	20.03.2013, 13:05