Zitat von
Jelly:
200x200x200=800.000
Das mit dem Diplom (oder Doktor
) wird nichts! 200^3 = 8.000.000 (8 Millionen!)
Unabhängig davon, sind ca. 13 Sekunden für 8Mio Werte wirklich zu viel?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Start, Stop, Freq: Int64;
I: Integer;
Id: Double;
begin
QueryPerformanceCounter(Start);
for I := 1 to 8000000 do
begin
Id := I;
Format('%.4f', [Id]);
end;
QueryPerformanceCounter(Stop);
QueryPerformanceFrequency(Freq);
Label1.Caption := Format('%f ms', [(Stop - Start) * 1000 / Freq]);
end;
...
...