Информ. тех в менеджменте ММУ. Пз задание 1
Скачать 59.86 Kb.
|
ВЫПОЛНЕНИЕ ПРАКТИЧЕСКИХ ЗАДАНИЙ ПО ДИСЦИПЛИНЕ Электронный бизнес и Интернет-технологии Группа Го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 Результат работы программы: |