zolotoy1979

25.12.2021 02:05

Информатика

Есть ответ 👍

Проверьте коды на ошибки Программа выдает ошибки, я их исправляю в итоге она выдает еще множество других. Я не понимаю что не так. //файл Rech.spp

#include "stdafx.h"

#include

//Функция вычисления стороны треугольника - т.е.
//длины отрезка между точками с коорд. (Xa,Ya) и (Xb,Yb)
double LenS(double Xa, double Ya, double Xb, double Yb)
{
return (sqrt((Xa-Xb)*(Xa-Xb)+(Ya-Yb)*(Ya-Yb)));
}
//Функция вычисления периметра треугольника со сторонами a,b,c
double CalcP(double a, double b, double c)
{
return a+b+c;
}
//Функция высисления площади треугольника
// со сторнами a,b,c по формуле Герона
double CalcS(double a, double b, double c)
{
double pp=CalcP(a,b,c)/2;// вызов функции вычисления периметра
return sqrt(pp*(pp-a)*(pp-b)*(pp-c));
}
// Функция периметра и площади трегольника
// по координтам его вершин
double PS(double x1, double y1, double x2, double y2,double x3, double y3,double& p)
{
double a,b,c,s;
a = LenS(x1,y1,x2,y2);
b = LenS(x2,y2,x3,y4);
c = LenS(x1,y1,x3,y3);
p = CalcP(a,b,c);
s = CalcS(a,b,c);
return s;
}

// Ввод значения x1 из объкта txtx1 с преобразованием
// строкового типа в тип double
double x1 = Convert: :ToDouble(txtx1 -> Text);
double y1 = Convert: :ToDouble(txty1 -> Text);
double x2 = Convert: :ToDouble(txtx2 -> Text);
double y2 = Convert: :ToDouble(txty2 -> Text);
double x3 = Convert: :ToDouble(txtx3 -> Text);
double y3 = Convert: :ToDouble(txty3 -> Text);
double s,p;
s = PS(x1,y1,x2,y2,x3,y3,p);// вызов функции решения задачи
// вывод значения p в текстовое поле txtPttr с преобразованием из типа double в строковый тип
txtPttr -> Text = p.ToString();
txtPltr -> Text = s.ToString();