Файл: Практических заданий по дисциплине информационные технологии в менеджменте.docx

Автономная некоммерческая организация высшего образования «МОСКОВСКИЙ МЕЖДУНАРОДНЫЙ УНИВЕРСИТЕТ»

Кафедра экономики и управления Форма обучения: заочная

ВЫПОЛНЕНИЕ ПРАКТИЧЕСКИХ ЗАДАНИЙПО ДИСЦИПЛИНЕИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ В МЕНЕДЖМЕНТЕГруппа КгГ22М511вСтудентБаранов Андрей АлександровичМОСКВА 2022Содержание

ПЗ 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 Doublev1 = 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 * t1s2 = v2 * t2s3 = v3 * t3s4 = v4 * t4s = s1 + s2 + s3 + s4Worksheets("Лист1").Cells(6, 2) = sEnd SubРезультат работы программы:

Задание 2

Условие задания: Вычислить значение функции:Текстовый алгоритм: 1. Ввести х.2. Если х <= -10, то у := -х².3. Иначе, если x<0, то y := x

---

⁴+1.4. Иначе y := x+2.5. Вывести у.6. Конец.Листингпрограммы: Private Sub CommandButton2_Click()Dim x, y As Doublex = Worksheets("Лист1").Cells(8, 2)If x <= -10 Theny = -x * xElseIf x < 0 Theny = x ^ 4 + 1Elsey = x + 2End IfWorksheets("Лист1").Cells(9, 2) = yEnd 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 Doublea = 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 Thenmax1 = aElseIf b >= c Thenmax1 = bElsemax1 = cEnd IfIf max1 >= d And max1 >= e Thenmax = max1ElseIf d >= e Thenmax = dElsemax = eEnd IfWorksheets("Лист1").Cells(12, 2) = maxEnd SubРезультат работы программы:

---