Program untuk membuat luas dan keliling segitiga (versi Trigonometri)

Asslkm ikhwan sekalian, pada kesempatan kali ini awak kan coba membuat program untuk luas dan keliling segitiga sembarang yang diketahui salah satu sudutnya.

mengapa awak katakan versi trigonometri, yah karena berhubngan dengan aturan trigonometri, baiklah
untuk kawan kawan yang pengen segera melihatnya, nih ia programnya:


program luas_dan_keliling_segitiga;
uses crt;
var
   L, K, a, b, c, alfa: real;
begin
clrscr;
       write ('masukkan nilai alfa: ');
       readln(alfa);
       write ('masukkan nilai a: ');
       readln(a);
       write ('masukkan nilai b: ');
       readln(b);
       write ('masukkan nilai c: ');
       readln(c);
       L := 1/2*a*b*(sin(alfa*pi/180));
       K := a + b + c;
       writeln ('jadi nilai Luas= ',L:6:1);
       write ('dan kelilingnya= ',K:6:1);
       writeln;
       readkey;
end.

Nah, mudah dan simple bukan maka dari itu, belajarlah lebih giat untuk membuat program progrm yang lebih bagus lagi, bisa ikhwan sekalian belajar dengan menggunakan turbo c++ atau pun delphi..nanti lah awak coba bahaas lagi kalau ada kesempatan..key...syukran wassalam...