Отчет lab 4.02

МОСКОВСКИЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ СВЯЗИ И ИНФОРМАТИКИ

КАФЕДРА ИНФОКОМУННИКАЦИОННЫЕ ТЕХНОЛОГИИ И СИСТЕМЫ СВЯЗИ

ОТЧЁТ

ПО ЛАБОРАТОРНОЙ РАБОТЕ № 4.02

по дисциплине: информатика

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

Выполнил: студент группы БИК 1504

Балябин Н.А

Проверил: Сосновников Г.К.

Москва 2015

Цель выполнения лабораторной работы состоит в изучении алфавита языка, типов данных и правил записи арифметических выражений, содержащих константы, переменные, различные арифметические действия и «встроенные» функции, ознакомлении с основными правилами преобразования типов.

Задание, вариант 2:

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

1. с неявными преобразованиями типов данных(без инструкции Option Strict On)

2. с требованием явного преобразования (с использованием инструкции Option

Strict On)

3. формулы для вычислений:

4. исходные данные:

Х= 1,674

Y= -0,533

Формализация и уточнение задания:

d = (1 - Exp(x * y)) ^ 2 / 0.7 * Log10(Abs(1 - x ^ 2))

n = Fix(d)

k = Int(d)

ВЫПОЛНЕНИЕ

Таблица свойств объектов:

Объект	Имя объекта	Свойство	Значение свойства
Форма	Form1	Name	Form1
		Text	Lab 4.02-1 Балябин Н.А. БИК1504
Метка	Label1	Text	Задание:
		ForeColor	Red
		ImageAlign	MiddleCenter
Метка	Label2	Text	Создать проект вычисления арифметических выражений: d=(1-exp(x*y))^2)/0.7*log10(abs(1-x^2)) m=d n=Fix(d) k=Int(d)
		ForeColor	0; 0; 192
		ImageAlign	MiddleCenter
Метка	Label3	Text	Исходные данные
		ForeColor	0; 0; 192
		ImageAlign	MiddleCenter
Метка	Label4	Text	Х=
Метка	Label5	Text	Y=
Метка	Label6	Text	Результаты
		ForeColor	0; 0; 192
		ImageAlign	MiddleCenter
Метка	Label7	Text	Значение d
Метка	Label8	Text	Значение m
Метка	Label9	Text	Значение n
Метка	Label10	Text	Значение к
Метка	Label11	Text	Значение p
Метка	Label12	Text	Значение d+p
Метка	Label13	Text	Значение s1+s2
Текстовое поле	TextBox1	Name	TextBox1
Текстовое поле	TextBox2	Name	TextBox2
Текстовое поле	TextBox3	Name	TextBox3
Текстовое поле	TextBox4	Name	TextBox4
Текстовое поле	TextBox5	Name	TextBox5
Текстовое поле	TextBox6	Name	TextBox6
Текстовое поле	TextBox7	Name	TextBox7
Текстовое поле	TextBox8	Name	TextBox8
Текстовое поле	TextBox9	Name	TextBox9
Кнопка	Button2	Name	Button2
		Text	Вычислить
Кнопка	Button1	Name	Button1
		Text	Выход
Кнопки	Button1 и Button2	Font	Microsoft Sans Serif, 9

Схема алгоритма решаемой задачи:

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

Imports System.Math 'подключение математического модуля

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

End

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim x, y, d, k, n As Double, p As Single, m As Integer

Dim s1, s2 As String

x = TextBox1.Text 'неявное преобразование типа String в Double

y = TextBox2.Text 'неявное преобразование типа String в Double

d = (1 - Exp(x * y)) ^ 2 / (0.7 * Log10(Abs(1 - x ^ 2)))

m = d 'неявное преобразование типа Double в тип Integer

p = d 'неявное преобразование типа Double в тип Single

n = Fix(d)

k = Int(d)

s1 = d 'неявное преобразование числовых типов в String

s2 = p 'неявное преобразование числовых типов в String

TextBox9.Text = d 'неявное преобразование числовых типов в String

TextBox8.Text = m 'неявное преобразование числовых типов в String

TextBox7.Text = n 'неявное преобразование числовых типов в String

TextBox6.Text = k 'неявное преобразование числовых типов в String

TextBox5.Text = p 'неявное преобразование числовых типов в String

TextBox4.Text = d + p 'неявное преобразование числовых типов в String результата сложения чисел

TextBox3.Text = s1 + s2 'сложение строк

End Sub

End Class

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

Option Strict On

Imports System.Math 'подключение математического модуля

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

End

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim x, y, d, k, n As Double, p As Single, m As Integer

Dim s1, s2 As String

x = CDbl(TextBox1.Text) 'преобразование типа String в Double

y = CDbl(TextBox2.Text) 'преобразование типа String в Double

d = (1 - Exp(x * y)) ^ 2 / (0.7 * Log10(Abs(1 - x ^ 2)))

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

p = CSng(d) 'преобразование типа Double в тип Single

n = Fix(d)

k = Int(d)

s1 = CStr(d) 'преобразование числовых типов в String

s2 = CStr(p) 'преобразование числовых типов в String

TextBox9.Text = CStr(d) 'преобразование числовых типов в String

TextBox8.Text = CStr(m) 'преобразование числовых типов в String

TextBox7.Text = CStr(n) 'преобразование числовых типов в String

TextBox6.Text = CStr(k) 'преобразование числовых типов в String

TextBox5.Text = CStr(p) 'преобразование числовых типов в String

TextBox4.Text = CStr(d + p) 'преобразование числовых типов в String результата

сложения чисел

TextBox3.Text = s1 + s2 'сложение строк

End Sub

End Class

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

Доказательство правильности работы программы: