Напишите программу, которая будет по 3 сторонам треугольника находить косинусы всех углов в радианах и градусах. у меня такое получилось, но он не привально вычисляет (сумма углов не равна 180 градусов).
program tc3c;
var a, b, c, d, e, f, g, j, i, k, l, m, n, o, p: double;
begin
read(a, b, c);
d: =a*a;
writeln ('a в квадрате=', d);
e: =b*b;
writeln ('b в квадрате=', e);
f: =c*c;
writeln ('c в квадрате=', f);
g: =(e+f-d)/(2*b*c);
j: =cos(g);
writeln ('cosa в радианах=', j);
n: =((180/pi)*j);
writeln ('первый угол в градусах=', n);
i: =(d+f-e)/(2*a*c);
k: =cos(i);
writeln ('cosb в радианах=', k);
o: =((180/pi)*k);
writeln ('второй угол в градусах=', o);
l: =(d+e-f)/(2*a*b);
m: =cos(l);
writeln ('cosc в радианах=', m);
p: =((180/pi)*m);
writeln ('третий угол в градусах=', p);
end.

Ddf001    1   27.10.2019 11:39    1