Проверьте коды на ошибки Программа выдает ошибки, я их исправляю в итоге она выдает еще множество других. Я не понимаю что не так. //файл 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();
2. Свойство алгоритма,заключающееся в отсутствии ошибок,алгоритм должен приводить к правильному результату для всех допустимых входных значений,называется результативность.
3.Объем информационного сообщения 12288 битов,можно вводить как...
12288 бит = 1536 байт = 1,5Кбайт
4.Какой алгоритм называется линейным? Линейным называется алгоритм, который не имеет ответвлений (поворотов), другими словами прямой.
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
var x,y,a,b: real;
begin
writeln('Введите массу шоколадных конфет');
readln (x);
writeln('Введите сумму потраченную на покупку шоколадных конфет');
readln (a);
writeln('Введите массу ирисок');
readln (y);
writeln('Введите сумму потраченную на покупку ирисок');
readln (b);
writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
end.
//Дана длина ребра куба а. Найти его объем и площадь поверхности
Var a: real;
begin
writeln ('введите длину ребра куба');
readln (a);
while a<0 do
begin
writeln ('вы ввели не допустимое значение попробуйте еще раз');
writeln ('введите длину ребра куба');
readln (a);
end;
writeln ('площадь куба равна ',a*a*6);
writeln ('объем куба равен ',a*a*a);
end.