02 семестр / Лабораторные работы / РГР и Лабы разных вариантов / РГР все 2 вариант / РГР№3 / Word РГР№3

РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №3

Программирование алгоритмов циклической структуры с заданным числом повторений.

1.Постановка задачи

Составить алгоритм и программу для вычисления значения функции Y при заданном значение аргумента X и законе изменения аргумента. Вывести эту форму в окна списков (ListBox) значения аргумента и функции. Для программирования циклов использовать оператор цикла с условием Do... Loop.

2.Математическая модель

y = b * Sin(x) + a * x ^ 2 + b

3.Создание формы

5.Програмный код

Option Explicit

Dim a As Single, b As Single, x As Single, y As Single

Private Sub Command1_Click()

a = Val(InputBox("a=", "Ввод данных"))

b = Val(InputBox("b=", "Ввод данных "))

For x = -3.14 To 3.14 Step 3.14 / 5

y = b * Sin(x) + a * x ^ 2 + b

List1.AddItem "x=" + Str(x) + " " + "y=" + Str(y)

Next x

End Sub

Private Sub Command2_Click()

End

End Sub

4.Блок- схема

Начало

Ввод a,b

X=-

y = b * Sin(x) + a * x ^ 2 + b

Добавляем в ListBox x,y

Конец