Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РФ
САНКТ-ПЕТЕРБУРГСКИ-Й ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ
ПГУПС
КАФЕДРА «ИНФОРМАТИКА И ИФОРМАЦИОННАЯ БЕЗОПАСТНОСТЬ»
ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ ПО ИНФОРМАТИКЕ
“Visual Basic”
Лабораторная работа №2
Структура “ Развилка”
Вариант №17
Выполнил студент
Группы ЭС-405 Ланг А. А.
Проверил:
2004 г.
В каждом варианте задания определить требуемые входные и выходные данные, для вычисления предложенных функций составить схемы алгоритмов и программы решения задач. Предусмотреть печать всех входных и выходных данных. Подготовить контрольные варианты, самостоятельно выбрать значение входных данных, отладить программы.
2а) Математическое описание
4,1x+0,6 , если x < 0
F = d + x5 , где d = Lgx , если x > 0
ввести d , если x = 0
Private Sub Command1_Click()
Dim x As Double
Dim d As Double
Dim F As Double
x = InputBox("Введите значение x")
d = InputBox("Введите значение d")
R = False
If x <0 Then
F=4.1^(x+0.6)
Else
If x>0
F=Log(x)/Log(10)
R = True
Else
Print "d=" & d
End If
End If
If R = True Then
Print "F=" & F
End If
End Sub
5.Отладочный пример
При X>0
При X=0
2б) Математическое описание
2.1Выбор математической модели
, если x < 0
Y = x , если x 0
2.2 Входные данные: x
2.3Выходные данные: Y
3. Алгоритмизация
4. Программирование
Private Sub Command1_Click()
Dim x As Double
Dim Y As Double
x = InputBox("Введите значение x")
If x < 0 Then
Y=sqr(abs(x))
Else
Y=abs(x)
End If
Print "Y=" & Y
End Sub
5.Отладочный пример
X>0
x<0
F
конец
F= Lgx
ввести d
F=4,1x+0,6
x<0
x>0
d,x
начало
конец
Y
x
x<0
x
Начало