Программу в Паскале. Дан произвольный треугольник ABC для которого определен следующий набор характерных параментров: a b c - стороны треугольника; α β γ - углы (в градусах) h - высота, опущенная на сторону c; S - площадь; P - периметр треугольника. По трем заданным параметрам вычислить все остальные. Различные сочетания параметров определяют варианты заданий. Известно стороны a b и высота h.
begin writeln('Enter the sides of the triangle a, b and the height h:'); readln(a, b, h);
c := sqrt(aa + bb); // calculating the third side using Pythagorean theorem P := a + b + c; // calculating perimeter S := 0.5 a h; // calculating area alpha := arccosd((bb + hh - aa) / (2b*h)); // calculating angle alpha in degrees beta := 90 - alpha; // calculating angle beta gamma := 90; // the third angle of a right triangle is always 90 degrees
program TriangleParameters;
var a, b, h, c, alpha, beta, gamma, S, P: real;
begin
writeln('Enter the sides of the triangle a, b and the height h:');
readln(a, b, h);
c := sqrt(aa + bb); // calculating the third side using Pythagorean theorem
P := a + b + c; // calculating perimeter
S := 0.5 a h; // calculating area
alpha := arccosd((bb + hh - aa) / (2b*h)); // calculating angle alpha in degrees
beta := 90 - alpha; // calculating angle beta
gamma := 90; // the third angle of a right triangle is always 90 degrees
writeln('Side c: ', c);
writeln('Perimeter: ', P);
writeln('Area: ', S);
writeln('Angle alpha: ', alpha);
writeln('Angle beta: ', beta);
writeln('Angle gamma: ', gamma);
end.