ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 17.03.2024
Просмотров: 26
Скачиваний: 0
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Автономная некоммерческая организация высшего образования «МОСКОВСКИЙ МЕЖДУНАРОДНЫЙ УНИВЕРСИТЕТ» |
Менеджмент, Менеджмент организации Форма обучения: заочная |
ВЫПОЛНЕНИЕ
ПРАКТИЧЕСКИХ ЗАДАНИЙ
ПО ДИСЦИПЛИНЕ
Электронный бизнес и Интернет-технологии
Группа Го21М571
Студент
А.И. Нурмухан
МОСКВА 2023
Содержание
ПЗ 9. Задание 1 3
Задание 2 5
Задание 3 7
ПЗ 9. Задание 1
Условие задания:
Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 км/ч, в гору – v2 км/ч, под гору – v3 км/ч и в подъем – v4 км/ч. Время движения соответственно t1, t2, t3 и t4 ч. Какой путь прошел пешеход?
Текстовый алгоритм:
1. Ввести v1, v2, v3, v4, t1, t2, t3, t4.
2. 1 := v1*t1.
3. S2 := v2*t2.
4. S3 := v3*t3.
5. S4 := v4*t4.
6. S := S1 + S2 + S3 + S4.
7. Вывести значение S.
8. Конец.
Листинг программы:
Private Sub CommandButton1_Click()
Dim v1, v2, v3, v4, t1, t2, t3, t4, s1, s2, s3, s4, s As Double
v1 = Worksheets("Лист1").Cells(2, 2)
v2 = Worksheets("Лист1").Cells(3, 2)
v3 = Worksheets("Лист1").Cells(4, 2)
v4 = Worksheets("Лист1").Cells(5, 2)
t1 = Worksheets("Лист1").Cells(2, 4)
t2 = Worksheets("Лист1").Cells(3, 4)
t3 = Worksheets("Лист1").Cells(4, 4)
t4 = Worksheets("Лист1").Cells(5, 4)
s1 = v1 * t1
s2 = v2 * t2
s3 = v3 * t3
s4 = v4 * t4
s = s1 + s2 + s3 + s4
Worksheets("Лист1").Cells(6, 2) = s
End Sub
Результат работы программы:
Задание 2
Условие задания:
Вычислить значение функции:
Текстовый алгоритм:
1. Ввести х.
2. Если х <= -10, то у := -х2.
3. Иначе, если x<0, то y := x4+1.
4. Иначе y := x+2.
5. Вывести у.
6. Конец.
Листинг программы:
Private Sub CommandButton2_Click()
Dim x, y As Double
x = Worksheets("Лист1").Cells(8, 2)
If x <= -10 Then
y = -x * x
ElseIf x < 0 Then
y = x ^ 4 + 1
Else
y = x + 2
End If
Worksheets("Лист1").Cells(9, 2) = y
End Sub
Результат работы программы:
Задание 3
Условие задания:
Найти максимум из пяти введенных чисел.
Текстовый алгоритм:
1. Ввести числа a, b, c, d, e.
2. Сравнить a, b и c. Если a >= b и a >= c, то max1 := a.
3. Иначе, если b >= c, то max1 := b.
4. Иначе max1 := c.
5. Сравнить max1, d и e. Если max1 >= d и max1 >= e, то max := max1.
6. Иначе, если d >= d, то max := d.
7. Иначе max := e.
8. Вывести max.
9. Конец.
Листинг программы:
Private Sub CommandButton3_Click()
Dim a, b, c, d, e, max1, max As Double
a = Worksheets("Лист1").Cells(11, 2)
b = Worksheets("Лист1").Cells(11, 4)
c = Worksheets("Лист1").Cells(11, 6)
d = Worksheets("Лист1").Cells(11, 8)
e = Worksheets("Лист1").Cells(11, 10)
If a >= b And a >= c Then
max1 = a
ElseIf b >= c Then
max1 = b
Else
max1 = c
End If
If max1 >= d And max1 >= e Then
max = max1
ElseIf d >= e Then
max = d
Else
max = e
End If
Worksheets("Лист1").Cells(12, 2) = max
End Sub
Результат работы программы: