Program menghitung sisi miring segitiga siku-siku

Program menghitung sisi miring segitiga siku-siku I          

uses crt;

 var a,t,l,sisi_miring,sinus,cosinus,sudut:real;

 ulang:char;

 begin

 repeat

 clrscr;

 writeln('Program menghitung luas segitiga siku-siku,sin,cos dan besar sudut a');

 writeln;

 write('Panjang alas =');readln(a);

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

 writeln;

 l:=0.5*a*t;

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

 sinus:=t/sisi_miring;

 cosinus:=a/sisi_miring;

 sudut:=arctan(sinus/sqrt(1-sqr(sinus)))*(180/pi);

 writeln('Luas segitiga siku-siku =',l:1:2);

 writeln('Panjang sisi miring =',sisi_miring:1:2);

 writeln('Sinus sudut a =',sinus:1:2);

 writeln('cosinus sudut a =',cosinus:1:2);

 writeln('Besar sudut a =',sudut:1:2,' derajat');

 writeln;

 writeln('tekan sembarang tombol untuk mengulang atau X untuk keluar!');

 ulang:=readkey;

 until upcase(ulang)='X';

 end.

Program menghitung sisi miring segitiga siku-siku II

 uses crt;
procedure hitung(A,B : real);

var
r : real;
begin
r:=SQRT(A*A+B*B);
writeln(‘Panjang sisi tegak =’,A:2:2);
writeln(‘Panjang sisi datar =’,B:2:2);
writeln(‘Jadi panjang sisi miring adalah =’,r:2:2);
end;
var
g,b : real;
begin

clrscr;
write(‘Panjang sisi tegak = ‘);
readln(g);
write(‘Panjang sisi datar = ‘);
readln(b);
hitung(g,b);

end.