[glorx]

доброго времени суток всем! У меня такая задача никак нимогу осилить сам:
Задача для расчета и последующего построения графика по найденым значениям.

Суть: В ходе лабораторной мы делаем от 1 до N опытов.
Так вот нам нужно ввести кол-во режимов по которым сделаны замеры, вводим.
Далее пользователь вводит 4 показателя LT,LD,ZT,ZD снятых в ходе лабы.
Пошел расчет по формулам:

Код:

ft:=lt*165;
fd:=ld*195;
u:=ft*2*fod;
e:=(1-zt/zd)*100;
h:=(ft*zt)/(fd*zd)*100;

fod-было посчитано раньше и просто берется значение от туда.
Требуется чтобы после введения LT,LD,ZT,ZD происходил расчет и в зависимости от введенного кол-ва опытов он повторялся с новыми вновь введенными LT,LD,ZT,ZD, т.е если опытов 5 то ввели посчитали, записали в StringGrid, обнулили поля снова заполнили новыми значениями посчитали, записали и так далее!!!
В конце нужно начертить график зависимости . Построить графики зависимостей E и H от U.

Никак не могу осилить.. Прошу помоч с решением данной задачи!!!
Заранее спасибо!!!

[PhoeniX]

Помочь-то мы можем, но что именно не получается? Как насчёт выложить код и показать "проблемный участок"?

[glorx]

если нужен код то постараюсь завтра выложить! а вообще не могу догнать как организовать цикл для N опытов(как именно данные из формы забирать,потом опять вводить если опытов >1) и по результатам график построить!!
Как то вот не могу сообразить как это имеено в Delphi сделать грамотно!!

[lmikle]

можно сделать доп. формой, которая будет показываться для ввода данных при каждой итерации цикла.

Код:

uses
   EnterFrm; // форма для ввода данных

...

for i := 1 To N Do // N берется от пользователя - кол-во опытов
  begin
    EnterForm.ShowModal;
    LT := StrToInt(EnterForm.Edit1.text);
    ...
    // далее идет расчет и накопление значений в массиве
  end;

// теперь у нас есть массив данных, строим по нему график.

[glorx]

т.е нужно изначально массив создавать?
И как туда записать все вычисления? например из 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;

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

[Delphist]

А запустить цикл из N лабораторных религия не позволяет?

Код:

procedure TForm1.btn6Click(Sender: TObject);
var i,n,D:Integer;
Lt,Ld,Zt,Zd,Ft,Fd,U,E,H,fod,fi1,e1,n1:real;
begin
EnterFrm.visible:=True;
n:=StrToInt(Form1.lbledt23.text);
//============запускаем цикл====================
for d:=1 to n do
begin
//===============================
fod:=strtofloat(Form1.lbledt20.Text);
for i:=1 to n do
begin
EnterFrm.ShowModal;
EnterFrm.Caption:='Введите данные'+IntToStr(n)+' лабораторной';
EnterFrm.lbl2.Caption:=IntToStr(i);
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; // КПД
StringList1.Cells[0,n]:=//что ты хочешь вывести
end;
end;

end;

Admin: Пользуемся тегами для оформления кода!

ИЛИ Я тебя не правильно понял????

Ну а данные для TChart ты всегда можешь взять из StringList