Информационные технологии в менджменте. Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 кмч, в гору v2 кмч, под гору v3 кмч и в подъем v4 кмч. Время движения соответственно t1, t2, t3 и t4 ч. Какой путь прошел пешеход
 Скачать 43.41 Kb.
|
ВЫПОЛНЕНИЕ ПРАКТИЧЕСКИХ ЗАДАНИЙ ПО ДИСЦИПЛИНЕ Информационные технологии в менеджменте _____________________________________________________ Группа ММ20М471 Студент К.В. Редько МОСКВА 2021 Задание 1 Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 км/ч, в гору – v2 км/ч, под гору – v3 км/ч и в подъем – v4 км/ч. Время движения соответственно t1 , t2 , t3 и t4 ч. Какой путь прошел пешеход?  Задание: Написать алгоритм и программу. Текстовый алгоритм: 1. Ввести v1, v2, v3, v4 t1, t2, t3, t4 2. S1 := v1*t1. 3. S2 := v2*t2. 4. S3 := v3*t3. 5. S4:=v4*t4. 6. S := S1 + S2 + S3 + S4. 7. Вывести значение S. 8. Конец. Листинг программы: Sub rasstojanie() 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. Вывести y 6. Конец Листинг программы: Sub uravnenie() 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. max := 0. 3. Сравнить a, b. Если a > b, то max := a. Иначе max := b. 4. Сравнить max c с Если c > max, то max := c 5. Сравнить max c d Если d > max, то max := d 6. Сравнить max c e Если e > max, то max := e 7. Вывести max. 8. Конец. Листинг программы: Sub max() Dim a, b, c, d, e, 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 Then max = a Else max = b If c > max Then max = c If d > c Then max = d If e > d Then max = e End If Worksheets("Лист1").Cells(12, 2) = max End Sub |