Contoh Program untuk mencari sudut trigonometri

Berbagi ilmu pengetahuan  tentang pemrograman komputer  kali ini  adalah Contoh Program  untuk mencari  sudut  trigonometri  dengan program pascal. Teori dasarnya adalah  sebagai berikut :

Nilai sudut  dengan satuan derajat harus dikonversi menjadi satuan radian dengan rumus matematikanya adalah :
              180 derajat = Phi  radian
              1   derajat  = phi / 180  radian
             N    derajat =  N x  (Phi / 180) radian , dimana  N adalah bilangan sudut

Misalkan N = 60 derajat,maka  harus dikonversi lebih dahulu ke satuan radian menjadi 

  x = 60 x  (phi/180) =  phi/3

Hasil  x kemudian  digunakan untuk menghitung sudut trigonometri dengan pernyataan  Sin(x),  cos(x). dan tangen (x) = sin(x)/cos(x)

Algoritma Program:

1.    Mulai
2.    Tentukan  nilai sudut
3.    Konversi nilai  sudut ke satuan radian
4.    Hitung sudut  trigonometri
5.    Cetak hasilnya
6.    Selesai

Dalam  contoh program untuk mencari sudut trigonometri  ini, akan menghitung nilai sudut  10 sampai 100 derajat dengan menggunakan loop  While – do.

Kode program Pascal sebagai berikut :

Program Trigonometri;
uses crt;

var x,y,z,p  : real;
    i,n    : integer;

Begin
clrscr;
 n:=10;
 writeln('Sudut ','Sinus','     ','Cosinus','    ','Tangen');
 writeln('=====================================');
 while n<=100 do
 Begin
     x:= n*(pi/180); {konversi satuan derajat ke satuan radian}
     y:=sin(x);
     z:=cos(x);
     p:=y/z;            {Nilai tangen = sin(x)/cos(x)}
     writeln(n,'   ',y:8:6,'   ',z:8:6,'   ',p:8:6);
     n:= n + 5;
 End;
 readln;
 End.


Output program  seperti pada gambar berikut:


Demikian Contoh Program  untuk mencari  sudut  trigonometri, semoga bermanfaat. Bila  anda punya komentar atau perntanyaan, silakan tuliskan pada bagian komentar. Terima kasih.



Belajar Cari Duit Online

3 komentar:

  1. Gan menghitung trigonometri dengan pseudo code gimana??


    BalasHapus
    Balasan
    1. pseudo codenya Trigonometri :

      Kamus :
      var x,y,z,p : real;
      i,n : integer;
      n ← 10 or input (n)
      while n<100 do
      Begin
      x ← n
      y ← sin(x)
      z ← cos(x)
      p← y/x
      output(y,z,p)
      n←n+5
      End

      Hapus

Silakan memberikan komentar dan pertanyaan yang sifatnya positif.