Изучение алгоритма последовательной структуры. Лабораторная работа 4.02. Лабораторная работа по теме 02 Изучение алгоритма последовательной структуры

• Название: Лабораторная работа по теме 02 Изучение алгоритма последовательной структуры
• Анкор: Изучение алгоритма последовательной структуры
• Дата: 15.10.2021
• Размер: 311.4 Kb.
• Имя файла: Лабораторная работа 4.02.docx
• Тип: Лабораторная работа; #247987

Федеральное государственное образовательное бюджетное

учреждение высшего профессионального образования
Московский технический университет связи и информатики

КАФЕДРА ИНФОРМАТИКИ

ЛАБОРАТОРНАЯ РАБОТА ПО ТЕМЕ 4.02

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


Выполнил:

студент группы БИН

МОСКВА 2015 г.

1. 
   Тема и название работы
   

Основные средства языка программирования VB .NET. Типы данных.

Вычисление арифметических выражений.
2. Еремин Василий, БИН1551, вариант 11.
3. Задание на разработку проекта и вариант задания:

Решите задачу вычисления арифметических выражений в двух вариантах (два проекта) в одном решении: первый проект с неявными преобразованиями типов данных, второй – с требованием явного преобразования.


где:

x, y – исходные данные - вещественные (Double);

m, n. d – результаты вычислений, причем:

m, n - целые (Integer),

d – вещественная (Double);

[ ] целая часть числа.

4. Запись арифметических выражений, соответствующих заданным математическим формулам, по правилам VB.

d = (Sqrt(Abs(x)) + Exp(-y)) / (5.8 * Cos(y ^ 3))

m = d

n = Fix(d)

5. Разработка проекта:
5.1 Графический интерфейс пользователя:

Анализируя задание на разработку проекта, можно сделать вывод, что для организации ввода и вывода данных можно использовать три элемента управления.

Текстовое поле элемента TextBox используется как для ввода исходных данных в программу, так и для отображения результатов, получаемых в этой программе.

Элемент Label используется для размещения на форме поясняющих надписей.

Кнопка Button используется для запуска и окончания программы и инициализируется щелчком левой кнопки мыши.

5.2 Программный код проекта:

Option Strict On 'Ограничивает неявное преобразование типов данных только преобразованиями с расширением.

Option Explicit On

Imports System.Math 'Подключение математиечкой библиотеки.

Public Class Form2
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'Ввод информации о переменных.

Dim x As Double

Dim y As Double

Dim d As Double
Dim m As Integer

Dim n As Integer
'Ввод переменных.

x = CDbl(TextBox1.Text)

y = CDbl(TextBox2.Text)
'Вычисление арифметического выражения.

d = (Sqrt(Abs(x)) + Exp(-y)) / (5.8 * Cos(y ^ 3))

m = CInt(d) 'преобразование типа Double в тип Integer.

n = CInt(Fix(d)) 'вычисление целой части числа.
'Вывод результатов
TextBox3.Text = CStr(d) 'Вывод d

TextBox4.Text = CStr(Int(m))

TextBox5.Text = CStr(Int(Abs(n)))

TextBox6.Text = CStr(Int(d)) 'Округление до целого в меньшую сторону.

TextBox7.Text = CStr(Int(Abs(d))) 'округление до целого, модуль.
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

TextBox1.Clear() 'Очистка окна TextBox1.Text

TextBox2.Clear() 'Очистка окна TextBox2.Text

TextBox3.Clear() 'Очистка окна Textbox3.Text

TextBox4.Clear() 'Очистка окна TextBox4.Text

TextBox5.Clear() 'Очистка окна TextBox5.Text

TextBox6.Clear() 'Очистка окна TextBox6.Text

TextBox7.Clear() 'Очистка окна TextBox7.Text
End Sub
End Class

5.3 Алгоритм выполнения программы.

6. 
   Результат выполнения проекта
   

7. Доказательство результатов MS Excel.