Найти второй катет и радиус вписанной в треугольник окружности - 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.
Объяснение кода листинга программы
- Создается программа Hip.
- В программе объявляются две константы a и b, которые равны 6 и 10 соответственно.
- Затем объявляются две переменные c и r типа real, которые будут использоваться для хранения значения второго катета и радиуса вписанной окружности соответственно.
- Вычисляется значение второго катета c путем вычисления квадратного корня из разности квадратов переменных a и b, а затем берется квадратный корень из полученного значения.
- Значение радиуса вписанной окружности r вычисляется путем сложения значения переменных a и c, а затем деления полученной суммы на 2.
- Выводится сообщение с значениями переменной c и r на экран.
- Программа завершается вызовом функции readln.