sinus, cosinus, tangen???mungkin bukan hal yg asing lagi bagi kita dengar...mendengar ketiga kata tersebut pasti kita akan teringat penghitungan sudut matematika/ trigonometri...tapi bukan itu yg akan dibahas.
disiini penulis akan menyajikan listing untuk mencari nilai mutlak dari sinus, kosinus, dan tangen, tentunya dengan menggunakan bahasa pascal...hehehe
PROGRAM INPUT;
USES CRT;
VAR
F:REAL;
BEGIN
CLRSCR;
TEXTCOLOR(WHITE);
WRITELN('*****************************************');
WRITELN('PROGRAM MENCARI NILAI ABSOLUT,SIN,COS,TAN');
WRITELN('*****************************************');
TEXTCOLOR(LIGHTGREEN);
WRITE(' ==> MASUKKAN NILAI F : ');READLN(F);
WRITELN(' ==> 1.NILAI ABSOLUT DARI F : ',ABS(F):1:3);
WRITELN(' ==> 2.NILAI SINUS DARI F : ',SIN(F):1:3);
WRITELN(' ==> 3.NILAI COSINUS DARI F : ',COS(F):1:3);
WRITELN(' ==> 4.NILAI TANGEN DARI F : ',ARCTAN(F):1:3);
TEXTCOLOR(WHITE);
WRITELN('*****************************************');
WRITELN('*****************************************');
READKEY;
USES CRT;
VAR
F:REAL;
BEGIN
CLRSCR;
TEXTCOLOR(WHITE);
WRITELN('*****************************************');
WRITELN('PROGRAM MENCARI NILAI ABSOLUT,SIN,COS,TAN');
WRITELN('*****************************************');
TEXTCOLOR(LIGHTGREEN);
WRITE(' ==> MASUKKAN NILAI F : ');READLN(F);
WRITELN(' ==> 1.NILAI ABSOLUT DARI F : ',ABS(F):1:3);
WRITELN(' ==> 2.NILAI SINUS DARI F : ',SIN(F):1:3);
WRITELN(' ==> 3.NILAI COSINUS DARI F : ',COS(F):1:3);
WRITELN(' ==> 4.NILAI TANGEN DARI F : ',ARCTAN(F):1:3);
TEXTCOLOR(WHITE);
WRITELN('*****************************************');
WRITELN('*****************************************');
READKEY;
selamat mencoba kawannnn.... (rr-lan.blogspot.com)
1 Response to "mencari nilai sin,cos,tan"
benar nggak to tan sin cos 30 hasilnya macam tu?
Posting Komentar