динамический массив

[Diller]

доброго времени суток, Дмитрий..
на мой взгляд все вроде правилльно..
если только вот если цикл в цикле не правильно работает.. если Вас не затруднит не могли бы объяснить в чем тут дело??

[Carbon]

edit6.Text:=floattostr(razr);
razmer:=strtoint(edit6.Text);

Это такой способ преобразования float -> integer?
razmer:=trunc(razr);

Чему равен razmer?

Сколько строк у ttable?

[Diller]

Это такой способ преобразования float -> integer?

да.. глупо конешно , но я в делфи 2 неделю и никогда программированием не занимался..(делфи 1 язык), потому ничиго более оригинального не придулал

Чему равен razmer?

razr:=round(L/losk);
edit6.Text:=floattostr(razr);
razmer:=strtoint(edit6.Text);

Сколько строк у ttable?

я задал 30 ,но желательно чтоб менялось в зависимости от переменной razmer

[Diller]

прикрепил файл с идеей ,чтобы легче было понять смысл моих расчетов

[Diller]

у меня еще вопрос. как взять данные, записанные в таблице, stringgrid/
ну или у меня ttable.cells[i+1,1]:=floattostr(V[i]); чтобы использовать эти данные в дальнейших расчетах??

[Carbon]

Так же и брать: ttable.cells[i+1,1]

[Diller]

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

[Diller]

ниже приведенный код проги работает до выделенного красным цветом . дальше ошибка, не могли бы её найти

код

const pi=3.14;
var a,b,c,L,losk,x1,x2,D,xmax,ymin,ymax ,x,razr,rmax,r,xmin,
mindiam,maxdiam : real;
i,razmer:integer;
V: array of real;
begin
a:=strtofloat(Edit1.text);
b:=strtofloat(Edit2.text);
c:=strtofloat(Edit3.text);
losk:=strtofloat(Edit4.text);
L:=strtofloat(Edit5.text);

if a<0 then
begin
showmessage('Неправильно введено значение a. А -СТРОГО ПОЛОЖИТЕЛЬНОЕ ЧИСЛО');
end
else
begin
if abs(a)<0.000001 then
begin
if b=0 then
showmessage('При a=0 неправильно введено значение b. b - не равно "0"')
else
begin
razr:=round(L/losk);
edit6.Text:=floattostr(razr);
razmer:=strtoint(edit6.Text);
edit7.Text:=floattostr(razmer);
SetLength(V,razmer);
x:=10;
ymin:=b*(10)+c+losk;
edit8.Text:=floattostr(ymin);
ymax:=L+ymin;
xmax:=(ymax-c-losk)/b;
edit8.Text:=floattostr(xmax);
for i:=0 to razmer-1 do
begin
repeat
ymin:=b*x+c+losk;
ymax:=losk+ymin;
rmax:=(ymax-c)/b;
r:=(rmax+x)/2;
V[i]:=pi*r*r*losk;
ttable.cells[i+1,1]:=floattostr(V[i]);
x:=rmax;
until x>=xmax;
end;
end;
end
else
begin
razr:=round(L/losk);
edit6.Text:=floattostr(razr);
razmer:=strtoint(edit6.Text);
edit7.Text:=floattostr(razmer);
SetLength(V,razmer);
ymax:=L+a*(-10+(-b/(2*a)))*(-10+(-b/(2*a)))+b*(-10+(-b/(2*a)))+c+losk;
d:=b*b - 4*a*(c-ymax);
if d<0then
begin
showmessage('Неправильно введены a,b или c');
end
else
begin
x1:=(-b - sqrt(d))/(2*a);
{ x2:=(-b + sqrt(d))/(2*a); }
xmin:=x1;{до этого значения считаем в цикле}
mindiam:=20;{условие мин диаметра}
x:=-10+((-b)/(2*a));
for i:=0 to razmer-1 do
begin
repeat
ymin:=a*(x+(-b/(2*a)))*(x+(-b/(2*a)))+b*(x+(-b/(2*a)))+c+losk;
ymax:=ymin+losk;
d:=b*b - 4*a*(c-ymax);
if d<0then
begin
showmessage('Неправильно введены a,b или c');
end
else
begin
x1:=(-b - sqrt(d))/(2*a);
x2:=(-b + sqrt(d))/(2*a);
maxdiam:=x2-x1;
r:=((maxdiam/2)+(mindiam/2))/2 ;
V[i]:=pi*r*r*losk;
ttable.cells[i+1,2]:=floattostr(V[i]);
mindiam:=maxdiam;
x:=x1;
end;
until x>=xmin;
end;
end;
end;
end;
end;

[Diller]

вот не работающая часть begin
razr:=round(L/losk);
edit6.Text:=floattostr(razr);
razmer:=strtoint(edit6.Text);
edit7.Text:=floattostr(razmer);
SetLength(V,razmer);
ymax:=L+a*(-10+(-b/(2*a)))*(-10+(-b/(2*a)))+b*(-10+(-b/(2*a)))+c+losk;
d:=b*b - 4*a*(c-ymax);
if d<0then
begin
showmessage('Неправильно введены a,b или c');
end
else
begin
x1:=(-b - sqrt(d))/(2*a);
{ x2:=(-b + sqrt(d))/(2*a); }
xmin:=x1;{до этого значения считаем в цикле}
mindiam:=20;{условие мин диаметра}
x:=-10+((-b)/(2*a));
for i:=0 to razmer-1 do
begin
repeat
ymin:=a*(x+(-b/(2*a)))*(x+(-b/(2*a)))+b*(x+(-b/(2*a)))+c+losk;
ymax:=ymin+losk;
d:=b*b - 4*a*(c-ymax);
if d<0then
begin
showmessage('Неправильно введены a,b или c');
end
else
begin
x1:=(-b - sqrt(d))/(2*a);
x2:=(-b + sqrt(d))/(2*a);
maxdiam:=x2-x1;
r:=((maxdiam/2)+(mindiam/2))/2 ;
V[i]:=pi*r*r*losk;
ttable.cells[i+1,2]:=floattostr(V[i]);
mindiam:=maxdiam;
x:=x1;
end;
until x>=xmin;
end;
end;
end;
end;
end;

[Carbon]

а как очистить таблицу поле расчета..

for i:=0 to ttable.ColCount-1 do
for j:=0 to ttable.RowCount-1 do
ttable.Cells[i,j]:='';