Progran menentukan sisi miring segitiga dan sudut alfa dengan pascal

bagi pembaca yang kesulitan membuat listing program pascal dalam menentukan sisi miring dan sudut alfanya, bisa menggunakan listing program berikut;

silahkan mencoba.

uses wincrt;

var

   a,t,sm,sin,cos,sud:real;

begin

     clrscr;

     writeln('---------Program menentukan sisi miring segitiga---------');

     writeln('---------------------dan sudut alfa--------------------');

     writeln;

     write('Alas          = ');readln(a);

     write('Tinggi        = ');readln(t);

     writeln;

     sm:=sqrt(sqr(a)+sqr(t));

     sin:=t/sm;

     sud:=arctan(sin/sqrt(1-sqr(sin)))*(180/pi);

     writeln('Sisi Miring      =',sm:1:2);

     writeln('Besar Sudut alva =',sud:1:2,' derajat');

     writeln;

end.

semoga bermanfaat ^_^