лабораторные по VBA. 2. Математическая постановка задачи

• Название: 2. Математическая постановка задачи
• Дата: 05.02.2022
• Размер: 101.47 Kb.
• Имя файла: лабораторные по VBA.docx
• Тип: Документы; #352295

МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Государственное бюджетное образовательное учреждение

высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»

Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»

Дисциплина: «Информатика»

О Т Ч Е Т

по лабораторной работе № 5

«СТРУКТУРА РАЗВИЛКА»

Вариант 13

Выполнил студент Поляков Д.

Факультета БФО

Группы УПП-924

Санкт-Петербург

2020

1.Описание задач

Даны две функции. Построить код в VBA в котором, если х меньше или равен 0 будет выводится результат по первой функции, а если х больше 0, то по второй. В обоих функциях по 2 переменных в первой переменные х и b во второй x и a все являются переменными вещественного типа. ТО есть x, a, b переменные входные данные, а у переменные выходные данные.

2.Математическая постановка задачи



Y= x ;

x>0;

3.Разработка алгоритма

Начало

x

ДА

x y=



НЕТ

Y=



a, b, x, y



Конец

4.Разработка визуальной части программы

5.Код приложения

Private Sub.Command1_Click()

Dim x as single, y as single

Const a=0.1

Const b=10

X=Val (Textbox1.Text)

If x Then

Y=3*x^2/(LOG(b)/LOG(10)+x^2)

Else

If x>0 Then

Y=SQR(1+2*x/a)

End if

End if

Listbox1.AddItem y

End Sub

6. Отладка программы

При х меньше или равно нулю при х больше нуля



Код программы



Проверка на калькуляторе при х=-2, у=3*(-2)^2/((Log(10)/Log(10)+(-2^2)=12/5=2/4

Проверка на калькуляторе при х=2, у=sgr(1+2*2/0.1)=sqr(41)=6.4

Задание .2



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

По графику построить код структуры развилка. На графике видно что если х< -6.3 и х>3.2 то у=x*SIN(x), а если х>-6.3 но x<3.2 тогда y=COS(x). Вводные данные это х аргумент функции переменная вещественного типа и выходные данные это у значение функции, переменная ,вещественного типа.

2.Математическая постановка задачи



X*SIN(x) x

Y= COS(x) x>-6.3 и x < 3.2

3.Разработка алгоритма

Начало

Х

ДА

-6.3
НЕТ

Y=x*SIN(x)



Y, X

Конец

4.Код приложения

Private Sub CommandButton1_Click()

Dim x As Single, y As Single

x = Val(Textbox1.Text)

If x <= -6.3 And x >= 3.2 Then

y = x * Sin(x)

Else

If x > -6.3 And x < 3.2 Then

y = Cos(x)

End If

End If

Listbox1.Additem y

End Sub

5 .Отладка программы



6.Код программы




7.Проверка на калькуляторе

У=COS(-6)=0.96

Y=6*SIN(6)=-1.67