Другие языки программирования и технологии

Кто знает Delphi. Дам 10 баллов!!

Как мне связать Stringgrid и эту прогу для нахождения определителя матрицы 5*5

Или в чем ошибка.

procedure TForm1.Button1Click(Sender: TObject);
const n=5;
var r,l,p,m,i,j,k,d,t,f:integer;
c,v:real;
a:array[1..n,1..n] of integer;
begin
r:=1;
for k:=1 to n-1 do
begin
if a[k,k]='0' then
begin
l:=k ;
for m:=k+1 to n do
if abs(a[m,k])>abs(a[l,k]) then
l:=m;
if l=k then d:=0;
for j:=k+1 to n do
begin
p:=a[k,j];
a[k,j]:=a[i,j] ;
t:=a[l,j];
t:=p;
r:=-r;
end;
end;
for i:=k+1 to n do
begin
c:= a[i,k])/a[k,k];
f:=a[i,k] ;
f:=0;
for j:=k+1 to n do
v:=a[i,j];
v:=a[i,j]-c*a[k,j] ;
end;
end;
d:=1;
for i:=1 to n do
d:=d*a[i,i];
d:=d*r;
label8.Caption:='d='+inttostr(d);

end;
end.
насколько я понял, то тебе надо просто прочитать данные с ячеек стринггрид в твой масив а
www.beluch.ru/progr/100comp/3_3_6.htm вот описание StringGrid

P.S. если что пиши на почту
Санёк В.....
Санёк В.....
3 387
Лучший ответ
нет у вас прав баллы раздавать!!!
Алексей Шеховцов почему? я же имею право за лучший ответ давать 10
Связь с StringGrid такая же как и с TLabel.
Только у Label свойство Caption, а у StringGrid свойство Cells
Соотвественно можно массив загнать следующим кодом

for i := 0 to n-1 do
for j := 0 to n-1 do
StringGrid1.Cells[ i,j] := IntTostr (a[ i,j ] );

Ну и прочитать
for i := 0 to n-1 do
for j := 0 to n-1 do
a [ i,j ] := StrToInt(StringGrid1.Cells[ i, j ]);

Только массив a нужно объявить в Public и Private секции
Tform1
и сравнение if a[k,k]='0' не имеет смысла из-за разницы в типах.

P.S. Судя по моим предыдущим ответам 10 баллов достанутся
Каету или Cray Good by.
Денис Кузнецов
Денис Кузнецов
13 991
немучяйтесь а поставьте программу EVEREST Ultimate Edition там всё видно и нет проблем.
Алексей Шеховцов А она для чего?
Алексей Шеховцов Вы хоть поняли мой вопрос и при чем тут ваша прога
бугага несдержался убил ответ сверху
Алексей Шеховцов помогите вы
Ну чувак ты конечно про EVEREST загнал :-D я просто падаю))))))))) ) может еще NERO посоветуешь? точно ламер какой то)) ) А почему просто в эмуляторе паскаля не написать? Дельфи он ведь типа ООП.. . ну вобщем некогда сейчас разбераться.. . не вижу ошибки, сплю еще)) ) извини.
Eren Sarbaliev
Eren Sarbaliev
3 488
Алексей Шеховцов d выводит через label
просто как связать stringgrid?