Разработайте программу Паскаль.
1)Вычислит площадь треугольника,зная три стороны .
2)Длину отрезка,если его концы заданы координатами А(x;y) В(x;y) АВ-?
1)Вычислит площадь треугольника,зная три стороны .
2)Длину отрезка,если его концы заданы координатами А(x;y) В(x;y) АВ-?
More Questions From This User See All
Answers & Comments
var a,b,c,p:real;
begin
writeln('Введите три стороны треугольника');
read(a,b,c);
p:=(a+b+c)/2;
p:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника = ',p);
end.
№2
var x1,y1,x2,y2,d:real;
begin
writeln('Введите координаты точки A');
read(x1,y1);
writeln('Введите координаты точки B');
read(x2,y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln('Длина отрезка АВ=',d);
end.