ABA
יומן פעילות לוח שנה מבזקי חדשות תקנון RSS כותרות כותרות לפי תגובה ניקוי קוקיז IP להורדת אפליקציה
eBay AliExpress GearBest Amazon Booking Kiwi SkyScanner Trip Advisor


"מישהו יכול לעזור לי בפרויקט קטן ב vb במתמטיקה"
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #8539 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 8539
Dark-Lord

דרג אמינות חבר זה 		   23:18   11.12.02   
אל הפורום  
  מישהו יכול לעזור לי בפרויקט קטן ב vb במתמטיקה  
 
   שמעו אני רוצה לבנות פרוייקט ב vb שיהיה שדה לרשום מספר סתם מספר למשל 22 והתוכנה תביא לי את כל הכפולות שנותנות את המספר הזה למשל אני יכתוב לו
22 אז היא תביא לי
2 * 11

שתביא את כל התוצאות... אבל חשוב שהתוכנה לא תתן תוצאות עשרוניות למשל
5.5 ושלא תיתן אותה תוצאה פעמיים למשל
11*2
ו
2*11

למישהו יש רעיון מאיפה להתחיל? זו אמורה להיות תוכנה פשוטה... בלי מודלולים ושטויות


                                שתף        
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

  האשכול     מחבר     תאריך כתיבה     מספר  
  אתה רוצה למעשה לפרק לגורמים ראשוניים. dryice 11.12.02 23:26 1
     תודה רבה על ההסבר אבל לא ממש הבנתי איך Dark-Lord 11.12.02 23:35 2
         הממ gil_soffer1 12.12.02 07:18 3

       
dryice

דרג אמינות חבר זה 		   23:26   11.12.02   
אל הפורום  
  1. אתה רוצה למעשה לפרק לגורמים ראשוניים.  
בתגובה להודעה מספר 0
 
   אתה רץ בלולאה מ 2 ועד שורש המספר ובודק האם זה מתחלק.
אם זה מתחלק אתה מחלק את המספר וממשיך, למשל
ניקח את המספר 770
המספר הראשון בו הוא מתחלק הוא 2, נחלק נקבל: 385
ב 2 3ו4 הוא לא מתחלק ב5 כן, נקבל: 77
לא מתחלק ב5 6, כן מתחלק ב7 נקבל 11,
לר מתחלק ב,7,8,9,10 כן ב11 נקבל 1 סיימנו.

הגורמים הראשוניים של 770 הם: 2,3,5,7,11
אפשר לבצע מכפלות שונות ביניהם ולקבל 770:
אם אתה רוצה לוודא שאתה לא מדפיס שום דבר פעמיים קבע לך
שאתה מסדר אותם מהקטן לגדול.

DRYICE


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
Dark-Lord

דרג אמינות חבר זה 		   23:35   11.12.02   
אל הפורום  
  2. תודה רבה על ההסבר אבל לא ממש הבנתי איך  
בתגובה להודעה מספר 1
 
   לעשות את הקוד... אתה יכול לעזור לי קצת עם הקוד? תודה רבה אחי!!!


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
gil_soffer1

דרג אמינות חבר זה 		   07:18   12.12.02   
אל הפורום  
  3. הממ  
בתגובה להודעה מספר 2
 
   

Function GORMIM(num)
  Dim tmpS, i
  tmpS = ""
  i = 2
  Do While i <= Int(Sqr(num))
    If num / i = Int(num / i) Then
      If Not tmpS = "" Then tmpS = tmpS & "*"
      tmpS = tmpS & i
      num = num/i
    Else
      i = i +1
    End If
  Loop
  GORMIM = tmpS
End Fun


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net