משוואה ריבועית היא פולינום מדרגה שנייה שיש לו את הצורה "ax^2 + bx + c = 0." ה-"a", "b" ו-"c" הם הקבועים ו-"x" הוא המשתנה. כאשר אתה פותר משוואה ריבועית, אתה חייב לקבל את ערכי הקבועים ולפתור את x, שתמיד מניב שני ערכים, הנקראים "שורשים". ב Visual Basic, אתה יכול לכתוב תוכנית או פונקציה שמבקשים מהמשתמש להזין את ערכי a, b ו-c, למצוא את השורשים ולאחר מכן להציג את הערכים ב- טופס.
שלב 1
פתח תוכנית Visual Basic חדשה. לחץ פעמיים על הכלי "כפתור" כדי להוסיף לחצן1 לטופס. לחץ פעמיים על הכלי "תווית" כדי להוסיף Label1 ו-Label2 לטופס.
סרטון היום
שלב 2
לחץ פעמיים על "כפתור 1" בטופס כדי לפתוח את חלון הקוד. הקלד את הקוד הבא:
Dim a As Decimal = InputBox("Enter A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") ריבועי (a, b, c)
שלוש השורות הראשונות מבקשות מהמשתמש את ערכי הקבועים. לאחר מכן הוא קורא למשנה בשם "ריבועית" ומעביר אליו את הקבועים כטיעונים.
שלב 3
הכנס את הסמן מחוץ לסאב Button1. הקלד את הקוד הבא:
פרטי תת ריבועי (ByVal a כעשרוני, ByVal b כעשרוני, ByVal c כעשרוני) שורשים עמומים (1) כמחרוזת Dim x1, x2, דיסק כדיסק עשרוני = b ^ 2 - 4 * a * c
השורה הראשונה יוצרת את המשנה ריבועית ומקבלת שלושה ארגומנטים. לאחר מכן הוא מגדיר מערך עם שני פריטים עבור שני השורשים. לאחר מכן הוא יוצר שלושה משתנים עשרוניים ומקצה את הערך של המבחין, שקובע את מספר השורשים שיש למשוואה הריבועית.
שלב 4
הקלד את הקוד הבא:
אם דיסק >= 0 אז x1 = (-b + Math. Sqrt (דיסק)) / (2 * a) x2 = (-b - מתמטיקה. Sqrt (דיסק)) / (2 * א) שורשים (0) = x1.שורשי ToString (1) = x2.ToString שורשים אחרים (0) = "(-" ו-b. ToString & "+Sqrt(" & דיסק. ToString & "))/(2_" & a. ToString & ")" שורשים (1) = "(-" & b. ToString & "-Sqrt(" & דיסק. ToString & "))/(2_" & a. ToString & ")" סוף אם
הפונקציה "אם" בודקת אם הערך של המבחין גדול או שווה לאפס, מה שאומר שלמשוואה יש שורש אחד או שניים. לאחר מכן זה פותר עבור x. אם המבחין קטן מאפס, למשוואה אין שורשים אמיתיים והחלק "אחר" מבצע, שמציג את משוואות השורשים המורכבות.
שלב 5
הקלד את הקוד הבא:
Label1.Text = roots (0) Label2.Text = roots (1) End Sub
שורות קוד אלו פשוט מציגות את השורשים על התוויות ולאחר מכן סוגרות את גוש הקוד של המשנה המרובעת.
שלב 6
שמור את תוכנית Visual Basic. לחץ על "F5" כדי להפעיל אותו.
