Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
ернер А.Г. ЛТ-403 Вариант 6
«СТРУКТУРА РАЗВИЛКА» 3
y1 , y3
конец
k=d-3
d
начало
начало
k 10
y3 = 16,7k + 1,02 , y1=0
. y1= ak2 + bk ; y3 = a + b cosk
a , b
конец
L
L = -407,6 103 + x2 + 0,3
L=-4076 103
x = 0
L=-4076 103 + x2 - 0,3
x < 0
X
да
нет
нет
да
нет
да
“СТРУКТУРА РАЗВИЛКА”
Необходимо определить требуемые входные и выходные данные , для вычисления предложенных функций составить схемы алгоритмов и программы решения задач. Предусмотреть печать всех входных и выходных данных.
Подготовить контрольные варианты, самостоятельно выбрать значение входных данных, отладить программы.
Задание 1.
1. Постановка задачи.
1.1. Определение состава входных данных:
a,b,d - вещественного типа
1.2. Определение состава выходных данных:
. y1,y3 - вещественного типа
2. Построение математической модели задачи.
2.1. Математическая формулировка задачи:
. y1= ak2 + bk ; y3 = a + b cosk , если k 10
y3 = 16,7k + 1,02 , y1=0 , если k > 10 ,
где k = d – 3
3.Блок схема алгоритма:
4.Программирование:
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim d As Integer
a = Val(Text1)
b = Val(Text2)
d = Val(Text3)
k = d - 3
If k <= 10 Then
Y1 = a * (k ^ 2) + b * k
Y3 = a + b * Cos(k)
Else
Y3 = 16.7 * k + 1.02
Y1 = 0
End If
MsgBox ("Y1=" & Y1)
MsgBox ("Y3=" & Y3)
End Sub
5.Отладочный пример:
Задание 2.
1. Постановка задачи.
1.1. Определение состава входных данных:
x - вещественного типа
1.2. Определение состава выходных данных:
L - вещественного типа
2. Построение математической модели задачи.
2.1. Математическая формулировка задачи:
x2 - 0,3 , если x < 0
L = -407,6 103 + 0 , если x = 0
x2 + 0,3 , если x > 0
3.Блок схема алгоритма:
4.Программирование:
Private Sub Command1_Click()
Dim X As Single
Dim L As Single
X = Val(Text1)
If X < 0 Then
L = -407.6 * 10 ^ 3 + X ^ 2 - 0.3
Else
If X = 0 Then
L = -407.6 * 10 ^ 3
Else
L = -407.6 * 10 ^ 3 + X ^ 2 + 0.3
End If
End If
MsgBox ("L=" & L)
End Sub
5. Отладочный пример: