Задача 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 Double

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

y = Val(InputBox("Введите значение", " ввод y"))

If x > y Then

r = Atn(y / x)

ElseIf (x <= y) And (y > 1) Then

r = y - x

Else: r = x / (1 + y^2)

End If

MsgBox ("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 Single

Dim y As Single

Dim qv As Single

x = Val(TextBox1.Text)

If x <= 0 Then

y = 3 * Sin(x) ^ 2 - Cos(x)

Else

qv = x * x

y = Sqr(2 + qv)

End If

TX = Round(y, 2)

TextBox2.Text = TX

End Sub

Private 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 Single

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

a = Exp(-x)

b = x * a + 3

c = 3 * a + x

If b >= c Then

p = b

Else

p = c

End If

MsgBox ("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 Integer

x = InputBox("Введите число")

Select Case x

Case -8, 0, 7

y = x * x

Case 1 To 6

y = (3 + x) ^ (1 / 3)

Case 7 To 11

y = Tan(1 / (3 + x))

Case Else

y = 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