Показать сообщение отдельно
  #5  
Старый 14.12.2010, 14:50
glorx glorx вне форума
Прохожий
 
Регистрация: 13.12.2010
Сообщения: 33
Репутация: 10
По умолчанию

т.е нужно изначально массив создавать?
И как туда записать все вычисления? например из 3х проделаных циклов?
и потом как из массива построить график, с TChart немогу разобраться..

вот фрагмент кодаэто после того как вводим кол-во режимов и нажимаем кнопку расчет)
Цитата:
procedure TForm1.btn6Click(Sender: TObject);
var i,n:Integer;
Lt,Ld,Zt,Zd,Ft,Fd,U,E,H,fod,fi1,e1,n1:real;
begin
EnterFrm.visible:=True;
n:=StrToInt(Form1.lbledt23.text);
fod:=strtofloat(Form1.lbledt20.Text);
for i:=1 to n do
begin
EnterFrm.lbl2.Caption:=IntToStr(i);
EnterFrm.ShowModal;
Lt:=StrTofloat(EnterFrm.lbledt21.text);
Ld:=StrTofloat(EnterFrm.lbledt22.text);
Zt:=StrTofloat(EnterFrm.lbledt28.text);
Zd:=StrTofloat(EnterFrm.lbledt29.text);
Ft:=Lt*165; //усилие тормоза
Fd:=Ld*195; // усилие двигателя
U:=Ft/2*fod; // коэф.тяги
E:=(1-(Zt/Zd))*100; // скольжение
H:=((Ft*Zt)/(Fd/Zd))*100; // КПД
end;

end;

как накапливать и записать массив?? подскажите что дальше нужно делать?
Ответить с цитированием