Студопедия

КАТЕГОРИИ:

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



Sub CommandButton1_Click()




Dim x As Single, y As Single

'Ввод исходных данных

x = Val(InputBox("Ввелите x "))

'Проверка условия и расчет значений

If x < 0 Then y = x + 2 Else If x <= 5 Then y = Sqr(5 * x) Else y = x ^ 2

MsgBox (y) 'Вывод результата

End Sub

Пример 4. Написать программу вычисления значений y и w.

Если х < 5, то y=sin2x, w=ctgx; если х ³ 5, то y=1-sinx, w=arctgx. Значение х={9; 0.1; -4; 5; 12}

Private Sub CommandButton1_Click()

Dim x As Single, y As Single, z As Single

Dim w As Single, I As Integer

For i=1 to 5

x = Val(InputBox("Введите значение х"))

'Проверка условий и расчет значений

If x > 5 Then

y = Sin(x)^2

w = cos(x)/sin(x)

Else

y = 1 - Sin(x)

w = Atn(x)

End If

MsgBox (“x=” & x & “ y=” & y & “ w=” & w)

Next

End Sub

Задание для выполнения

Составить программы по условиям задач, приведенным в таблице.

 

Формула для вычислений Исходные данные
 
 
 
 
 
   
   
 
 
 
 
 
 
t = 1.54(0.2)2.5 N =4
x=3.7 y=2(0.5)4

 


Дата добавления: 2015-09-13; просмотров: 3; Нарушение авторских прав







lektsii.com - Лекции.Ком - 2014-2021 год. (0.007 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав
Главная страница Случайная страница Контакты