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

[Diller]

спасибо.

Вы не могли бы найти ошибки в моем коде.

[Diller]

кто -нить найдите ошибку.. ну нифига не понимаю..

[Alter]

Сообщение от Carbon

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

Строки и столбцы в Grid`ах являются типом TStrings.
Так что можно и так:

 
for j:=0 to ttable.RowCount-1 do
   ttable.Rows[ J ].Clear;

[Diller]

http://www.ugbereg.ru/magic.html как енто работает

[mutabor]

без математики даже магические квадраты не работают
все получаемые числа кратные девяти
P.S. с девушкой познакомился?

[Diller]

да. действительно

[Diller]

вот код исправленный!!!ошибка заключалась в том что во 2-м цикле необходимо поменять условие mindiam>=ogr

const pi=3.14;
var a,b,c,L,losk,x1,x2,D,xmax,ymin,ymax ,x,razr,rmax,r, xmin,
mindiam,maxdiam, ogr : real;
i,j,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);
for i:=0 to ttable.ColCount-1 do
for j:=0 to ttable.RowCount-1 do
ttable.Cells[i,j]:='';
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;
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[1,i+1]:=floattostr(V[i]);
x:=rmax;
until x>=xmax;
end;
end;
end
else

[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);
ogr:=x2-x1;
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;
edit8.Text:=floattostr(V[i]);
ttable.cells[2,i+1]:=floattostr(V[i]);
x:=x1;
mindiam:=maxdiam;
end;
until mindiam>=ogr;{ вот она тут была.. бьыло x>=xmin}
end;
end;
end;
end;
end;

[Diller]

вот архи проги считающий. Объем.. параболойда по сегментам.. мож кому понадобится...объем.rar