راه حل پیدا کردن عاملهای اول یه عدد

من راه حل یا برنامه پیدا کردن عاملهای اول یه عدد رو می خوام.اگه روش حل رو هم بگید باقیش حله.
این برنامه یه عدد رو می گیره و به عاملهای اول تجزیه می کنه.مثلا
5*3=15
5*3*3=45
2*2*2*=16
7*2=14
:6:

ali zi zeperto خان اگه حرف بدی زدم پوزش می طلبم :11:


من تو پاسكال اينجوري نوشتم...

يه تبديل كد ساده لازم داره....... :10:

کد:

---

const size = 25;
Type
ary = array[1..size] of integer;
Function Prime (t:integer):boolean;
var
prime1:boolean;
cnt,n,r:integer;

brgin
prime1:= false;
cnt :=2;
while (cnt<n) and (not prime1) do
begin
r:= n mod cnt;
cnt:=cnt+1;
if r=0 then
prime1 := true;
end;
Prime:=prime1;
end;
var
t,temp1,i,j,n,cnt,r,temp2:integer;
ary1,ary2:ary;

Begin
writeln('Please enter a Nu:');
readlen (n);
t:=2;
temp1:=n;
cnt:=0;
for i:=1 to temp1 do
for j:=1 to temp2 do
if i=j then
begin
if Prime(t) then
brgin
r:= temp1 mod t;
cnt:=0;
if r=0 then
begin
temp1:= temp1 div t;
cnt:=cnt+1;
ary1[i]:=t;
ary2[j]:=cnt;
t:=t+1;
end
else
t:=t+1;
end
else
t:=t+1;

temp2:=n;
for i:=1 to temp2 do
for j:=1 to temp2 do
if i=j then
begin
write('(',ary1[i],'^'.ary2[j],')','*');
end;

write(' = ',n);
readln;
end

---

يه نكته كه باد بهت بگم اينه كه اين سورس رو من قبلا براي تاپيك پاسكال نوشتم و براي اينكه زياد هم مفتي نباشه يه جاش رو دست كار كردم مي دونم كه نقطه تابلوئي است و به راحتي پيدا مي شه..........(الان خودم يادم نيست كجاش بود )
قربانت صدرا
يا علي

لطف کردی صدرا خان.
ممنون :6:

لطف کردی صدرا خان. :10:
ممنون :6: