РГР и Лабы разных вариантов (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






Случайные файлы

Файл
30925-1.rtf
104177.rtf
38637.rtf
76192.rtf
7924-1.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.