Erstellen einer Tabelle mit Sinus- und Cosinus Werten

[hamptoncourt]

Also sieht mein Quellcode aus, wie ich ihn jetzt für zwei Datein habe ...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
   s, c : String;
   x : Integer;
begin
   assignfile(f,'SinWerte.txt'); // Erste Tabelle erstellen
   rewrite(f);

   for x:=0 to 900 do
    begin
     s:=floattostr(sin((x/10)*(pi/180)));
     write(f, s);
    end;

    closefile(f);

   assignfile(f,'SinWerte.txt');   // Zweite Tabelle erstellen
   rewrite(f);

   for x:=0 to 900 do
    begin
     c:=floattostr(cos((x/10)*(Pi/180)));
     write(f, c);
    end;

    closefile(f);

end;

Und so hatte ich es versucht, das in eines zu packen ...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
   s, c : String;
   x : Integer;
begin
   assignfile(f,'Werte.txt');
   rewrite(f);

   for x:=0 to 900 do
    begin
     s:=floattostr(sin((x/10)*(pi/180)));
     c:=floattostr(cos((x/10)*(Pi/180)));
     write(f, s, c);
    end;

    closefile(f);

end;

Aber hast recht, der schreibt dann ja in eine Zeile z.B.
0,001745328365890,99999847691328

Wenn er die komplette Zeile einmal so liest, dann kommt nur blödsinn raus ...