Найти второй катет и радиус вписанной в треугольник окружности - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Даны гипотенуза и катет прямоугольного треугольника. Найти второй катет и радиус вписанной окружности a=6 b=10

Решение задачи: «Найти второй катет и радиус вписанной в треугольник окружности»

textual
Листинг программы
Program Hip;
Const a=6;
b=10;
var c,r:real;
begin
c:=sqrt(sqr(b)-sqr(a)));
r:=(a+c-b)/2;
writeln ('c=',c:0:2,' r=',r:0:2);
readln;
end.

Объяснение кода листинга программы

  1. Создается программа Hip.
  2. В программе объявляются две константы a и b, которые равны 6 и 10 соответственно.
  3. Затем объявляются две переменные c и r типа real, которые будут использоваться для хранения значения второго катета и радиуса вписанной окружности соответственно.
  4. Вычисляется значение второго катета c путем вычисления квадратного корня из разности квадратов переменных a и b, а затем берется квадратный корень из полученного значения.
  5. Значение радиуса вписанной окружности r вычисляется путем сложения значения переменных a и c, а затем деления полученной суммы на 2.
  6. Выводится сообщение с значениями переменной c и r на экран.
  7. Программа завершается вызовом функции readln.

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы