PROGRAM SIN COS PADA PASCAL

Ini contoh program dari guru algoritmaku, namanya Pak Bambang :D

uses crt;
Var
   X : Integer;
   Sinus,
   Cosinus : Real;
Begin
     clrscr;
     Writeln('========================');
     Writeln('   X    Sinus   Cosinus ');
     Writeln('------------------------');


     X := 0;
     While X <=360 do
     Begin
     Sinus := Sin(X/57.2958);
     Cosinus := Cos(X/57.2958);
     Writeln(X:5,Sinus:10:5,Cosinus:10:5);
     X := X + 30;
     End;
     Writeln('==========================');
     readln;
End.

sumber : Pak Bambang :)