Contoh Program Aritmatika - Pascal

Dibawah ini adalah program Aritmatika (Sinus, Cosinus, Tangen) menggunakan bahasa pascal.

program aritmatik;
uses wincrt;
var
  x:real;
begin
     clrscr;
     gotoxy (18,3); writeln ('PROGRAM MENGHITUNG SINUS, COSINUS DAN TANGEN');
     gotoxy (18,4); writeln ('--------------------------------------------');
     gotoxy (18,5); write('Masukkan nilai dari x= ');
     readln(x);

         if x <0 then x:=abs(x);
     gotoxy (18,6); writeln('nilai x=',x:5:2);
     gotoxy (18,7); write('nilai x jika dimasukkan dalam fungsi sin,cos,tangen');
     writeln;
     gotoxy  (18,8); writeln('-sinus =  ',sin(x):9:3);
     gotoxy  (18,9); writeln('-cosinus= ',cos(x):9:3);
     gotoxy (18,10); writeln('-tangen= ',arctan(x):9:3);
end.

Hasilnya :

Related Post