Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Кафедра вычислительной математики и программирования
Лабораторная работа №3 часть 1
Выполнил: Волков Андрей
Группа: БИК1305
Вариант: 5
Москва, 2013 г.
Содержание отчета
1. Тема и название работы.
2. Задание на разработку проекта и вариант задания.
Создать приложение с именем Проект-4-3-Лаб для вычисления арифметических
выражений: b = , I = b, j = [b]
где x, y – исходные данные - вещественные (Double).
b – вещественная (Double), Выражение j=[b] – означает, что вычисляется целая часть числа, полученная с помощью функции Fix().
Проект должен иметь простой интерфейс
3. Формализация и уточнение задания:
Запись заданного арифметического выражения по правилам языка VB имеет вид:
i=b; j=Fix(b)
В соответствии с требованиями задания разобьем решение задачи на несколько отдельных задач и создадим три процедуры пользователя, вычисляющие заданное арифметическое выражение:
4.Разработка проекта.
4.1. Графический интерфейс пользователя;
4.2. Таблица свойств объектов;
|
Объект |
Имя объекта |
Свойство |
Значение свойства |
|
Форма |
Form |
Name |
Form1 |
|
Text |
Тема 4.2 Вычисление арифметических выражений |
||
|
Метка |
Label1 |
Text |
Задание: Создать проект вычисления арифметических выражений |
|
ForeColor |
ControlText |
||
|
ImageAlign |
MiddleCenter |
||
|
Метка |
Label2 |
Text |
Исходные данные |
|
ForeColor |
Green |
||
|
ImageAlign |
MiddleCenter |
||
|
Метка |
Label3 |
Text |
X |
|
Метка |
Label4 |
Text |
Y |
|
Метка |
Label5 |
Text |
Значение b |
|
Метка |
Label6 |
Text |
Значение k |
|
Метка |
Label7 |
Text |
Значение Fix(b) |
|
Метка |
Label8 |
Text |
Значение Int(b) |
|
Метка |
Label9 |
Text |
Значение p |
|
Метка |
Label10 |
Text |
Значение b+p |
|
Метка |
Label11 |
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 |
|
Кнопка |
Button1 |
Name |
Button1 |
|
Text |
Вычислить |
||
|
Кнопка |
Button2 |
Name |
Button2 |
|
Text |
Выход |
||
|
Кнопки |
Button1 и Button2 |
Font |
Arial, жирный, 12 |
4.3 Схемы алгоритмов процедур пользователя;
4.3.1 Схема алгоритма первой решаемой задачи;
4.3.2 Схема алгоритма второй решаемой задачи;
4.3.3 Схема алгоритма второй решаемой задачи;
4.4. Программный код первого проекта;
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
Function func(ByVal x As Double, ByVal y As Double) As Double
Dim b As Double
b = ((x + y) / (0.2 * x)) ^ (1 / 3) * Sin((Tan(x)) ^ 2)
Return b
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, b, i, j As Double
Dim k As Integer
Dim s1, s2 As String
Dim p As Single
x = CDbl(TextBox1.Text)
y = CDbl(TextBox2.Text)
b = func(x, y)
p = CSng(b)
k = CInt(b)
j = Fix(b)
i = Int(b)
s1 = CStr(b)
s2 = CStr(p)
TextBox3.Text = CStr(b)
TextBox4.Text = CStr(k)
TextBox5.Text = CStr(j)
TextBox6.Text = CStr(i)
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(b + p)
TextBox9.Text = CStr(s1 + s2)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
4.5. Программный код второго проекта;
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
Sub proc(ByVal x As Double, ByVal y As Double, ByRef b As Double)
b = ((x + y) / (0.2 * x)) ^ (1 / 3) * Sin((Tan(x)) ^ 2)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, b, i, j As Double
Dim k As Integer
Dim s1, s2 As String
Dim p As Single
x = CDbl(TextBox1.Text)
y = CDbl(TextBox2.Text)
proc(x, y, b)
p = CSng(b)
k = CInt(b)
j = Fix(b)
i = Int(b)
s1 = CStr(b)
s2 = CStr(p)
TextBox3.Text = CStr(b)
TextBox4.Text = CStr(k)
TextBox5.Text = CStr(j)
TextBox6.Text = CStr(i)
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(b + p)
TextBox9.Text = CStr(s1 + s2)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
4.6.Программный код третьего проекта;
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
Dim x As Double, y As Double, b As Double
Sub proc()
b = ((x + y) / (0.2 * x)) ^ (1 / 3) * Sin((Tan(x)) ^ 2)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, b, i, j As Double
Dim k As Integer
Dim s1, s2 As String
Dim p As Single
x = CDbl(TextBox1.Text)
y = CDbl(TextBox2.Text)
proc()
p = CSng(b)
k = CInt(b)
j = Fix(b)
i = Int(b)
s1 = CStr(b)
s2 = CStr(p)
TextBox3.Text = CStr(b)
TextBox4.Text = CStr(k)
TextBox5.Text = CStr(j)
TextBox6.Text = CStr(i)
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(b + p)
TextBox9.Text = CStr(s1 + s2)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
5. Результаты выполнения проекта.
6. Доказательство правильности результатов