Question

Pascal, написать программу, находящую площадь и периметр треугольника.​

Answer 1

Ответ:

var a,b,c,p,s:real;

begin

readln(a,b,c);

p:=a+b+c;

s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));

write('Периметр равен: ',p,' Площадь равна: ',s);

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Pascal, которая находит площадь и периметр треугольника, если известны его стороны:

pascalCopy code
program CalculateTriangleAreaPerimeter;

var
  Side1, Side2, Side3, Perimeter, Area, SemiPerimeter: real;

begin
  writeln('Введите длину первой стороны треугольника: ');
  readln(Side1);
  
  writeln('Введите длину второй стороны треугольника: ');
  readln(Side2);
  
  writeln('Введите длину третьей стороны треугольника: ');
  readln(Side3);
  
  // Рассчитываем периметр треугольника
  Perimeter := Side1 + Side2 + Side3;
  
  // Рассчитываем полупериметр (для вычисления площади по формуле Герона)
  SemiPerimeter := Perimeter / 2;
  
  // Рассчитываем площадь треугольника по формуле Герона
  Area := sqrt(SemiPerimeter * (SemiPerimeter - Side1) * (SemiPerimeter - Side2) * (SemiPerimeter - Side3));
  
  writeln('Периметр треугольника: ', Perimeter:0:2);
  writeln('Площадь треугольника: ', Area:0:2);
end.

Просто введите длины трех сторон треугольника, и программа рассчитает его периметр и площадь.