двумерный массив

[Fufichek]

Дамы и Господа,может кто знает в чём ошибка в этой строке?
if c[i,j]<0 then c[i,j]:=s;




unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
OpenDialog1: TOpenDialog;
Button4: TButton;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
,
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
c:array of array of real;
m:byte;
s:real; i,j:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
F:TextFile;
ST:string;

begin
If OpenDialog1.Execute then
Begin
AssignFile(f,OpenDialog1.FileName);
Reset(F);
Readln(F,m);
StringGrid1.RowCount:=StringGrid1.F ixedRows + m;
StringGrid1.ColCount:=StringGrid1.F ixedCols + m;
For i:=0 to m do
StringGrid1.Cells[0,i]:=IntToStr(i);
For j:=0 to m do
StringGrid1.Cells[j,0]:=IntToStr(j);
For i:=1 to m do
For j:=1 to m do
begin
Readln(F,ST);
StringGrid1.Cells[j,i]:=ST;
end;
CloseFile(f);
end
else
ShowMessage('Файл не был выбран!');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
S:=0;
m:=StringGrid1.ColCount - 1;
m:=StringGrid1.RowCount - 1;
For i:=1 to m do
For j:=1 to m do

if i=j then
begin
S:=S+StrToFloat(StringGrid1.Cells[j,i]);

end;
Edit1.text:=FloatToStr(S)
end;



procedure TForm1.Button3Click(Sender: TObject);
Var P:real;
begin
P:=1;
m:=StringGrid1.ColCount - 1;
m:=StringGrid1.RowCount - 1;
For i:=1 to m do
For j:=1 to m do
begin
if i=j then
begin
P:=P*StrToFloat(StringGrid1.Cells[j,i]);

end
end;
Edit2.text:=FloatToStr(P)
end;

procedure TForm1.Button4Click(Sender: TObject);
var i,j:integer;
begin
for i:=0 to m-1 do
for j:=0 to m-1 do
if c[i,j]<0 then c[i,j]:=s;
for i:=0 to m-1 do
for j:=0 to m-1 do
StringGrid2.Cells[i,j]:=FloatToStrF(c[j,i],ffFixed,5,2);

end;
end.

[Вадим Мошев]

Рассказывайте, каково условие задачи, а также что происходит у вас (какая ошибка).

[Fufichek]

вот условие:Дан двумерный массив C(M,M):
1. Определить произведение и сумму элементов расположенных на главной диагонали.
2.Заменить все отрицательные элементы исходного массива на полученную сумму.
выдаёт такую ошибку:
For loop control variable must be simple local variable

[Вадим Мошев]

Ну, прежде всего

procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
,
private

Зачем вы тут запятую поставили?

А ещё

var
Form1: TForm1;
c:array of array of real;
m:byte;
s:real; i,j:integer;
implementation

Вы используете динамические массивы, при этом вы нигде не выделили паять под них

Рекомендую заменить эту строчку на

c: array[1..100, 1..100] of real;

[Sna1L]

эрэй оф эрэй это в каком-то языке вроде есть. Знакомая конструкция
массив в массиве=двумерный массив. Кэп.

[Fufichek]

запятая нечаянно поставлена при копировании

[Вадим Мошев]

Работает?........

[Fufichek]

нет.всё равно ту же самую ошибку выдаёт

[Вадим Мошев]

Покажите ваш код снова, НО ПЕРЕД ЭТИМ ВОСПОЛЬЗУЙТЕСЬ КНОПОЧКОЙ #. Он заключит ваш код в тэговые скобки [code][/ code]

[Fufichek]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
OpenDialog1: TOpenDialog;
Button4: TButton;
StringGrid2: TStringGrid;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
c: array[1..100, 1..100] of real;
m:byte;
s:real; i,j:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
F:TextFile;
ST:string;

begin
If OpenDialog1.Execute then
Begin
AssignFile(f,OpenDialog1.FileName);
Reset(F);
Readln(F,m);
StringGrid1.RowCount:=StringGrid1.F ixedRows + m;
StringGrid1.ColCount:=StringGrid1.F ixedCols + m;
For i:=0 to m do
StringGrid1.Cells[0,i]:=IntToStr(i);
For j:=0 to m do
StringGrid1.Cells[j,0]:=IntToStr(j);
For i:=1 to m do
For j:=1 to m do
begin
Readln(F,ST);
StringGrid1.Cells[j,i]:=ST;
end;
CloseFile(f);
end
else
ShowMessage('Файл не был выбран!');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
S:=0;
m:=StringGrid1.ColCount - 1;
m:=StringGrid1.RowCount - 1;
For i:=1 to m do
For j:=1 to m do

if i=j then
begin
S:=S+StrToFloat(StringGrid1.Cells[j,i]);

end;
Edit1.text:=FloatToStr(S)
end;



procedure TForm1.Button3Click(Sender: TObject);
Var P:real;
begin
P:=1;
m:=StringGrid1.ColCount - 1;
m:=StringGrid1.RowCount - 1;
For i:=1 to m do
For j:=1 to m do
begin
if i=j then
begin
P:=P*StrToFloat(StringGrid1.Cells[j,i]);

end
end;
Edit2.text:=FloatToStr(P)
end;

procedure TForm1.Button4Click(Sender: TObject);
var i,j:integer;
begin
for i:=0 to m-1 do
for j:=0 to m-1 do
if c[i,j]<0 then c[i,j]:=s;
for i:=0 to m-1 do
for j:=0 to m-1 do
StringGrid2.Cells[i,j]:=FloatToStrF(c[j,i],ffFixed,5,2);

end;
end.