Курсовая работа: Программная реализация разложения временного процесса в тригонометрический ряд

k : integer;

time : extended;

y: extended;

begin

k:= 0;

time:= TimeStart;

 if w=1 then

while (time <= TimeEnd) do

begin

inc(k);

y:= F(w, time);

Form1.StringGrid1.Cells[2,k]:= FloatToStrF(y , ffFixed, 5, 3);

time:= time + TimeStep;

end

 else if w=3 then

while (time <= TimeEnd) do

begin

inc(k);

y:= F(w, time);

Form1.StringGrid1.Cells[3,k]:= FloatToStrF(y , ffFixed, 5, 3);

time:= time + TimeStep;

end

 else if w=5 then

while (time <= TimeEnd) do

begin

inc(k);

y:= F(w, time);

Form1.StringGrid1.Cells[4,k]:= FloatToStrF(y , ffFixed, 5, 3);

time:= time + TimeStep;

К-во Просмотров: 773
Бесплатно скачать Курсовая работа: Программная реализация разложения временного процесса в тригонометрический ряд