Структура развилка / Лр Развилка

Задание №1

1) Постановка задачи Входные данные: X – вещественного типа. Выходные данные: Y – вещественного типа.

2) Математическое описание

3) Разработка алгоритма

4) Код приложения Private Sub Command1_Click() Dim X As Single, Y As Single X = InputBox("X=", "Input") If X < 0 Then Y = Log(1 + X ^ 2) Else Y = Sin(X) End If Print "X=" & X, "Y=" & Format(Y, "0.000") End Sub

5) Отладка кода приложения

6) Ручной расчёт X=3 Y=Sin(3)= 0.14112 X=-2 Y=ln(1+(-2)²)= 1.60944

Задание №2

1) Постановка задачи Входные данные: X – вещественного типа. Выходные данные: Y – вещественного типа.

2) Математическое описание

3) Разработка алгоритма

4) Код приложения Private Sub Command1_Click() Dim X As Single, Y As Single X = InputBox("X=", "Input") If X < 0 Then Y = Sin(X) Else If X > 1 Then Y = Cos(X) + 1 Else Y = 0 End If End If Print "X=" & X, "Y=" & Format(Y, "0.000") End Sub

5) Отладка кода приложения

6) Ручной расчёт X=-1,5 Y=Sin(-1,5)= -0.99749 X=0,5 Y=0 X=1,5 Y=Cos(1,5)+1= 1,07074