Вычислить стороны прямоугольного треугольника - Pascal

  1. Вычислить стороны прямоугольного треугольника, если известны его площадь и периметр.

textual

Код:

var
  p,s,d,a1,a2,b,c,a:real;
begin
  write('P S=');readln(p,s);
  d:=sqr(p*p+4*s)-32*p*p*s;
  a1:=((p*p+4*s)-sqrt(d))/4/p;
  a2:=((p*p+4*s)+sqrt(d))/4/p;
  if a1>0 then a:=a1 else a:=a2;
  b:=2*s/a;
  c:=sqrt(a*a+b*b);
  writeln('a=',a:0:2,' b=',b:0:2,' c=',c:0:2);
end.

Похожие ответы
  1. 1)Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: стороны AC, BC и угол BAC. Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран. 2)Ввести x и вычислить:

  1. Вычислить длину стороны a и площадь S восьмиугольника, который или вписан в окружность с радиусом R, или описан вокруг нее. Помогите пожалуйста)

  1. Задание 3. Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: сторона BC и углы BAC, ACB. Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран. понятия неимею как решать(....буду признателен если небросите меня в беде ,а поможете решить)))

  1. С клавиатуры вводится число a и число b от 1 до 4. Если b = 1, то a – длина стороны правильного треугольника, если b = 2, то медиана, если b = 3, то площадь вписанного круга, если b = 4, то площадь описанного круга. Выведите на экран длину стороны, медиану и площади вписанного и описанного круга.

  1. Известны стороны треугольника. Вычислить его среднюю линию.Добавлено через 3 часа 40 минут ответьте же. кто-нибудь


Нашли ошибку?
Развитие проекта
Яндекс.Метрика