csm-akmi.co.cc

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;

end.

hasilnya >>

selamat mencoba kawannnn.... (rr-lan.blogspot.com)