Вычисление периметра и площади треугольника

Задание на разработку проекта


Сформулируем содержательную постановку задачи: Создать приложение на VB которое должно вычислять периметр и площадь треугольника по заданным значениям трех его сторон:

Задано: А, В, С – значения сторон треугольника.
Требуется определить: Р – периметр треугольника, S – площадь треугольника.

Ограничения на значения исходных данных и их соотношения: А>0, В>0, C>0, А+В>С, А+C>В, В+C>А одновременно.

Проект должен иметь простой интерфейс пользователя:

  • две кнопки управления;

  • три поля, отображающие входные данные;

  • два поля, отображающие выходные данные.



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


Для решения задачи существуют известные формулы:
Р = А + В + С;
S = (формула Герона),

Print-Screen разработанного проекта с результатами




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


Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim A, B, C As Single
Dim P, Pp, S As Single
B = CSng(TextBox4.2.Text)
'Присваивание переменной В значения поля TextBox2
A = CSng((TextBox1.Text))
'Присваивание переменной А значения поля TextBox1
C = CSng((TextBox3.Text))
'Присваивание переменной С значения поля TextBox3
P = (A + B + C)
'Вычисление периметра и присваивание значения Р
Pp = P / 2
'Вычисление полупериметра и присваивание значения Рр
S = CSng((Sqrt(Pp * (Pp - A) * (Pp - B) * (Pp - C))))
'Вычисление площади и присваивание значения переменной S
TextBox4.Text = CStr(P)
'Вывод значения полупериметра в текстовое поле TextBox4
TextBox5.Text = CStr(S)
'Вывод значения площади в текстовое поле TextBox5.
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button4.2.Click
End
End Sub
End Class

Блок-схема алгоритма




slava191
626

Написать комментарий

Читайте также:

По каналу связи передается последовательность положительных целых чисел

По каналу связи передается последовательность положительных целых чисел, все числа не превышают 1000, их количество заранее неизвестно. Каждое число передается отдельно.

Программирование алгоритмов формирования и обработки одномерных массивов

Информатика МТУСИ 1ый курс
Не можешь решить?
ПОМОГИТЕ РЕШИТЬ
Мы ВКонтакте