Cosmo_vk
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sargento
держи, компилировано в Visual Studio, как консольное приложение:
Цитата: Module Module1
Sub Main()
Dim a, b, c, x1, x2 As Double 'значения для ввода данных и вывода результатов
Dim dd, d As Double ' хранение промежуточных результатов вычисления корня
'выводиться для справки и исключения ошибок
Console.WriteLine("Формат уравнения: ax^2 + bx + с = 0")
1:
Console.Write("Введите число а: ")
' обработка ошибок при вводе, проверяется только есть ли значение
Try
a = Console.ReadLine()
Catch
Console.WriteLine("Введите значение!")
GoTo 1 ' если нет значения, то начинаем заново. Также и для остальных
End Try
2:
Console.Write("Введите число b: ")
Try
b = Console.ReadLine()
Catch
Console.WriteLine("Введите значение!")
GoTo 2
End Try
3:
Console.Write("Введите число с: ")
Try
c = Console.ReadLine()
Catch
Console.WriteLine("Введите значение!")
GoTo 3
End Try
' Вычисление уравнения
dd = (b ^ 2) - 4 * a * c
If dd < 0 Then
' проверяем из какого числа береться корень,
'если из отрицательного, то идем в конец программы
Console.WriteLine("Корень из отрицательного числа!")
Console.WriteLine("Ответы:")
Console.WriteLine("X1 = Нет решения")
Console.WriteLine("X2 = Нет решения")
GoTo 4
Else
d = Math.Sqrt(dd)
x1 = (-(b) + d) / (2 * a)
x2 = (-(b) - d) / (2 * a)
' вывод информации: получившееся уравнение и ответы
Console.WriteLine("**********************************************************")
Console.WriteLine("Вид уравнения: " & a & "x^2 + (" & b & "x) + (" & c & ")= 0")
Console.WriteLine("**********************************************************")
Console.WriteLine("Ответы:")
Console.WriteLine("X1 = " & x1)
Console.WriteLine("X2 = " & x2)
End If
'новый ввод данных, надо ответить да
4:
Dim ans As String
Console.WriteLine("Начнем заново? [да] [нет]: ")
ans = Console.ReadLine()
If ans = "да" Then
GoTo 1
End If
End Sub
End Module |
Отредактировал свой пост, небольшой ляп был при отрицательности корня, сейчас поправил.
(19 июня 2007 г. 0:09:42)
|
Всего записей: 61 | Зарегистр. 08-06-2007 | Отправлено: 17:38 18-06-2007 | Исправлено: Cosmo_vk, 00:10 19-06-2007 |
|
не создаем дубли. При чем визуал студио и визуал бейсик