Question

Введите три числа. Если они могут быть длинами сторон остроугольного треугольника, введите их в порядке возрастания и вычислите площадь полученного треугольника. Составить программу в Паскале, и схему если сможите.

Answer 1

Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.

Answer 2

Для составления программы на Паскале, которая принимает три числа, проверяет, могут ли они быть длинами сторон остроугольного треугольника, и если да, вычисляет площадь такого треугольника, вы можете использовать следующий код:

pascalCopy code
program CalculateTriangleArea;
var
  a, b, c: real;
  s, p: real;
begin
  // Ввод длин сторон
  writeln('Введите длины трех сторон треугольника:');
  readln(a, b, c);
  
  // Проверка условия существования треугольника
  if (a + b > c) and (a + c > b) and (b + c > a) then
  begin
    // Вычисление полупериметра
    p := (a + b + c) / 2;
    
    // Вычисление площади по формуле Герона
    s := sqrt(p * (p - a) * (p - b) * (p - c));
    
    // Вывод результата
    writeln('Площадь треугольника: ', s:0:2);
  end
  else
  begin
    writeln('Треугольник с такими сторонами не существует.');
  end;
end.

Схему для этой программы создать здесь не представляется возможным, но вы можете использовать структурные элементы, такие как блоки "Ввод", "Проверка условия", "Вычисление", и "Вывод" для построения схемы алгоритма.