Решить . дан произвольный треугольник abc, для которого определен следующий набор характерных параметров: a,b,c - стороны треугольника, альфа, бета, гамма - углы (в градусах), h - высота, опущенная на сторону c, s - площадь, p - периметр треугольника. по трем заданным параметрам( s, h, альфа) в паскале.

var

  a, b, s, c, alpha, betta, gamma, h, p: real;

  x, ar, br, gr: real; {alpha, beta. gamma в радианах}

begin

  write('введите длины двух сторон треугольника и площадь: ');

  readln(a, b, s);

  x : = 2 * s / (a * b);

  if x > 1 then writeln('такой треугольник невозможен')

  else

  begin

    gr : = arcsin(x);

    c : = sqrt(sqr(a) + sqr(b) - 2 * a * b * cos(gr));

    p : = a + b + c;

    ar : = arcsin(a * sin(gr) / c);

    br : = pi - (ar + gr);

    h : = b * sin(ar);

    alpha : = ar * 180 / pi;

    betta : = br * 180 / pi;

    gamma : = 180 - (alpha + betta);

    writeln('решение треугольника');

    writeln('a=', a, ', b=', b, ', c=', c: 0: 5);

    writeln('alpha=', alpha: 0: 2, ', betta=', betta: 0: 2, ', gamma=', gamma: 0: 2);

    writeln('p=', p: 0: 5, ', h=', h: 0: 5, ', s=', s)

  end

end.

тестовое решение:

введите длины двух сторон треугольника и площадь: 3 4 6

решение треугольника

a=3, b=4, c=5.00000

alpha=36.87, betta=53.13, gamma=90.00

p=12.00000, h=2.40000, s=6