Cara menghitung sin , cos , dan tan pada pascal atau rumus sin tan dan cos pada pascal

Lagi nyari nyari source code buat ngitung sin tan dan cos pada pascal?
Nih ane kasih source codenya buat kalian yang lagi bingung, cuman jangan hacking hak cipta ya hehehe

uses crt;
label awal;
var menu: integer ;
        kv1,kv, sd1, sd2, sd3, s1, s2,s3 : real;
        hasil,hasil1,cos_alpha, sin_alpha, tan_alpha,arctan1 : real;
begin clrscr;
awal:;
writeln(''TRIGONOMETRI');
writeln('1: Jika diketahui sisi`);

writeln('2: Jika diketahui sudut');
writeln('3: testing');
write('Masukan pilihan (1-3): ');readln(menu);

case menu of

1 : begin

        writeln('Jika diketahui sisi');
        write('Masukan sisi miring: ');readln(s1);
        write('Masukan sisi tegak(vertikal): ');readln(s2);
        write('Masukan sisi alas(horizontal): ');readln(s3);

        {proses}

        sin_alpha   := s1/s1;
        cos_alpha   := s3/s1;
        tan_alpha   := s2/s3;

        writeln('Hasil sinus alpha: ', sin_alpha:0:3);
        writeln('Hasil cos alpha  : ', cos_alpha:0:3);
        writeln('Hasil tan alpha  : ', tan_alpha:0:3);
        readln;
                goto awal end;
2 : begin clrscr;

        write('Maaf untuk menu ini belum tersedia, silahkan download part 2 nya di radenrakha.blogspot.com');
        write('Tekan enter untuk kembali ke menu utama');

readln;
                goto awal end;
3 : begin clrscr;
                write('Maaf untuk menu ini belum tersedia, silahkan download part 2 nya di radenrakha.blogspot.com');
        write('Tekan enter untuk kembali ke menu utama');

readln;
                goto awal end;
        end;

        readln;
        end.

Note: Menu pertama itu untuk menghitung sin cos dan tan jika yang diketahuinya sisinya;
           Jika ada kesalahan, silahkan kirimi saya PM ke email gmail saya
Selamat belajar..