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

Задание 1

Вариант 6

Программирование алгоритмов линейной структуры

Составить алгоритм и программу для вычисления значения функции Z по формуле при заданных значениях x, y, a, b. Для ввода исходных данных и вывода значения функции на экранную форму использовать текстовые поля (TextBox).

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

Вычислить значение функции при заданных значениях.

Дано: x, y, a, b.

Найти: Z

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

начало

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

x=1,12

y=2,0

a=5,6

b=4,31

c=(1)

z=(3)

d=(2)

Вывод Z

конец

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

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

Dim Z as integer

Private Sub Command1_Click()

x=val(Text1.text)

y=val(Text2.text)

a=val(Text3.text)

b=val(Text4.text)

c= x^2*y

d=4*a*b/(x-2*y)

Z= ((EXP(c-d)- EXP(d-c))/2)/( EXP(d)+(EXP(3*c)+ EXP(-3*c))/2)+SQR(ABS(Sin(c-d)))

Text5.text=str(Z)

End Sub