Question

Даны положительных числа a,b,c. Проверить могут ли они быть длинами сторон треугольника, если да, то вычесли его площадь. (составить программу для паскаля)

Answer 1

//Pascal ABC.NET 3.1 сборка 1256

Var
 a,b,c,s,p:real;
begin
readln(a,b,c);
if (a+b>c) and (b+c>a) and (a+c>b) then
 begin
  p:=(a+b+c)/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('S=',s);
 end
 else
 writeln('Такого треугольника не существует.');
end.

Пример ввода:
3
4
3
Пример вывода:
S=4.47213595499958

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая проверяет, могут ли заданные числа a, b и c быть длинами сторон треугольника и, если да, вычисляет его площадь:

pascalCopy code
program TriangleArea;

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

begin
  writeln('Введите длины сторон треугольника:');
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);

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

  readln;
end.

Пользователю будет предложено ввести значения для сторон треугольника a, b и c. Затем программа проверит, могут ли эти значения быть длинами сторон треугольника, и если да, вычислит площадь треугольника с использованием формулы Герона. В случае, если треугольник не может существовать, будет выведено соответствующее сообщение.