PDA

View Full Version : مقسوم علیه های یک عدد



omid tashakor
یکشنبه 24 آبان 1383, 16:30 بعد از ظهر
دوستان اگر در مورد این موضوع الگوریتمی دارین برام بفرستین.
ممنون میشم.

abbas.exe
پنجشنبه 28 آبان 1383, 03:28 قبل از ظهر
میدانیم که هر عدد به 1 و خودش بخش پذیر است (پس 1وn دو مقسوم علیه ثابت هر عدد مباشد به جز خود 1)
و بزرگترین مقسوم علیه یک عدد (به جز خود عدد) حداکثر برابر نصف آن عدد است


reaadln(n);
for i:=2 to n /2 do
if n mod i =0 then (iمقسوم علیه n است)

:sunglass:

رضا جاسبی
یکشنبه 25 بهمن 1383, 15:22 بعد از ظهر
می تونیم به جای n/2 از جذر n یعنی (Sqrt(n استفاده کنیم

Lonely-girl
جمعه 17 مهر 1388, 13:33 بعد از ظهر
private sub command_click()
dim i as integer
dim c as integer
i = inputbox ("enter number ?")
for c = 1 to i
if i mod c = 0 then
print c
end if
next c
end sub :لبخندساده:
این برنامه مقسوم علیه های یک عدد که از ورود یدریافت می شه ،با ویژوال نوشتمش ، همینطور هم که از متن برنامه می بینی فقط یکcommand می خواد .