0

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.

3
Contributors
3
Replies
4
Views
6 Years
Discussion Span
Last Post by Wolfgan
1

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.
Votes + Comments
superb...thanks a million.. :)
0

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

thank you a million..

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.