Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

var

 k,x: Integer;

 z: double;

begin

chart1.Series[1].Clear;

 x:=0;

 for k:=0 to count-1 do

 begin

 if (Series1.XValues.Value[k]=x) then

 begin

 z:=Series1.YValues.Value[k];

 massiv[k]:=z;

 Series2.AddXY(x,z,'',clTeeColor);

 if (abs(Series1.YValues.Value[k]) > maxi) then

 maxi:=abs(Series1.YValues.Value[k]);

 x:=x+CSpinEdit2.Value;

 end;

 end

end;

function fmod(x,y: Real): Real;

begin

 Result := x - (x / y) * y;

end;

Рекомендуем скачать другие рефераты по теме: реферат современный мир, бесплатный решебник.



Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки