Алгоритмизация и программирование

 

Министерство образования  и науки Российской Федерации

 

Федеральное государственное  бюджетное образовательное

учреждение высшего  профессионального образования

“Кузбасский государственный технический университет

им. Т. Ф. Горбачева”

 

Кафедра прикладных информационных технологий

 

 

 

 

 

Отчет по контрольной  работе № 2

 

Алгоритмизация и программирование

 

 

 

 

Выполнил студент группы

 

 

 

 

 

 

 

 

 

 

 

 

 

2012

 

По  заданному  алгоритму  (блок-схема)  составить  программу.                                                                              a = 4, b = 7, c = 3.

 

        Ответ./ при заданных a = 4, b = 7, c = 3 - х1=1, х2=-15

 

Программа:

 

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

 

 

 

 

По  заданному  алгоритму  определить  значение  переменной  а.

Составить блок-схему и  программу.

 

a = 20

b = a/2+1

ЕСЛИ (a > b*2) ИЛИ (b > 15) ТО

              a = a+1

ИНАЧЕ

              a = 15                                                            

КОНЕЦ ЕСЛИ

ВЫВОД а

 

                Ответ./ при заданном a = 20, а = 15.

 

 

 

 

 

 

 

 

 

Программа:

 

Sub Задание2()

Dim a, b As Integer

a = 20

b = a / 2 + 1

If a > b * 2 Then

a = a + 1

ElseIf a < b * 2 And b > 15 Then

a = a + 1

Else

a = 15

End If

MsgBox ("число à=") & a

End Sub