Question

ПОМОГИТЕ С ЗАДАЧАМИ ПО ИНФОРМАТИКЕ В ПАСКАЛЬ!!!СРОЧНО!!! 1)Дан треугольник у которого известны длины всех сторон. Найти переменную.2)Дан прямоугольный треугольник у которого известны длины катетов. Найти гипотенузу. ​

Answer 1

Ответ:

2)

var

catet1, catet2, c: real;

begin

write('первый катет = ');

readln(catet1);

write('второй катет = ');

readln(catet2);

c := sqrt(catet1*catet1 + catet2*catet2);

writeln('гипотенуза: ',c:1:2)

end.

Объяснение:

Первая задачка условие не понятно, напиши в коментах что найти нужно, что за переменная

Answer 2

Конечно, я могу помочь вам с этими задачами по информатике в Pascal.

1. Для нахождения переменной треугольника, когда известны длины всех сторон (a, b, c), вы можете использовать формулу полупериметра и формулу Герона:

pascalCopy code
program TriangleVariable;
var
  a, b, c, s, variable: real;
begin
  write('Введите длину стороны a: ');
  readln(a);
  write('Введите длину стороны b: ');
  readln(b);
  write('Введите длину стороны c: ');
  readln(c);

  s := (a + b + c) / 2; // Полупериметр
  variable := sqrt(s * (s - a) * (s - b) * (s - c)); // Формула Герона

  writeln('Переменная треугольника равна: ', variable);
end.

2. Для нахождения гипотенузы прямоугольного треугольника, когда известны длины катетов (a и b), вы можете использовать теорему Пифагора:

pascalCopy code
program Hypotenuse;
var
  a, b, c: real;
begin
  write('Введите длину первого катета (a): ');
  readln(a);
  write('Введите длину второго катета (b): ');
  readln(b);

  c := sqrt(a * a + b * b); // Теорема Пифагора

  writeln('Длина гипотенузы: ', c);
end.

Эти программы помогут вам решить задачи, когда известны длины сторон треугольника и катеты прямоугольного треугольника. Надеюсь, это поможет вам в изучении информатики в Pascal!