Вычисление дискриминанта и его корней

Консольный вариант вычисления дискриминанта и его корней на Visual Basic.NET и C#

Формовый вариант

Module Module1
    Sub Main()
        Disc() 'при запуске, вызываем процедуру ↓
    End Sub
    Sub Disc()
        Dim a, b, c, x1, x2, D As Double
        'ввод значений
        Console.WriteLine("Введите значение переменной A")
        a = Console.ReadLine()
        Console.WriteLine("Введите значение переменной B")
        b = Console.ReadLine
        Console.WriteLine("Введите значение переменной C")
        c = Console.ReadLine()
        D = b ^ 2 - (4 * a * c) 'вычисление дискриминанта
        Console.WriteLine("Дискриминант = " & D)
        'два корня
        If D > 0 Then
            Console.WriteLine("Два корня:")
            x1 = (-b + Math.Sqrt(D)) / (2 * a)
            x2 = (-b - Math.Sqrt(D)) / (2 * a)
            Console.WriteLine("X1 = " & x1 & vbNewLine & "X2 = " & x2)
            'один корень
        ElseIf D = 0 Then
            Console.WriteLine("Один корень:")
            x1 = -b / (2 * a)
            Console.WriteLine("X = " & x1)
            'нет корней
        Else
            Console.WriteLine("Нет корней")
        End If
        'сообщение, если захотим решить новое уравнение - нужно нажать клавишу Enter
        Console.WriteLine("Решить новое? Нажмите клавишу Enter...")
        Dim k As ConsoleKeyInfo = Console.ReadKey
        If k.Key = ConsoleKey.Enter Then
            Console.Clear()
            Disc()
        End If
    End Sub
End Module

discr 300x178 Вычисление дискриминанта и его корней

Дискриминант.zip

  Метки: , ,
  Евгений
  Просмотров: 3 894
  Запись опубликована в 12:40

Есть что сказать? Тогда действуй!


:wink: :twisted: :roll: :oops: :mrgreen: :lol: :idea: :evil: :cry: :arrow: :?: :-| :-o :-P :-D :-? :) :( :!: 8-O 8)