Файл: Информационные технологии в юридической деятельности.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 05.12.2023
Просмотров: 26
Скачиваний: 3
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Автономная некоммерческая организация высшего образования
«МОСКОВСКИЙ МЕЖДУНАРОДНЫЙ УНИВЕРСИТЕТ»
Кафедра юриспруденции
Форма обучения: заочная/очно-заочная
| ВЫПОЛНЕНИЕ ПРАКТИЧЕСКИХ ЗАДАНИЙ ПО ДИСЦИПЛИНЕ Информационные технологии в юридической деятельности.
| ||||||
| | ||||||
| | ||||||
МОСКВА 2023
Задание 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