Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

СПАСИТЕЕЕЕЕ!!!!

Страницы: < 1 2 3 >
Reaper85 © (2006-11-01 23:18:00)
товарищи профы....помогите пожалуйста..
есть функция
H:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)))
где Vr:=Vr+step
k,t и tau задается, а также кол-во точек расчета....
надо нарисовать в чарте графиг H(Vr) так чтобы при Vr<=tau шел один шаг а для tau<Vr<=T шел шаг побольше, а для Vr>T третий еще больше.... Оченььь надо СРочно.....ПОЖАЛУЙСТА ПОМОГИТЕ!!!

Старуха 87 (2006-11-02 01:56:00) [21]
А учебники, книги вам запрещают читать под страхом смерти?

Пиши:

end;

REaper85 (2006-11-02 01:55:00) [22]
да не двоешник...просто нам ни чегошеньки не объясняют...думайте мол сами....вы, мол, будущие инженеры....а потом сами жалуются типа: вам че простейших вещей не объясняли......вот так и живем..

Старуха 87 (2006-11-02 01:53:00) [23]
Сейчас же впишет точку с запятой в комментарии, и будет удивлятся, что опять не компилируется. Гы-гы...

Ketmar (2006-11-02 01:52:00) [24]
>[30] REaper85(c) 2-Nov-2006, 01:51
quousque tandem???
http://antigreen.org/bioreactor/

REaper85 (2006-11-02 01:51:00) [25]
не......кабы все заработало...потом дописал про график и....все перестало работать....

Старуха 87 (2006-11-02 01:51:00) [26]
Осталось только нам тут строки твои считать.
Где эта твоя 129-я строка?
End//6 - эта?
Поставь точку с запятой в конце, двоешник!

Ketmar (2006-11-02 01:49:00) [27]
интересно, как она заработало, если даже не скомпилялось? круты нонешние студиозусы...

REaper85 (2006-11-02 01:48:00) [28]
Все уже давно сделал
//Отображение расчета в графичесских элементах
With StringGrid1 Do
Begin//6
Cells[0,I]:=FloatToStrF(Vr,ffFixed,8,5);
Cells[1,I]:=FloatToStrF(H,ffFixed,8,5);
RowCount:=RowCount+1;
End//6
//Отображение на графике
Series1.AddXY(Vr,H,'',clTeeColor);
End//1
end;

.....заработало...теперь думаю почему о мне H одни нули считает..и почему такая штука пишеться...:

[Error] Unit1.pas(129): Missing operator or semicolon

и указывает на Series..

Старуха 87 (2006-11-02 01:43:00) [29]
Тебе ж уже сказали в [23]:

with StringGrid1 do
begin
Cells[0, I] := FloatToStrF(Vr, ffFixed, 8, 5);
Cells[1, I] := FloatToStrF(H, ffFixed, 8, 5);
end;

Старуха 87 (2006-11-02 01:41:00) [30]
Cells[1,I] : = FloatToStrF(H,ffFixed,8,5);

REaper85 (2006-11-02 01:39:00) [31]
ага все прописал....но опять какаято беда....:

[Error] Unit1.pas(125): Undeclared identifier: 'Cells'

указывает на последний Cells....я поменял ; на : все равно енто пишет...вот предыдущий му нравиться а последний нет...

Gero (2006-11-02 01:37:00) [32]
> If M<=T then
> step:=step2;
> Vr:=Vr+step;
> H:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)));
> Else
> step:=step3;
> Vr:=Vr+step;
> H:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)));

Здесь то же самое.

> With StringGrid1 Do
> Cells[0,I]:=FloatToStrF(Vr,ffFixed,8,5);
> Cells[1,I];=FloatToStrF(H,ffFixed,8,5);

И здесь.

Gero (2006-11-02 01:36:00) [33]
> If M<=0 Then
> step:=step1;
> Vr:=Vr+step
> Else

begin и end забыл.

Старуха 87 (2006-11-02 01:35:00) [34]
Операторные скобки в институте теперь не учат?

begin
//...
end

На всякий begin обязательно должен быть свой end.

REaper85 (2006-11-02 01:30:00) [35]
Ладно...хоть подскажите где здесь ошибка:

//Расчет вспомогательных переменных
step1:=tau/3;
step2:=T/10;
step3:=T/5;

//расчет дополнительных переменных
M:=Vr-tau;

//Задание начальных условий
Vr:=-step;
Series1.Clear;

//Расчет по алгоритму выходных переменных
For I:=1 To N Do
Begin //1
If M<=0 Then
step:=step1;
Vr:=Vr+step
Else
Begin//2
If M<=T then
step:=step2;
Vr:=Vr+step;
H:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)));
Else
step:=step3;
Vr:=Vr+step;
H:=K*((Vr-tau)-T*(1-Exp(-(Vr-tau)/T)));
End;//2

//Отображение расчета в графичесских элементах
With StringGrid1 Do
Cells[0,I]:=FloatToStrF(Vr,ffFixed,8,5);
Cells[1,I];=FloatToStrF(H,ffFixed,8,5);
End//1

Пишет:

[Error] Unit1.pas(104): 'END' expected but 'ELSE' found

причем выделяет первый Элсе...

REaper85 (2006-11-02 01:14:00) [36]
в чарте рисуется график:

Series1.AddXY(Vr,w,'',clTeeColor);

и еще табличка

//Отображение расчета
With StringGrid1 Do
Begin//5
Cells[0,I]:=FloatToStrF(Vr,ffFixed,8,4);
Cells[1,I]:=FloatToStrF(w,ffFixed,8,4);
End;//5

Старуха 87 (2006-11-02 01:11:00) [37]
//расчет вспомогательных переменных
step1 := tau/10;
step2 := T/10;
step3 := T/100;

//задание начальных условий
Vr := -step;
Series1.Clear;

//расчет переходной функции, согласно задания
for I := 1 to N do // мне это не нравится
begin //2
if Vr <= tau then
step := step1
else if Vr < T than
step := step2
else
step := step3;

Vr := Vr + step;

if Vr <= tau then
w:=0
else
w := K*((Vr - tau) - T*(1 - Exp(-(Vr - tau)/T)));

// значение куда-то выводиться будет?
end;

REaper85 (2006-11-02 01:08:00) [38]
блин....стандарты...не обучали нас стандартам....показали как похожую (но естественно элементарную) задачу решить, дали задание и вперед с песней...а к преподу не подойти проконсультироваться....старухе 87 лет..у нее маразм на всю голову не понимает что вокруг происходитююювот и выкручиваемся как можем...лутше скажите может кто нибудь что нибудь посоветовать???или мне все таки придется самому...

Gero (2006-11-02 01:01:00) [39]
> [14] REaper85 © (02.11.06 00:56)

Оформи нормально код, по стандартам VCL, это же читать невозможно.

REaper85 (2006-11-02 00:58:00) [40]
думал step3 сделать....Vr2 задать...пробовал черездругие переменные выразить..не доходит...

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »