Код
repeat
Read(f_in,d);
SinCos(j*2*pi*k/N,s1,c1);
A1:=d.Zn*c1;
SA:=SA+A1;
B1:=d.Zn*s1;
SB:=SB+B1;
k:=k+1;
until k>N-1;
Read(f_in,d);
SinCos(j*2*pi*k/N,s1,c1);
A1:=d.Zn*c1;
SA:=SA+A1;
B1:=d.Zn*s1;
SB:=SB+B1;
k:=k+1;
until k>N-1;
В файле более 50000 значений. Такой цикл выполняется несколько томительных секунд. Может кто знает: как ускорить его выполнение?
Сообщение отредактировано: volvo -