Задача 4.

В прикладном программном продукте Word разработать макрос с именем “PR12”, обеспечивающий выполнение следующих действий.

Ввести три числа, определяющие размер отрезков. Определить, можно ли из данных отрезков составить треугольник. Если "Да", то проверить будет ли треугольник прямоугольным.

Решение.

Sub pr12()

Dim A As Integer

Dim B As Integer

Dim C As Integer

A = InputBox("Введите размер первого отрезка")

B = InputBox("Введите размер второго отрезка")

C = InputBox("Введите размер третьего отрезка")

If (A < B + C) And (B < A + C) And (C < A + B) Then

MsgBox "Треугольник можно построить"

If (A * A = B * B + C * C) Or (B * B = A * A + C * C) _

Or (C * C = A * A + B * B) Then

MsgBox "Треугольник прямоугольный"

Else

MsgBox "Треугольник не прямоугольный"

End If

Else

MsgBox "Треугольник нельзя построить"

End If

End Sub

Примечание.

1. Тестовые примеры.

Набираемые числа:

10 5 9

Результат

Треугольник можно построить

Треугольник не прямоугольный

Набираемые числа:

6 10 8

Результат

Треугольник можно построить

Треугольник прямоугольный

Набираемые числа:

26 7 10

Результат

Треугольник нельзя построить

Задача 5

В прикладном программном продукте Word разработать макрос с именем “PR13”, обеспечивающий выполнение следующих действий.

Ввести два числа. Если первое число окажется больше второго числа, то обменять их значения. Выдать сообщение «Был выполнен обмен» или «Обмена не было». Выдать новые значения чисел.

Решение.

Sub pr13()

Dim A As Integer

Dim B As Integer

Dim W As Integer

A = InputBox("Введите первое число")

B = InputBox("Введите второе число")

If A > B Then

W = A: A = B: B = W

MsgBox "Был выполнен обмен"

Else

MsgBox "Обмена не было"

End If

MsgBox A, , "Первое число"

MsgBox B, , "Второе число"

End Sub

Примечание.

1. Для реализации обмена используется рабочая переменная «W».

2. Тестовый пример:

Набираемые числа:

10 8

Результат

Был выполнен обмен

8 10

Набираемые числа:

7 9

Результат

Обмена не было

7 9

Задача 6.

В прикладном программном продукте Word разработать макрос с именем “PR14”, обеспечивающий выполнение следующих действий.

Ввести четыре числа. Определить: есть ли среди них число, на которое три остальных можно разделить без остатка?

Решение.

Sub pr14()

Dim A As Integer

Dim B As Integer

Dim С As Integer

Dim D As Integer

Dim FL As Boolean

A = InputBox("Введите первое число")

B = InputBox("Введите второе число")

C = InputBox("Введите третье число")

D = InputBox("Введите четвертое число")

FL = False

If (B Mod A = 0) And (C Mod A = 0) And (D Mod A = 0) Then

FL = True

End If

If (A Mod B = 0) And (C Mod B = 0) And (D Mod B = 0) Then

FL = True

End If

If (A Mod C = 0) And (B Mod C = 0) And (D Mod C = 0) Then

FL = True

End If

If (A Mod D = 0) And (C Mod D = 0) And (B Mod D = 0) Then

FL = True

End If

If FL = True Then

MsgBox "Да"

Else

MsgBox "Нет"

End If

End Sub

Примечание.

Тестовый пример.

Набираемые числа:

20 45 5 15

Результат

Да

Набираемые числа:

10 20 4 30

Результат

Нет