rekurzia mocniny

pidrik

nemate niekto zdrojak rekurzie mocniny?

edit: sakra zabudol som napisat ze to potrebujem v dev-pascale...

v Delphi:

function TForm1.mocnina(a,n:integer):integer;
begin
if n=1 then mocnina:=a
       else mocnina:=a*mocnina(a,n-1);
end;

snake2

v DEV-PAscale

Kód: Vybrať všetko

function mocnina(a,n:integer):integer;
begin
if n=1 then mocnina:=a
       else mocnina:=a*mocnina(a,n-1);
end;

snake2:

v céčku:

Kód: Vybrať všetko

#include "stdafx.h"
int mocnina(int a, int n);


int main(void)
{
	printf ("%d",mocnina(2,4)); 
	return 0;
}

int mocnina(int a, int n)
{
   if (n==1) return a;
     else return (a*mocnina(a,n-1));
}

snake2

2audiotrack : sak co, dilinkom to musis napisat