Практика по программированию. Практическая работа №1. Процедурыфункции, которая вычисляет радиус r окружности, вписанной в треугольник со сторонами a,b,c по формуле r

• Название: Процедурыфункции, которая вычисляет радиус r окружности, вписанной в треугольник со сторонами a,b,c по формуле r
• Анкор: Практика по программированию
• Дата: 13.10.2021
• Размер: 209.38 Kb.
• Имя файла: Практическая работа №1.docx
• Тип: Документы; #246711

Вариант-16

1. 
   Для трех треугольников известны значения сторон. Для каждого треугольника вычислить радиус вписанной окружности, написав программный код четырех процедур:
   

1. 
   Процедуры-функции, которая вычисляет радиус r окружности, вписанной в треугольник со сторонами a,b,c по формуле r= . Параметрами процедуры-функции должны быть стороны треугольника.
   
2. 
   Процедуры ввода исходных данных и процедуры вывода результатов.
   
3. 
   Событийной процедуры, которая должна содержать: вызов процедуры ввода сторон для трёх различных треугольников, вызовы процедуры-функции для вычисления радиусов вписанных в них окружностей (т.е. вызывать функцию 3 раза) и вызов процедуры вывода результатов.
   

Первый уровень детализации


Второй уровень детализации















Код событийной функции:

private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {

double a = Class2::Vvod(textBox1);

double b = Class2::Vvod(textBox2);

double c = Class2::Vvod(textBox3);
double r = Class2::ClalcR(a, b, c);

Class2::Vivod(r, textBox4);

Код dll-библеотеки

#include

using namespace System;

using namespace System::Windows::Forms;
namespace dllCalcRad {

public ref class Class2

{

public:

double static Vvod(TextBox^ t) {

return Convert::ToDouble(t->Text);

}
void static Vivod(double a, TextBox^ t) {

t->Text = Convert::ToString(a);

}
double static ClalcR(double a, double b, double c) {

double p = (a + b + c) / 2;

return sqrt(p * (p - a) * (p - b) * (p - c) / p);

}

};

}

Результат работы программы: