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.

EkoX 0 Newbie Poster

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 987 Nearly a Senior Poster Featured Poster

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 commented: superb...thanks a million.. :) +3

EkoX 0 Newbie Poster

thank you so much jx..

this what a looking for..

thank you a million..

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.