Hallo zusammen,
ich hab ein kleines Problem, ich will in einem Progamm eine ganz simple Tabelle mit Sinuswerten erzeugen. Hier mal der Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
z, x : single;
begin
x := 0; z := 0;
for i:= 0 to 200 do begin
x := sin(z);
z := z + ((2 * Pi) / 200);
Memo1.Lines.Add(IntToStr(i)+' : '+FloatToStr(x));
end;
end;
Das Problem ist das bei i=100 und i=200, für x unsinnige werte raus kommen: -1,1... und -2,2...
Ich weis das es schon mal einen Thread zu diesem Thema gab, finde ihn aber nicht mehr.
Kann mir einer dabei helfen?
Gruß
Trigiton