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

ВЫПОЛНЕНИЕ ПРАКТИЧЕСКИХ ЗАДАНИЙ ПО ДИСЦИПЛИНЕ Информационные технологии в юридической деятельности. Группа 21Ю291 Студент З.М. Шибзухова

МОСКВА 2023Задание 1Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 км/ч, в гору – v2 км/ч, под гору – v3 км/ч и в подъем – v4 км/ч. Время движения соответственно t1 , t2 , t3 и t4 ч. Какой путь прошел пешеход?Задание: Написать алгоритм и программу.Текстовый алгоритм:1. Ввести v1, v2, v3, v4 t1, t2, t3, t42. 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 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, то у := -х2. 3. Иначе, если x < 0, то y:=x⁴+1.4. Иначе y:=x+25. Вывести y6. Конец

---

Листинг программы:
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

---

Смотрите также файлы

• Мария ди Фреда.docx

• Вопросы к устным ответам на экзамене во 2 семестре.pdf

• Право на благоприятную окружающую среду и способы его защиты. Экологические правонарушения.docx

• Развитие педагогического мастерства педагога.doc

• Разработка бизнесплана кофейня Coffito.pptx