Найти площадь треугольника, его высоту, радиус вписанной и описанной окружности - Pascal (11609)
Формулировка задачи:
здарова ребят помогите пожалуста с решением задачь.
Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоту, радиус вписанной и описанной окружности.
Даны две матрицы А(nxn) и B(nxn), а также два вектора х = (x1, x2,..., xn) и y = (y1, y2, ..., yn). Написать программу нахождения скалярного произведения (Ах)*(Ву).
Решение задачи: «Найти площадь треугольника, его высоту, радиус вписанной и описанной окружности»
textual
Листинг программы
uses crt; var a:integer; h,p,s,r,Rad:real; begin clrscr; write('VVedite stironu a = '); readln(a); p:=3*a/2; s:=sqrt(p*(p-a)*(p-a)*(p-a)); writeln('S = ',s:5:2); h:=sqrt(a*a-(a*a/4)); writeln('H = ',h:5:2); r:=(a/sin(60/(180/pi)))/2; writeln('Radius opisannoy okruzhnosti = ',r:5:2); Rad:=s/p; writeln('Radius vpisannoy okruzhnosti = ',Rad:5:2); readkey; end.
Объяснение кода листинга программы
- В первой строке используется библиотека crt, которая необходима для работы с консольным вводом-выводом в Delphi.
- Переменная a инициализируется целочисленным значением, которое считывается с помощью функции readln.
- Вычисляется значение переменной p как 3/2 от значения a.
- Вычисляется значение переменной s как квадратный корень из суммы квадратов разностей a и p, а также a и (a-p), a и (a-p), a и (a-p).
- Вычисляется значение переменной h как квадратный корень из разности a^2 и (a/4).
- Вычисляется значение переменной r как радиус вписанной окружности, равный корню из отношения a/sin(60/(180/pi))/2.
- Вычисляется значение переменной Rad как радиус описанной окружности, равный отношению s к p.
- Программа завершается после ввода ключевого символа с помощью функции readkey.