Найти площадь треугольника, его высоту, радиус вписанной и описанной окружности - 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.

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

  1. В первой строке используется библиотека crt, которая необходима для работы с консольным вводом-выводом в Delphi.
  2. Переменная a инициализируется целочисленным значением, которое считывается с помощью функции readln.
  3. Вычисляется значение переменной p как 3/2 от значения a.
  4. Вычисляется значение переменной s как квадратный корень из суммы квадратов разностей a и p, а также a и (a-p), a и (a-p), a и (a-p).
  5. Вычисляется значение переменной h как квадратный корень из разности a^2 и (a/4).
  6. Вычисляется значение переменной r как радиус вписанной окружности, равный корню из отношения a/sin(60/(180/pi))/2.
  7. Вычисляется значение переменной Rad как радиус описанной окружности, равный отношению s к p.
  8. Программа завершается после ввода ключевого символа с помощью функции readkey.

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

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