PDA

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



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

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


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

:sunglass:

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

Lonely-girl
جمعه 17 مهر 1388, 13:03 عصر
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 می خواد .