square number (n^n)

[EkoX]

hi,
i try to make a square number but its not limited by 2. number and the square can be any numbers. so its like n^n.
please help me..
i confused how to do this..

any help will be appreciated.

thanks.

[Jx_Man]

Hi Ekox,
Try this code :

Program Math1;
Uses Wincrt;
Var i,n,A: integer;
x: real;
Begin
	Writeln('Programe A^n');
	Writeln('===================');
	Writeln;
	Write('Input n : ');readln(n);
	Write('Input A : ');readln(A);
	Writeln;
	x:=1;
	if (n>0) then
		For i:= 1 to n do
		x:=x*A
	else if (n=0) then
		x:=1
	else
		begin
			n:=-1*n;
			For i:= 1 to n do
			begin
				x:=x*(1/A);
			end;
		end;
	Writeln('The Result of A^n is : ',x:6:2);
End.

[EkoX]

thank you so much jx..
this what a looking for..

thank you a million..

[Wolfgan]

Math.Power(N,M)