Dim x As Single, F As Single
x = Text1.Text
If x < 0 Then
F = Sin(x)
ElseIf x >= 0 And x <= (2 * Atn(1)) Then
F = 0
Else: F = Cos(x)
End If
Text2.Text = F
End Sub
Отладочные примеры:
1. При :

2. При :

3. При :

2) Словесное описание задачи:
Вычислить значения функций и .
Состав входных и выходных данных:
Входные данные:
r; a.
Выходные данные:
; .
Математическое описание задачи:



Схема алгоритма решения задачи:

Начало

r


Да

Нет

a Конец
Листинг программы:
Private Sub Command1_Click() 1 | 2 | Поиск по сайту:
|