АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Dim x As Single, F As Single

Читайте также:
  1. Dim x As Single
  2. I’m afraid there’s been a mistake. I only asked for a single room, not a suite.
  3. The equation of Hill. Power of single reduction.

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 |

Поиск по сайту:

Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.004 сек.)