procedure
TFormMain
.
ButCalcClick(Sender: TObject);
var
S:
Real
;
F:TextFile;
A:
array
of
array
of
Real
;
N,M,I,J:
Integer
;
begin
AssignFile(F,OpenDialog1
.
FileName);
Reset(F);
ReadLn(F,N,M);
Massiv
.
RowCount:=N+
1
;
Massiv
.
ColCount:=M+
1
;
SetLength(A,Massiv
.
RowCount,Massiv
.
ColCount);
for
I:=
0
to
Massiv
.
RowCount-
1
do
Massiv
.
Cells[I,
0
]:=IntToStr(I);
for
J:=
0
to
Massiv
.
ColCount-
1
do
Massiv
.
Cells[
0
,J]:=IntToStr(J);
for
I:=
1
to
Massiv
.
RowCount-
1
do
begin
for
J:=
1
to
Massiv
.
ColCount-
1
do
Read(F,A[I,J]);
ReadLn(F)
end
;
for
I:=
1
to
Massiv
.
RowCount-
1
do
for
J:=
1
to
Massiv
.
ColCount-
1
do
Massiv
.
Cells[I,J]:=FloatToStr(A[I,J]);
S:=
0
;
for
I:=
1
to
Massiv
.
RowCount-
1
do
for
J:=
1
to
Massiv
.
ColCount-
1
do
if
RdGrCh
.
ItemIndex=
0
then
if
(I+J)
mod
2
=
0
then
S:=S+A[I,J]
else
if
RdGrCh
.
ItemIndex=
1
then
if
(I+J)
mod
2
<>
0
then
S:=S+A[I,J];
EdRes
.
Text:=FloatToStr(S);
ButCalc
.
Enabled:=
false
;
showMessage(
'Результат: '
+FloatToStr(S));
end
;
procedure
TFormMain
.
ButCloseClick(Sender: TObject);
begin
close;
end
;
procedure
TFormMain
.
ButLoadClick(Sender: TObject);
begin
if
OpenDialog1
.
Execute
then
butCalc
.
Enabled:=
true
else
begin
LabTrack
.
Caption:=
'Файл не выбран'
end
;
end
;
procedure
TFormMain
.
RdGrChClick(Sender: TObject);
begin
butLoad
.
Enabled:=
true
;
end
;
end
.