Автор работы: Пользователь скрыл имя, 18 Апреля 2013 в 10:20, контрольная работа
По заданному алгоритму (блок-схема) составить программу. a = 4, b = 7, c = 3.
Программа: Sub Задание1() Dim a, b, c, x1, x2 As Integer a = 4 b = 7 c = 3
d = b ^ 2 - 4 * a * c
If d < 0 Then MsgBox ("Нет") If d >= 0 Then
x1 = (-b + d ^ (1 / 2) * (2 * a)) x2 = (-b - d ^ (1 / 2) * (2 * a))
End If Cells(1, 2) = x1 Cells(2, 2) = x2 End Sub