Program Aturan Cosinus (Pascal)

Berikut sintaks program aturan cosinus:

program Aturan_Cosinus;

uses crt;
     var a,b,c,u,v,w,x,y,z:real;
begin
     clrscr;
     write('Masukkan nilai sisi a : ');readln(a);
     write('Masukkan nilai sisi b : ');readln(b);
     write('Masukkan nilai sudut c : ');readln(z);

     u:=(z/180)*pi;
     c:=sqrt(sqr(a)+sqr(b)-((2*a*b)*cos(u)));

     x:=(sqr(b)+sqr(c)-sqr(a))/(2*b*c);
     v:=sqrt(1-sqr(x));
     w:=arctan(v/x)*180/pi;


     y:=180-w-z;

     writeln('Nilai sudut a adalah ',w:0:0, ', nilai sudut b adalah ',y:0:0, ', nilai sisi c adalah ',c:0:0);
     readln;
end.

Selamat mencoba.