מחשבון הגורם הנפוץ הגבוה ביותר: 6 שלבים

2024 מְחַבֵּר: John Day | [email protected]. שונה לאחרונה: 2024-01-30 09:12

להרבה מהחברים והילדים שלי אני מורה יש בעיות במציאת הגורם המשותף הגבוה ביותר (HCF) מכל מספר מספרים. זה בעיקר בגלל שבמדינה שלי החינוך הוא באמת תת-סטנדרטי. ילדים בדרך כלל נוקטים בלמידה שוטפת וכללים קשים.

במובן זה יצרתי תוכנית איתה מחשבת HCF.

למרות שבאמת לא ניתן לעשות זאת ביד וישנן דרכים קלות ופשוטות יותר להשיג HCF אני אישית חושב שזו הטכניקות הפרימיטיביות ביותר, ומכאן הבסיסיות ביותר. אני מקווה שאנשים יצליחו להבין את טיבו של HCF.

שפת התכנות בה אני הולך לכתוב היום היא Microsoft studio 2010 במצב קונסולה

הסיבה לכך היא שהוא לא כל כך רגיש לאותיות והוא מאוד ידידותי למשתמש ולכן מושלם למתחיל שאפתן.

שלב 1: שלב 1: הצהרת המשתנים

בכל תוכנית כשאנו רוצים לאחסן כל סוג של נתונים לצורך מניפולציה עלינו להכריז על משתנים. למרות שיש סוגים רבים בתוכנית שלי השתמשתי רק במשתנים מקומיים.

הוא מאחסן משתנים אינטגרליים בפורמט

Dim x כמספר שלם

משתנה זה תווית בשם "x" כסוג נתונים שלם

אז בתוכנית עלינו להכריז על משתנים אלה

Dim firstNum, secondNum, TEMP, HCF כמספר שלם

בעצם שמרתי עבור משתנים בשמות: firstNum, secondNum, TEMP, HCF

שלב 2: אחסון המשתנים

לאחר שהכרזנו על משתנה עלינו להקצות לו ערך אחרת הוא חסר תועלת.

לשם כך אנו משתמשים באופרטור "="

אך כדי לקרוא אותו מהמשתמש אנו זקוקים לדרך להזין אותו. אנו משתמשים בפונקציה "Console. ReadLine"

זוהי פונקציה של מצב הקונסולה של Visual Basic הקוראת שורה שהוקלדה לתוך הקונסולה

התוכנית הולכת כך;

firstNum = Console. ReadLine

לאחר מכן אנו עושים את אותו הדבר עם המשתנה הבא

secondNum = Console. ReadLine

זה מאחסן שני מספרים לצורך מניפולציה על ידי התוכנית

שלב 3: השוואה

לאחר מכן אנו משווים שני משתנים ובודקים איזה מהם קטן יותר. נוכל להשתמש במספר הגדול יותר מדי, אך אין טעם להעמיס עודף על התוכנית. אבל אם שני המשתנים שווים נוכל להשתמש באחד מהם

לשם השוואה אנו משתמשים בהצהרות if

אם תנאי אז (פעולה אם התנאי נכון)

אחרת אם המצב

(פעולה אם התנאי נכון)

סוף אם

כך שלמעשה זה נראה כך

אם firstNum <secondNum ואז TEMP = firstNum ElseIf firstNum> secondNum ואז TEMP = secondNum

ElseIf firstNum = secondNum ואז

TEMP = secondNum

סוף אם

שלב 4: מציאת HCF

בתיאוריה HCF הוא המספר השלם הגבוה ביותר שבאמצעותו ניתן לחלק את כל המספרים הנתונים בנפרד מבלי להשאיר שארית. או בחושי המחשב שארית האפס

בתוכנית שלי אני ממשיך לחלק את המספרים ולהגדיל עד שאני מקבל את המספר השלם הגבוה ביותר האפשרי שמחלק את כל המספרים מבלי להשאיר שארית.

לשם כך אשתמש ב"לולאת איטרציה"

התחביר אומר:

עבור i = (כל מספר) עד (מספר כלשהו) שלב (מספר מצטבר)

(פוּנקצִיָה)

הַבָּא

מכיוון שאני לא יכול לחלק ב 0 אצטרך להתחיל מ -1 ולמספר הפחות. הסיבה לכך היא ש- HCF אינו יכול להיות גדול יותר מכל המספרים. אם אתה זוכר שמרנו את המספר הקטן ביותר במשתנה 'TEMP'.

כדי להשוות את המספרים נשתמש במשפט if.

למשימה זו נשתמש גם באופרטור מיוחד הנקרא אופרטור מודולוס

זה מחזיר את היתר מחטיבה

התחביר שלו הוא

(מספר) mod (מחלק)

בשפות תכנות אחרות, כלומר C ++, ניתן להחליף את mod בסימן האחוז '%'

אז לתוכנית שלנו אנו כותבים

עבור i = 1 ל- TEMP שלב 1

אם ((firstNum Mod i = 0) ו- (secondNum Mod i = 0)) ואז

HCF = i

סוף אם הבא

אנו מאחסנים את המספרים במשתנה "HCF" בכל פעם שנמצא משתנה גדול יותר HCF מוחלף

אם i אם גורם של שני המספרים אז הוא מאוחסן במשתנה HCF

שלב 5: הצגת פלט

כדי להציג פלט במסך הקונסולה, אנו משתמשים בפקודה "console.write ()" או "console.writeline ()"

כלל אצבע חשוב הוא שמילים כתובות חייבות להיות מצורפות באפוסטרופים (""). אין צורך להקיף משתנים באפוסטרופים

אנו יכולים גם להשתמש באופרטור "&" כדי לחבר קווים זכור להציב רווח משני צידי הסמל &

כך התוכנית הולכת

Console. WriteLine ("הגורם השכיח הגבוה ביותר הוא" ו- HCF)

אבוי המחשב בדרך כלל לא מחכה למשתמש אלא אם נאמר לו. אז אנו מוסיפים שורת תכנית נוספת כדי לאפשר למשתמש לקרוא את התוצאה.

Console. WriteLine ("לחץ על כל כפתור ליציאה")

Console. ReadKey ()

שלב 6: להקל

זו הגרסה שלי של התכנות עם הערות לעזרה.

מודול מודול 1 תת ראשי ()

'בכל תוכנית עלינו להכריז על משתנים

Dim firstNum, secondNum, TEMP, HCF כמספר שלם "כמספר שלם" מסמל שאופי הנתונים של משתנים אלה הם מספרים שלמים

'ראשית אנו מודיעים למשתמש על ההוראות

Console. WriteLine ("הזן שני מספרים עבור הגורם המשותף הגבוה ביותר") 'ואז אנו מבקשים מהמשתמש להזין מספר Console. WriteLine ("הזן מספר ראשון")' אנו מאחסנים את הספרה במשתנה firstNum firstNum = Console. ReadLine ' לאחר מכן אנו מבקשים מהמשתמש להזין מספר שני Console. WriteLine ("הזן מספר שני") 'באופן דומה אנו שומרים אותו גם כן, אך במשתנה אחר' איננו רוצים שהראשון יוחלף secondNum = Console. ReadLine

'אנו משווים מי מהם גדול יותר ומאחסנים אותו באחסון זמני "TEMP"

אם firstNum secondNum ואז TEMP = secondNum

בסעיף שמתחת שמרנו ערך ב- TEMP למרות שהמספר הראשון והשני היו שווים

זה בגלל שהיינו צריכים את המספר ה"גבוה ביותר "של כל מה שזה לא יהיה.

ElseIf firstNum = secondNum ואז

TEMP = secondNum End If

'כאן באמת מתחיל התכנות

'פונקציית mod מחלקת את המספר השלם במספר ומחזירה את השאר' זה שימושי, באופן זה נוכל לבדוק לפי אילו מספרים הם שאריות האפס

'כאן אנו משתמשים ב- "FOR LOAT ITERATION" לביצוע העבודה

'אנו יוצרים משתנה' i 'ומגדילים אותו ב -1 אחרי כל לולאה

עבור i = 1 ל- TEMP שלב 1 '' שלב 1 '' מראה שיש תוספת של 1 אחרי כל לולאה

כפי שאתה יכול לראות השתמשנו גם בפונקציית AND

'זה בגלל שהיינו צריכים רק מספרים שמחלקים את שני המשתנים ומעניקים את שארית האפס

הערה חשובה נוספת היא שאיננו יכולים להתחיל i ב 0

הסיבה לכך היא שכל דבר המחולק ב -0 עלול להוביל לאינסוף אם ((firstNum Mod i = 0) ו- (secondNum Mod i = 0)) ואז

"אנו מאחסנים את המספרים במשתנה" HCF"

'בכל פעם שנמצא משתנה גדול יותר HCF מוחלף HCF = i End If Next

Console. Clear () 'פקודה זו מנקה כל מה שנכתב במסך הקונסולה

Console. WriteLine ("גורם המשותף הגבוה ביותר =" & HCF) 'פקודה זו מציגה הודעה במסך הקונסולה

'הפקודות מתחת מאפשרות יציאה ממסך הקונסולה

Console. WriteLine () Console. WriteLine ("לחץ על כל כפתור ליציאה") Console. ReadKey ()

'נ.ב

'בזמן התכנות, כל עוד אתה לא הורס את התחביר' אתה רשאי לשים רווחים, כרטיסיות או שורות ריקות כדי לגרום לתוכנית להיראות פחות מבולגנת

סיום תת

מודול סיום