Program tabel sinus dan cosinus dalam satuan derajat

Berikut merupakan Program tabel sinus dan cosinus dalam satuan derajat menggunakan bahasa Pascal dengan menggunakan statement WHILE.

• SOURCE CODE

Program tabel_sinus_dan_cosinus_dalam_satuan_derajat;
uses crt;
var
   x, y, f : real;
   i, n : integer;
begin
clrscr;
     writeln;
     writeln('***TABEL SINUS DAN COSINUS DALAM SATUAN DRAJAD***');
     writeln('****************************************************************');
     writeln;
     write('Masukkan sudut dalam satuan drajad : ');readln(n);
     writeln;
     writeln('       x           sin(x)          cos(x)     ');
     writeln('-----------------------------------------------------');
     while (i <= n) and (n <= 360) do
     begin
          x := n*(pi/180);
          y := cos(x);
          f := sin(x);
          writeln('|        ',n,'           |      ',f:1:2,'         |     ',y:1:2,'       |');
          i := i + 361;
    end;
    writeln('-------------------------------------------------------');
readkey;
end.

• PENJELASAN SOURCE CODE

Program tabel_sinus_dan_cosinus_dalam_satuan_derajat;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   x, y, f : real;     {Inisiasi variabel}
   i, n : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     writeln;     {Cetak baris}
     writeln('***TABEL SINUS DAN COSINUS DALAM SATUAN DRAJAD***');     {***TABEL SINUS DAN COSINUS DALAM SATUAN DRAJAD***}
     writeln('*****************************************************************');     {****************************************************************}
     writeln;     {Cetak baris}
     write('Masukkan sudut dalam satuan drajad : ');     {Cetak Masukkan sudut dalam satuan drajad :}
     readln(n);     {Baca variabel n}
     writeln;     {Cetak baris}
     writeln('      x           sin(x)           cos(x)        ');     {Cetak     x          sin(x)         cos(x)    }
     writeln('--------------------------------------------------------');     {Cetak -----------------------------------------------------}
     while (i <= n) and (n <= 360) do     {Pengecekan statement while apakah i <= n dan n <= 360 jika ya kerjakan statement di bawah}
     begin     {Awal instruksi program}
         x := n*(pi/180);     {Counter perkalian dan pembagian x}
         y := cos(x)     {Nilai awal y}
         f := sin(x);     {Nilai awal f}
         writeln('|          ',n,'          |        ',f:1:2,'       |      ',y:1:2,'     |');     {Cetak variabel n, variabel f, variabel y}
         i := i + 361;     {Counter penjumlahan i}
    end;     {Akhir instruki kondisi}
    writeln('---------------------------------------------------------');     {Cetak ----------------------------------------------}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program           : Tabel sinus dan cosinus dalam satuan derajat
• Source Code .pdf      : .:_Download_:.
• Flowchart .png         : .:_Download_:.
• Program .pas            : .:_Download_:.
• Password                  : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.