Cos Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Der Befehl "cos" liefert in Turbo Pascal als Wert den Kosinus der Variablen (in Gradmaß umgerechnet).

Deklaration

function Cos(i : Real) : Real;

Beispiel

var i : real;

begin
    writeln('Geben sie den Wert ein');
    readln(i);
    i:=cos(2*pi * i/360);
    writeln('Der Kosinus = ',i:4:2);
end.