Member 13730124 Ответов: 1

Создание квадратичного решателя в консольном приложении visual basic?


Привет, в настоящее время я работаю над проектом по созданию программы, управляемой меню, только с использованием кодирования в консольном приложении visual basic. Я застрял на создании квадратичного решателя, так как не знаю, с чего начать.
Я застрял на части квадратичного уравнения, любая помощь будет оценена спасибо

Что я уже пробовал:

Модуль Module1

Суб Основной()
Тусклый Выбор В Качестве Строки
- Продолжайте спрашивать, пока пользователь не введет один из следующих вариантов. (проверка данных).  
Делать
' Срочный...

Приставка.WriteLine("CS0002")
Приставка.метод WriteLine("********************************************************************")
Приставка.WriteLine("Главное Меню")
Приставка.WriteLine("1.Точность Решения")
Приставка.WriteLine ("2.квадратное уравнение")
Приставка.WriteLine("3.Интеграция По Методу Монте-Карло")
Приставка.WriteLine("4.решатель простых чисел")
Приставка.WriteLine ("5.Exit" & vbNewLine)
Приставка.WriteLine("Пожалуйста, выберите вариант из 1-5:")

Меню создается консолью.выражений WriteLine'


- Прочтите ключ. ReadKey возвращает значение ConsoleKeyInfo.  
Тусклая клавиша как ConsoleKeyInfo = консоль.ReadKey
"ConsoleKeyInfo содержит информацию о нажатой клавише.  
- KeyChar получает символ для нажатой клавиши.   
"Если пользователь нажал 1-5, то он переходит к следующему шагу
- ценность для usersChoice...  
Выберите ключ Case.Ключевой-символ
Дело "1"
Точность Вызова()
Дело "2"
Называют квадратичной()
Дело "3"
Позвони Монте()
Дело "4"
Позвоните Прайму()
Дело "5"

Выход Делать
Конец Выбрать
Приставка.метод WriteLine()
Приставка.WriteLine("нажмите любую клавишу, чтобы вернуться в меню...")
Выбор = Консоль.ReadKey(True).Ключевой-символ()
Петля
Конец Подводной Лодки
Суб Точность()
Приставка.WriteLine("Feauture не реализован")
Конец Подводной Лодки

Суб квадратичной()

Dim a, b, c, det как целое число
Dim root1, root2 как одиночный
Dim numroot как целое число

1 Ответов

Рейтинг:
2

CPallini

Это всего лишь вопрос времени

  • Перевести математические формулы в Visual Basic выражения
  • Использовать if цепочка по значению дискриминанта

напр.
det = b * b - 4 * a * c
If det < 0 Then
  ' handle complex conjugates roots
ElseIf  det = 0 Then
  ' handle one real root
Else
  ' handle two real roots
End If