Задача 1. Составить программу вычисления и печати r по формулепри произвольных значениях x,y.Решение

1. 
   Тест для отладки в MathCad:
   

2. 
   Исходные данные: x=4 y=2; x=6 y=12; x=-2 y=0.
   
3. 
   Блок-схема
   

4. 
   Текст программы
   

Public Sub Задача2()Dim r As Double, x As Double, y As Doublex = Val(InputBox("Введите значение", " ввод x"))y = Val(InputBox("Введите значение", " ввод y"))If x > y Thenr = Atn(y / x)ElseIf (x <= y) And (y > 1) Thenr = y - xElse: r = x / (1 + y^2)End IfMsgBox ("r=" & Str(Round(r, 3)))End Sub

5. 
   Вид печати:
   

Рис. 1 Результат работы программыЗадача 2. Разработать пользовательскую форму для вычисления значений переменной y:

1. 
   Тест для отладки программы в MathCad:
   

2. 
   Исходные данные: x = -7; x = 4;
   
3. 
   Текст программы
   

Private Sub CommandButton1_Click()Dim x As SingleDim y As SingleDim qv As Singlex = Val(TextBox1.Text)If x <= 0 Theny = 3 * Sin(x) ^ 2 - Cos(x)Elseqv = x * xy = Sqr(2 + qv)End IfTX = Round(y, 2)TextBox2.Text = TXEnd SubPrivate Sub CommandButton2_Click()TextBox1.Text = ""TextBox2.Text = ""End Sub

4. 
   Пользовательская форма для приложения:
   

Рис. 2 Пользовательская форма

5. 
   Готовое приложение для задачи 2:
   

---

Рис. 3 Форма с рабочей программойЗадача 3Вычислить при заданных значениях x. Напечатать значения a, b, c и p.Решение

1. 
   Расчетные формулы:
   
2. 
   
   
3. 
   Тест для отладки программы в MathCad:
   

4. 
   Исходные данные: x = 4
   
5. 
   Текст программы:
   

Public Sub Задача3()Dim p As Single, x As Single, a As Single, b As Single, c As Singlex = Val(InputBox("Введите значение", " ввод x"))a = Exp(-x)b = x * a + 3c = 3 * a + xIf b >= c Thenp = bElsep = cEnd IfMsgBox ("x=" + Str(x) + " b=" + Str(Round(b, 3)) + " c=" + Str(Round(c, 3)) + " p=" + Str(Round(p, 3)))End Sub

6. 
   Вид печати:
   

Рис. 4 Результат вычисленияЗадача 4 Разработать программу, которая вычисляет для целых значений аргумента одну из заданных функций в указанной точке. Напечатать данные значения.а) если х равен -8,0,7, то y=x²;б) если х равен 1,2,3,4,5,6, то ;в) если х равен 7,8,9,10,11, то ;г) в остальных случаях y=3+x+cosx.Решение

1. 
   Тест для отладки программы:
   

2. 
   Исходные данные: Расчеты провести для точек -10, -8, 6, 11, 15.
   
3. 
   Текст программы:
   

Public Sub Задача4()Dim x As Integerx = InputBox("Введите число")Select Case xCase -8, 0, 7y = x * xCase 1 To 6y = (3 + x) ^ (1 / 3)Case 7 To 11y = Tan(1 / (3 + x))Case Elsey = 3 + x + Cos(x)End Select

---

MsgBox ("x=" + Str(x) + " y=" + Str(Round(y, 2)))End Sub

4. 
   Вид печати:
   

Рис. 5 Результат вычисления

---

Смотрите также файлы

• Статья xlvii салической правды.doc

• Решение Находим частную производную по аргументу х, считая, что у const (постоянная).docx

• Конспект урока в 4 классе Дата 11 марта 2023 г. Автор учитель мкоу чистопольской сош максименко М. Г. Тема Дружба.docx

• Виды открытых валютных позиций.docx

• Машины переменного тока.docx