Program Tabel Sinus dan Cosinus dengan Pascal

Assalamu’alaikum Wr. Wb.

Hari ini saya akan membuat program tabel sinus dan cosinus dalam satuan derajat dengan menggunakan bahasa pascal.

Alat yang kalian perlukan hanyalah sebuah IDE (Integrated Development Environment).

Jika kalian menggunakan komputer, kalian bisa gunakan aplikasi Lazarus. Jika kalian menggunakan handphone, kalian bisa gunakan aplikasi Pascal N-IDE atau Dcoder.

Tanpa banyak basa-basi lagi, mari kita langsung masuk saja ke pembahasannya

program tugas3_2;
uses crt;
var
  i : Integer;
  sinus, cosinus, x : real;
begin
  clrscr();
 
  writeln('TABEL SINUS DAN COSINUS DALAM SATUAN DERAJAT');
  writeln;
  writeln('x                sin(x)               cos(x)');
  writeln('--------------------------------------------');
 
  i := 0;
 
  while i <= 360 do
    begin
      x := i/57.2958;
      sinus := sin(x);
      cosinus := cos(x);
      writeln(i,'               ',sinus:5:2,'               ',cosinus:5:2);
      i := i + 30;
    end;
  readln;
end.

Maka outputnya sebagai berikut:

Penjelasan syntaxnya sebagai berikut

program tugas3_2; //nama program
uses crt; //impor library
var //deklarasi variabel
  i : Integer;
  sinus, cosinus, x : real;
begin
  clrscr();
 
  writeln('TABEL SINUS DAN COSINUS DALAM SATUAN DERAJAT'); //menampilkan tulisan
  writeln;
  writeln('x                sin(x)               cos(x)');
  writeln('--------------------------------------------');
 
  i := 0; //membuat variabel i
 
  while i <= 360 do //apabila var i kurang dari sama dengan 360, maka...
    begin
      x := i/57.2958; //varian x sebagai berikut
      sinus := sin(x); //variabel sinus adalah sinus dari variabel x
      cosinus := cos(x); //variabel cosinus adalah cosinus dari variabel x
      writeln(i,'               ',sinus:5:2,'               ',cosinus:5:2); //menampilkan output
      i := i + 30; //increment agar variable i lompat 30 angka
    end; //akhir dari while
  readln; //menampilkan program ke layar
end.