Program Aturan Sinus (Pascal)

Berikut sintaks program aturan sinus :

program Aturan_Sinus;

uses crt;

     var a, b:integer;

         c, d, e, f,u, 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 b : ');readln(y);

     w:=y/180*pi;

     d:=a*sin(w)/b;

     e:=sqrt(1-sqr(d));

     f:=arctan(d/e);

     x:=f*180/pi;

     z:=180-y-x;

     u:=z/180*pi;

     c:=a*sin(u)/sin(w);

     writeln('Nilai sudut a adalah ',x:0:0, ', nilai sudut c adalah ',z:0:0, ', nilai sisi c adalah ',c:0:0);

     readln;

end.

Selamat mencoba.