Cara menghitung sin , cos , dan tan pada pascal jika yang diketahui sudutnya

Selamat datang di blog saya para calon orang sukses.

Kali ini saya mau memposting menu 2 dari postingan sebelumnya yang tentang Cara menghitung sin , cos , dan tan pada pascal

Langsung aja deh saya kasih sourcenya

2 : begin clrscr;

        writeln('Jika diketahui sudut');

        write(Masukan sudut alpha: ');readln(sd1);

                sin_alpha := sin(sd1/57.28);

                cos_alpha := cos(sd1/57.28);

                tan_alpha := sin_alpha/cos_alpha;

                arctan1   := arctan(tan_alpha)*57.28;

        writeln('Hasil sinus alpha : ', sin_alpha:0:3);

        writeln('Hasil cos alpha   : ', cos_alpha:0:3);

        writeln('Hasil tan alpha   : ', tan_alpha:0:3);

        writeln(Hasil arctan_alpha: ',arctan1:0:0);

        readn;

                goto awal end;

Note: 

Cara pakainya kalian copy source code diatas, lalu cari tulisan 2 : begin clrscr;

setelah tulisan itu kalian temukan, blog seluruh tulisan tadi, lalu pastekan code yang diatas

Jika ada kesalahan silahkan kirim atau bertanya kepada saya lewat pm email.

selamat mencoba :)