Question

Написать задачу в Паскале.9 класс. Даны три стороны треугольника.Найти его периметр и площадь.Найти площадь по формуле Герона.

Answer 1

Ответ:

var a, b, c:integer;

   S, p:real;

begin

 readln(a, b, c);

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

 S := sqrt(p*(p-a)*(p-b)*(p-c));

 writeln('Периметр: ', p*2);

 writeln('Площадь: ', S);

end.

Объяснение:

Answer 2

Конечно, вот задача на Паскале для 9 класса, которая решает указанную задачу:

pascalCopy code
program TriangleProperties;

var
  a, b, c, perimeter, area: Real;

procedure CalculatePerimeterAndArea;
var
  s: Real;
begin
  perimeter := a + b + c;
  s := perimeter / 2;
  area := Sqrt(s * (s - a) * (s - b) * (s - c));
end;

begin
  writeln('Введите длину первой стороны треугольника (a): ');
  readln(a);
  
  writeln('Введите длину второй стороны треугольника (b): ');
  readln(b);
  
  writeln('Введите длину третьей стороны треугольника (c): ');
  readln(c);
  
  if (a + b > c) and (a + c > b) and (b + c > a) then
  begin
    CalculatePerimeterAndArea;
    
    writeln('Периметр треугольника: ', perimeter:0:2);
    writeln('Площадь треугольника по формуле Герона: ', area:0:2);
  end
  else
    writeln('Треугольник с такими сторонами не существует.');
end.

Этот код позволяет пользователю ввести длины трех сторон треугольника, затем он проверяет существование треугольника с такими сторонами (сумма длин двух сторон всегда должна быть больше длины третьей стороны) и, если треугольник существует, вычисляет его периметр и площадь с помощью формулы Герона.