Program MencariSalahSatuSisiSegitiga

Program MencariSalahSatuSisiSegitiga;
Uses Crt;
Procedure hitung(b,c,alpha:real; var a,L:real);
begin
ClrScr;
a:=sqrt(sqr(b)+sqr(c)-2*b*c*cos(alpha*3.14/180));
L:=0.5*b*c*sin(alpha*3.14/180);
writeln(‘Panjang sisi yang belum diketahui adalah : ‘,a:4:2);
writeln(’sedangkan luas segitiga sembarang adalah : ‘,L:4:2);
end;
var
b,c,alpha : real;
a,L : real;
begin
writeln(‘Program mencari panjang sisi segitiga’);
write(‘Masukkan panjang sisi pertama (b) : ‘);
readln(b);
write(‘Masukkan panjang sisi kedua (c) : ‘);
readln(c);
write(‘Masukkan nilai cos (alpha) : ‘);
readln(alpha);
hitung (b,c,alpha,a,L);
end.