Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Петербургский государственный университет путей сообщения (ЛИИЖТ)
Кафедра «Информатика и информационная безопасность»
Отчёт к лабораторной работе №2:
«Структура Развилка»
Работу выполнил Работу принял
Студент группы ЛТ-403
Подлещук М.В.
Вариант№30
Санкт-Петербург
2004
“СТРУКТУРА РАЗВИЛКА”
В каждом варианте задания необходимо определить требуемые входные и выходные данные , для вычисления предложенных функций составить схемы алгоритмов и программы решения задач. Предусмотреть печать всех входных и выходных данных.
Подготовить контрольные варианты, самостоятельно выбрать значение входных данных, отладить программы.
k + m , если k < m
1. C = 3 m , если k > m
km , если k = m
Входные данные: k, m – вещественного типа
Выходные данные: С – вещественного типа
1.1.Схема алгоритма:
1.2.Код программы:
Private Sub Command1_Click()
Dim k As Double, m As Double, C As Double
k = Val(Text1.Text)
m = Val(Text2.Text)
If k < m Then
C = k + m
ElseIf k > m Then
C = 3 * m
ElseIf k = m Then
C = k ^ m
End If
Text3.Text = Str(C)
End Sub
1.3. Отладочный пример:
2. V1 = 6,3 V2 = x t , если xt < d
V1 = Lg x V2 = Ln t , если xt d ,
где x = dt
Входные данные: d, t – вещественного типа
Выходные данные: V1, V2 – вещественного типа
2.1.Схема алгоритма:
2.2. Код программы:
Private Sub Command1_Click()
Dim V1 As Double, V2 As Double
Dim t As Double, d As Double
d = Val(Text1.Text)
t = Val(Text2.Text)
x = d * Abs(t)
If x * t < d Then
V1 = 6.3
V2 = x * t
ElseIf x * t = d & x * t = d Then
V1 = (Log(x)) / (Log(10))
V2 = Log(t)
End If
Text3.Text = Str(V1)
Text4.Text = Str(V2)
End Sub
2.3.Отладочный пример:
Начало
K^m
3*m
k + m
> m
k < m
Конец
C
k, m
Начало
d, t
x = dt
xt <d
V1 = 6,3 V2 = x t
V1 = Lg x V2 = Ln t
V1, V2
Конец
Нет
Да
Нет
Нет
Да
Да