close

Вход

Забыли?

вход по аккаунту

?

4.3

код для вставкиСкачать

Московский Технический Университет Связи и Информатики.
Кафедра вычислительной математики и программирования.
Лабораторная работа №3
Тема 4.3
"Структура VB-программ и процедуры.
Средства программирования алгоритмов линейной структуры"
Выполнил: Группа: 14 Вариант Москва 2012
1.Тема и название работы :
Структура VB-программ и процедуры. Средства программирования алгоритмов линейной структуры - Вычисление периметра и площади треугольника по заданным координатам трех его вершин.
2.Задание на разработку проекта и вариант задания :
Определить стороны треугольника, заданного величинами своих углов и радиусом описанной окружности .
Назначение процедуры: Применить теорему синусов 3.Формализация и уточнение задания Для ввода данных будет использована процедура-функция Function vvod, которая вернет значения в переменную, вызвавшую её.
Для нахождения синусов углов будет создана функция Function, которая будет определять значение sin(a\b\c).Тогда в Sub Стороны будут подсчитаны все стороны, и она вернет эти значения в процедуру-подпрограмму Sub button1_click.
Для вывода данных будет использована Sub vivod.
4. Графический интерфейс пользователя Таблица свойств объектов ОбъектИмя объектаСвойствоЗначение свойстваФормаFormNameForm1TextВычисление сторон треугольникаМеткаLabel1TextЗадание: создать проект ,вычисляющ...ImageAlignMiddleCenterМеткаLabel2TextВведите значения...Back colorControlImageAlignMiddleCentreМеткаLabel3TextУгол aМеткаLabel4TextУгол bМеткаLabel5TextУгол cМеткаLabel6TextРадиус описанной...МеткаLabel7TextСторона aМеткаLabel8TextСторона bМеткаLabel9TextСторона cТекстовоеTextBox1-7NameTextBox1-7Графическое изображениеPictureBox1-2ImageSystem.Drawing.BitmapКнопкиButton1,2NameButton1,2TextВычислить.\ЗавершитьFontArial,Полужирный
Разработка схемы алгоритма Написание программного кода Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
'Функия ввода угла,соответствующего данной стороне в TextBox
Function vvod(ByVal T As TextBox) As Single
Return CSng(Val(T.Text))
End Function
'Процедура вывода результата в TextBox
Sub vivod(ByVal Z As Single, ByVal T As TextBox)
T.Text = CStr(Z)
End Sub
'Функция вычисления стороны
Public Function ВС(ByVal a As Single, ByVal P As Single) As Single
Return CSng(Abs(Sin(a) * 2 * P))
End Function
Sub Стороны(ByVal a As Single, _
ByVal b As Single, _
ByVal c As Single, _
ByVal P As Single, _
ByRef сторонаA As Single, ByRef сторонаB As Single, ByRef сторонаC As Single)
сторонаA = ВС(a, P)
сторонаB = ВС(b, P)
сторонаC = ВС(c, P)
End Sub
'Процедура обработки события нажатия на кнопку Button1 Private Sub button1_click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, P As Single
Dim сторонаA, сторонаB, сторонаC As Single
a = vvod(TextBox1) : b = vvod(TextBox2) : c = vvod(TextBox3) : P = vvod(TextBox4)
If a + b + c = 180 Then
Стороны(a, b, c, P, сторонаA, сторонаB, сторонаC)
vivod(сторонаA, TextBox5) : vivod(сторонаB, TextBox6) : vivod(сторонаC, TextBox7)
End If
End Sub
Private Sub Button2_click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Выполнение приложения и получение результатов Доказательство правильности результата Sin 60 = 0.304810621102
Sin 80 = 0.993888653923
Sin 40 = 0.745113160479
Сторона a 2.438485 / 0.304810621102 = 4*2 = 8
Сторона b 7.951109 / 0.993888653923 = 8 Сторона с 5.960905 / 0.745113160479 = 8 
Документ
Категория
Рефераты
Просмотров
53
Размер файла
204 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа