نمایش نتایج 1 تا 4 از 4

نام تاپیک: مقسوم علیه های یک عدد

  1. #1
    کاربر جدید
    تاریخ عضویت
    آبان 1383
    پست
    2
    تشکر کردن
    0
    0 بار تشکر شده در 0 پست

    مقسوم علیه های یک عدد


    دوستان اگر در مورد این موضوع الگوریتمی دارین برام بفرستین.
    ممنون میشم.

  2. #2
    کاربر تازه وارد
    تاریخ عضویت
    اسفند 1381
    پست
    77
    تشکر کردن
    0
    یک بار تشکر شده در یک پست
    میدانیم که هر عدد به 1 و خودش بخش پذیر است (پس 1وn دو مقسوم علیه ثابت هر عدد مباشد به جز خود 1)
    و بزرگترین مقسوم علیه یک عدد (به جز خود عدد) حداکثر برابر نصف آن عدد است

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

    :sunglass:
    اگر انسانها در طول عمر خویش میزان کارکرد مغزشان یک میلیونم معدشان بود
    اکنون کره ی زمین تعریف دیگری داشت

    «انشتین»

  3. #3
    کاربر دائمی
    تاریخ عضویت
    بهمن 1383
    پست
    203
    تشکر کردن
    8
    51 بار تشکر شده در 45 پست
    می تونیم به جای n/2 از جذر n یعنی (Sqrt(n استفاده کنیم
    عاقبت خاک گل کوزه گران خواهیم شد

  4. #4
    کاربر جدید
    تاریخ عضویت
    مهر 1388
    محل زندگی
    مشهد
    پست
    11
    تشکر کردن
    9
    3 بار تشکر شده در 2 پست

    نقل قول: مقسوم علیه های یک عدد

    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 می خواد .

بوک مارک کردن این تاپیک

بوک مارک کردن این تاپیک

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •