@NetWebs: Falls du es ausprobieren möchtest, hier der Downloadlink für Lazarus:
http://www.lazarus.freepascal.org/in...page=downloads
Mein Quellcode:
program project1;
{$mode objfpc}{$H+}
{$APPTYPE CONSOLE}
uses
sysutils, windows, Console,math;
VAR gamma,cosa:double;
BEGIN
ReadLn (gamma);
Cosa:=Cos (gamma);
WriteLn (cosa:2:1);
ReadLn ();
End.
Dauert vll. 2 Minuten.
Und hier nocheinmal das Pascal-Wiki. Es beschreibt, dass der Cos nur bei Bogenmaßen eingesetz werden kann:"cos cosine of a RADIAN measure ".