|
| [ На главную ] -- [ Список участников ] -- [ Зарегистрироваться ] |
| On-line: |
| Форум программистов и просто хороших людей! / / Помогите, пожалуйства! |
| Страницы: 1 |
|
| Автор | Сообщение |
|
Глупышка |
Добавлено: 25-02-2006 16:43 |
|
Здравствуйте, форумчане! =))) У меня проблема... Написала прогу в Visual Basic (через Exel), а она почему то не работает. Я новечок а этом деле.. Ничё не понимаю... Помогите, пожалуйства, разобраться... :) Это программа для решения квадратных уравнений. Sub прим5() Dim a, b, c, x1, x2, x As Double a = CInt(InputBox("введите чило")) b = CInt(InputBox("введите число")) c = CInt(InputBox("введите число")) d = b ^ 2 - 4 * a * c If d < 0 Then MsgBox "нет решений" ElseIf d > 0 Then x1 = (-b + Spr(d)) / 2 * a x2 = (-b - Spr(d)) / 2 * a MsgBox "Ответ: x1= " & "Ответ: X2= " Else: d = 0 x = -b / 2 * a MsgBox "Ответ: x= " End If End Sub 
|
| Страницы: 1 |
|
| Форум программистов и просто хороших людей! / / Помогите, пожалуйства! |