Как мне связать 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.
Другие языки программирования и технологии
Кто знает Delphi. Дам 10 баллов!!
насколько я понял, то тебе надо просто прочитать данные с ячеек стринггрид в твой масив а
www.beluch.ru/progr/100comp/3_3_6.htm вот описание StringGrid
P.S. если что пиши на почту
www.beluch.ru/progr/100comp/3_3_6.htm вот описание StringGrid
P.S. если что пиши на почту
нет у вас прав баллы раздавать!!!
Алексей Шеховцов
почему? я же имею право за лучший ответ давать 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.
Только у 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.
немучяйтесь а поставьте программу EVEREST Ultimate Edition там всё видно и нет проблем.
Алексей Шеховцов
А она для чего?
Алексей Шеховцов
Вы хоть поняли мой вопрос и при чем тут ваша прога
бугага несдержался убил ответ сверху
Алексей Шеховцов
помогите вы
Ну чувак ты конечно про EVEREST загнал :-D я просто падаю))))))))) ) может еще NERO посоветуешь? точно ламер какой то)) ) А почему просто в эмуляторе паскаля не написать? Дельфи он ведь типа ООП.. . ну вобщем некогда сейчас разбераться.. . не вижу ошибки, сплю еще)) ) извини.
Алексей Шеховцов
d выводит через label
просто как связать stringgrid?
просто как связать stringgrid?
Похожие вопросы
- Тем кто хорошо знает HTML(Внутри) За хорошиий ответ дам 10 баллов
- народ кто поможет дам 10 баллов
- я по поводу Visual Basic за нормальный ответ дам 10 баллов
- решите плиз задачу на Турбо Паскале дам 10 баллов
- Кто хорошо разбирается в кампах помогиде дам 10 баллов
- помогите по Delphi (10 баллов)
- Помогите с созданием слайдшоу на dvd...(дам сразу 10 баллов)
- Помогите пожалуйста избавиться от "синего экрана смерти"! кто поможет, тому +10 баллов гарантирую!
- Срочно! Даю 10 баллов!
- Решите пожалуйста, кто решит, дам 20 баллов