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

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


textual

Код к задаче: «Вычислить стороны прямоугольного треугольника - Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.200 из 5



Похожие ответы
  1. Даны две окружности одинакового радиуса R , заданные координатами их центров (X1Y1) (X2Y2) -целыми числами. Определить пересекаются ли они, в этом случае вычислить координаты, (вещественные числа)точек их пересечения

  1. Вычислить значение функции f(x) =x/(25-х2). X изменяется от А до В с шагом h. Вычисление F(x) оформить как функцию, результаты вывести в виде таблицы в основной программе

  1. Даны действительные числа x,y. Вычислить значение функции z=arcsin(x+y)

  1. Доброго всем времени суток. Нужно составить написать программу решения задач на языке Паскаль. Даны x, y, z. Вычислить a, b, если:

  1. Вычислите F(X) в зависимости от введенного X. При составлении алгоритма использовать полную форму ветвления и вложенные структуры ветвления.

  1. Составить программу, которая заполняет массив 6*6 случайным числами от -5до 10, вычисляет количество четных элементов в указанном столбце матрицы, выводит массив и результат вычислений.

  1. Вычислить 7 значений функций Где начальное значение а=0,14х, а шаг ∆а=0,22

  1. Вычислить 7 значений функций Где начальное значение а=0,14х, а шаг ∆а=0,22

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