კვადრატული განტოლება არის მეორე ხარისხის მრავალწევრი, რომელსაც აქვს ფორმა "ax^2 + bx + c = 0". "a", "b" და "c" არის მუდმივები და "x" არის ცვლადი. როდესაც თქვენ ამოხსნით კვადრატულ განტოლებას, უნდა გქონდეთ მუდმივების მნიშვნელობები და ამოხსნათ x, რომელიც ყოველთვის იძლევა ორ მნიშვნელობას, რომელსაც ეწოდება "ფესვები". In Visual Basic, შეგიძლიათ დაწეროთ პროგრამა ან ფუნქცია, რომელიც მოუწოდებს მომხმარებელს შეიყვანოს a, b და c მნიშვნელობები, იპოვოს ფესვები და შემდეგ აჩვენოს მნიშვნელობები ფორმა.
Ნაბიჯი 1
გახსენით ახალი Visual Basic პროგრამა. ორჯერ დააწკაპუნეთ "ღილაკზე" ინსტრუმენტზე, რათა დაამატოთ Button1 ფორმაში. ორჯერ დააწკაპუნეთ "Label" ინსტრუმენტზე, რათა დაამატოთ Label1 და Label2 ფორმაში.
დღის ვიდეო
ნაბიჯი 2
ორჯერ დააწკაპუნეთ "Button1" ფორმაზე კოდის ფანჯრის გასახსნელად. ჩაწერეთ შემდეგი კოდი:
Dim a როგორც ათწილადი = InputBox("შეიყვანეთ A:") Dim b როგორც ათწილადი = InputBox("Enter B:") Dim c როგორც ათწილადი = InputBox("შეიყვანეთ C:") კვადრატული (a, b, c)
პირველი სამი ხაზი მომხმარებელს სთხოვს მუდმივების მნიშვნელობებს. შემდეგ ის უწოდებს ქვე-ს სახელწოდებით "კვადრატული" და გადასცემს მუდმივებს მას არგუმენტებად.
ნაბიჯი 3
ჩასვით კურსორი ღილაკის 1 ქვეპუნქტის გარეთ. ჩაწერეთ შემდეგი კოდი:
პირადი ქვეკვადრატი (ByVal a როგორც ათწილადი, ByVal b როგორც ათწილადი, ByVal c როგორც ათწილადი) მბზინავი ფესვები (1) როგორც სიმებიანი Dim x1, x2, დისკი როგორც ათობითი დისკი = b ^ 2 - 4 * a * c
პირველი ხაზი ქმნის კვადრატულ ქვე და იღებს სამ არგუმენტს. შემდეგ ის განსაზღვრავს მასივს ორი ელემენტით ორი ფესვისთვის. შემდეგ ის ქმნის სამ ათობითი ცვლადს და ანიჭებს დისკრიმინანტის მნიშვნელობას, რომელიც განსაზღვრავს ფესვების რაოდენობას კვადრატულ განტოლებას.
ნაბიჯი 4
ჩაწერეთ შემდეგი კოდი:
თუ დისკი >= 0 მაშინ x1 = (-b + მათემ. Sqrt (დისკი)) / (2 * ა) x2 = (-b - მათემ. Sqrt (დისკი)) / (2 * ა) ფესვები (0) = x1.ToString ფესვები (1) = x2.ToString Else ფესვები (0) = "(-" & b. ToString & "+Sqrt(" & დისკი. ToString & "))/(2_" & ა. ToString & ")" ფესვები (1) = "(-" & b. ToString & "-Sqrt(" & დისკი. ToString & "))/(2_" & ა. ToString & ")" დასასრული თუ
"თუ" ფუნქცია ამოწმებს, არის თუ არა დისკრიმინანტის მნიშვნელობა ნულის ტოლი ან მეტი, რაც ნიშნავს, რომ განტოლებას აქვს ერთი ან ორი ფესვი. შემდეგ ის ხსნის x-ს. თუ დისკრიმინანტი ნულზე ნაკლებია, განტოლებას არ აქვს რეალური ფესვები და ასრულებს "სხვა" ნაწილს, რომელიც აჩვენებს ფესვების კომპლექსურ განტოლებებს.
ნაბიჯი 5
ჩაწერეთ შემდეგი კოდი:
Label1.Text = ფესვები (0) Label2.Text = ფესვები (1) ბოლო ქვე
კოდის ეს ხაზები უბრალოდ აჩვენებს ფესვებს ლეიბლებზე და შემდეგ ხურავს Quadratic ქვე-ს კოდის ბლოკს.
ნაბიჯი 6
შეინახეთ Visual Basic პროგრამა. დააჭირეთ "F5" მის გასაშვებად.