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

В прямоугольном треугольнике, если известен один катет (например, катет "a") и синус угла (например, угла "B"), мы можем найти другой катет (катет "b") с помощью тригонометрической функции. Синус угла определяется как отношение противолежащего катета к гипотенузе:

• sin(B) = a / c, где c - гипотенуза.
• Также, можно использовать теорему Пифагора для нахождения другого катета: c^2 = a^2 + b^2.

Таким образом, мы можем выразить другой катет b через известные значения.

Теперь напишем программу на языке Паскаль:

program CalculateOtherCathet;
var
  a, sinB, c, b: real;
begin
  { Вводим известные значения }
  writeln('Введите длину известного катета (a):');
  readln(a);
  writeln('Введите синус угла (sinB):');
  readln(sinB);

  { Вычисляем гипотенузу c }
  c := a / sinB;

  { Вычисляем другой катет b с помощью теоремы Пифагора }
  b := sqrt(c * c - a * a);

  { Выводим результат }
  writeln('Длина другого катета (b) равна: ', b:0:2);
end.

• program CalculateOtherCathet; – объявление программы.
• var – секция, где мы объявляем переменные a, sinB, c и b, которые будут хранить значения катетов и синуса.
• writeln – команда для вывода текста на экран, чтобы пользователь знал, что вводить.
• readln – команда для считывания введенных значений.
• c := a / sinB; – вычисление гипотенузы по известному катету и синусу.
• b := sqrt(c * c - a * a); – вычисление другого катета с использованием теоремы Пифагора.
• writeln – вывод результата на экран с форматированием до двух знаков после запятой.

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