Erstellen einer Tabelle mit Sinus- und Cosinus Werten

[sx2008]

0 bis 90 Grad in 0,1 Grad Schritten - das sind dann wohl 901 Einzelwerte, oder?

Delphi-Quellcode:

type
  TSinCosTabelle = array[0..900] of double;
var
  SinusTabelle : TSinCosTabelle;
  CosinusTabelle : TSinCosTabelle;

for i := 0 to 900 do
begin
  SinusTabelle[i]   := Sin( ???);
  CosinusTabelle[i] := Cos( ??? );
end;