Текст задания

1. Даны числа X и Y. Вычислить Z= f(T,P) (Линейный алгоритм)

T= Sin(x+y);   P= x  ;   Z=P*T

2. Даны числа А,В,С.  Если их среднее арифметическое больше А - вычислить А-5, в противном случае вычислить сумму В+С.  Полученный результат вывести. (Разветвленный алгоритм)

Исходный код программы для задания 1

Sub Кнопка3_Щелчок()
Dim P As Single, T As Single, Z As Single, X As Single, Y As Single
X = InputBox("Введите X")
Y = InputBox("Введите Y")
T = Sin(X + Y)
P = X * Sqr(X + Y)
Z = P * T
MsgBox (Z)
End Sub

Блок-схема алгоритма для задания 1

Исходный код программы для задания 2

Sub Кнопка2_Щелчок()
Dim A As Single, B As Single, C As Single, Sr As Single
A = InputBox("Введите A")
B = InputBox("Введите B")
C = InputBox("Введите C")
Sr = (A + B + C) / 3
If Sr > A Then
   MsgBox (A - 5)
   Else
   MsgBox (B + C)
End If
End Sub

Блок-схема алгоритма для задания 2

Также Вы можете скачать готовое решение в Excel.