Question

Паскаль: Вычислить и вывести значения периметров 25 треугольников при различных значениях их сторон (А>0, B>0, C>0), вводимых с клавиатуры. Спасибо.

Answer 1

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c:real;
  loop 25 do begin
    Write('Введите длины сторон треугольника: '); Read(a,b,c);
    Writeln('Периметр треугольника равен ',a+b+c)
    end
end.

Answer 2

Var
   A,B,C:real;
   i:integer;
Begin
For i:= 1 to 25 do
    Begin
    Write('Введите длины сторон треугольника: ');
    ReadLn(A,B,C);
    if (A < B+C)and(B < C+A)and(C < A+B) then
       WriteLn('P = ',A+B+C)
    else WriteLn('Треугольник не существует');
    End
End.

Answer 3

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

program CalculateTrianglePerimeters;

var
  A, B, C, Perimeter: real;
  i: integer;

begin
  // Вводим значения сторон для 25 треугольников
  for i := 1 to 25 do
  begin
    writeln('Введите значения сторон треугольника ', i, ':');
    
    repeat
      write('Сторона A: ');
      readln(A);
    until A > 0;

repeat
      write('Сторона B: ');
      readln(B);
    until B > 0;

repeat
      write('Сторона C: ');
      readln(C);
    until C > 0;

// Вычисляем периметр
    Perimeter := A + B + C;

// Выводим результат
    writeln('Периметр треугольника ', i, ' равен: ', Perimeter);
    writeln;
  end;
end.

Программа использует цикл `for`, чтобы повторить ввод значений для 25 треугольников. В каждой итерации цикла программа запрашивает у пользователя значения сторон A, B и C, проверяя, чтобы они были больше 0. Затем программа вычисляет периметр треугольника и выводит результат.