pascal 怎么求这个程序阿

var a,b,c,jc:real;
begin
read(a,b,jc);
c:=(a*a+b*b-2*a*b*cos(jc));
writeln(c);
end.

晕～初中数学人教版九上就有余弦定理～
program sjx;
var a,b,c,jc:real;
begin
read(a,b,jc);
c:=(a*a+b*b-2*a*b*cos(jc));
writeln(c);
end.

其中三角函数“cos”在Pascal直接就能用。

我晕，这个用余弦定理嘛
var
a,b,c,c1:real;
begin
read(a,b,c1);
c:=(a*a+b*b-2*a*b*cos(c1));
writeln(c:3:2)
end.

a,b,c是边,c1是角（用弧度表示）

var a,b,c,jc:real;
begin
read(a,b,jc);
c:=(a*a+b*b-2*a*b*cos(jc));
writeln(c);
end.

开数学库
Program XXX;
uses maths;
var
………………
三角函数直接用cos(边,边,角)

恩