Question

Создать Паскаль программу,которая должна выдать вычисления от 1 до 5,вычислить гипотенузу по катетам, вычислить периметр треугольника,только письменный вариант

Answer 1

Program n_1; var a, b, c, P: real; begin write('Введите число a'); readln(a); write('Введите число b); readln(b); c:= Sqrt(Sqr(a)+Sqr(b)); P:= a+b+c; writeln('c = ', c); writeln('P = ', P); readln; end.

Answer 2

Конечно, я могу помочь вам создать программу на языке Паскаль, которая будет выполнять эти вычисления. Вот пример кода:

program TriangleCalculations;

var
  a, b, c: real; // катеты и гипотенуза
  perimeter: real; // периметр треугольника

begin
  // Вычисление гипотенузы по катетам
  a := 3; // значение первого катета
  b := 4; // значение второго катета
  
  c := sqrt(a*a + b*b); // вычисление гипотенузы по теореме Пифагора
  
  writeln('Гипотенуза треугольника: ', c:0:2); // вывод результата с округлением до 2 знаков после запятой

// Вычисление периметра треугольника
  a := 3; // значение первой стороны треугольника
  b := 4; // значение второй стороны треугольника
  c := 5; // значение третьей стороны треугольника
  
  perimeter := a + b + c; // вычисление периметра
  
  writeln('Периметр треугольника: ', perimeter:0:2); // вывод результата с округлением до 2 знаков после запятой

end.

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