✎ Задать свой вопрос   *более 50 000 пользователей получили ответ на «Решим всё»

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

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


Сформулируем содержательную постановку задачи: Создать приложение на 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

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




Просмотры: 4241 | Статью добавил: slava191 | Категория: информатика