КАТЕГОРИИ:
АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
|
Sub CommandButton1_Click() ⇐ ПредыдущаяСтр 2 из 2 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 Задание для выполнения Составить программы по условиям задач, приведенным в таблице.
|