Rabu, 21 Desember 2011

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

4 komentar:

  1. wah programer aritmatika dasarnya sangat bermanfaat nih sobat....

    BalasHapus
  2. wew, pascal lageee...
    hadeehh..
    punyeng
    haha :D

    BalasHapus
  3. @Outbound Malang:hahhaa thu program yg dlu ane pelajari swktu kul sob..krna berhubungan dkomputer ane bnyk prog.pascal hsil pel. dikul sayang kl dihpus so ane sharing j sp tw ada yg butuh... ^_^

    BalasHapus

Mohon tinggalkan jejak/komentar sobat disini. Dilarang SPAM. Okey...