02 семестр / Лабораторные работы / РГР и Лабы разных вариантов / лабы / Zadanie_3

Задание 3

Вариант 6

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

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

Составить алгоритм и программу для вычисления значений функции Y при заданном диапазоне изменения аргумента X и законе изменения аргумента.

Дано: 1 ≤ x ≤ 3

Найти: y

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

, аргумент изменяется по закону , a=1,65; b=0,81; c=0,75.

Блок-схема алгоритма решения задачи

начало

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

ввод

a, b, c

x = 1

y=(1)

вывод

x, y

x = x + 0,1

конец

x > 3

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

Dim a as single, b as single, c as single, x as single, y as single

Private Sub Command1_Click()

a=val(InputBox(“введи а”,”ввод”)))

b=val(InputBox(“введи b”,”ввод”)))

c=val(InputBox(“введи c”,”ввод”)))

x=1

Do

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

List1.AddItem Str(x)

List2.AddItem Str(y)

x = x + 0,1

Loop Until x > 3

End Sub