Question

составить программу. Существует ли треугольник со сторонами a,b,c. Если да определите будет ли он прямоугольным. ( сделайте для программы: PascalABC 8 по уровню 8-ого класса)

Answer 1

Var a, b, i, c:Integer ;

Begin

Write('a=') ;read(a) ;writeln;

Write('b=') ;read(b) ;writeln;

Write('c=') ;read(c) ;writeln;

If (a<c+b) and(b<a+c) and(c<b+a) then begin

I:=1;

Write(' Треугольник существует ') ;

End Else begin

I:=0;

Write(' Треугольник не существует ') ;

End;

If i=1 then begin

If (a>b) and(a>c) then

If sqr(a) =sqr(b) +sqr(c) then write(' Треуголинк прямоугольный')

Else write(' Треугольник не прямоугольный ') ;

If (b>a) and(b>c) then

If sqr(b) =sqr(a) +sqr(c) then write(' Треуголинк прямоугольный')

Else write(' Треугольник не прямоугольный ') ;

If (c>a) and(c>b) then

If sqr(c) =sqr(b) +sqr(a) then write(' Треуголинк прямоугольный')

Else write(' Треугольник не прямоугольный ') ;

End;

End.

Answer 2

Для составления программы на PascalABC, которая определит, существует ли треугольник со сторонами a, b, c и будет ли он прямоугольным, следуйте этому коду:

pascalCopy code
program TriangleCheck;

var
  a, b, c: Real;
  maxSide, sumSquares: Real;
  isTriangle, isRightTriangle: Boolean;

begin
  WriteLn('Введите длины сторон треугольника:');
  Write('a: ');
  ReadLn(a);
  Write('b: ');
  ReadLn(b);
  Write('c: ');
  ReadLn(c);

  { Проверка на существование треугольника }
  isTriangle := (a + b > c) and (a + c > b) and (b + c > a);

  { Проверка на прямоугольность треугольника }
  if isTriangle then
  begin
    { Находим максимальную сторону }
    if (a >= b) and (a >= c) then
      maxSide := a
    else if b >= c then
      maxSide := b
    else
      maxSide := c;

    { Проверяем теорему Пифагора }
    if maxSide = a then
      sumSquares := b * b + c * c
    else if maxSide = b then
      sumSquares := a * a + c * c
    else
      sumSquares := a * a + b * b;

    isRightTriangle := sumSquares = maxSide * maxSide;
  end
  else
    isRightTriangle := False;

  { Вывод результатов }
  if isTriangle then
  begin
    WriteLn('Треугольник существует.');
    if isRightTriangle then
      WriteLn('Треугольник прямоугольный.')
    else
      WriteLn('Треугольник не является прямоугольным.');
  end
  else
    WriteLn('Треугольник не существует.');

end.

Программа позволяет пользователю ввести длины сторон треугольника и затем проверяет, существует ли такой треугольник и является ли он прямоугольным, используя теорему Пифагора. Если треугольник существует, программа сообщит о его типе (прямоугольный или нет).