|
Исходный
код программы:
Головной
модуль:
program
NZLAB_7a;
uses
INOUTMAS,JOB,GLOBAL;
begin
inmas(a,n,m);
writeln('Выведен
исходный
массив');
outmas(a,n,m);
root(a,n,m);
writeln('Выведен
обработаный массив');
outmas(a,n,m);
readln;
end.
Модуль
GLOBAL
unit
GLOBAL;
interface
type
mas=array
[1..5,1..6] of real;
var
n,m:integer;
a:mas;
implementation
end.
Модуль
JOB
unit JOB;
interface
uses GLOBAL;
procedure root(var a:mas; var
n,m:integer);
implementation
procedure root(var a:mas; var
n,m:integer);
var
i,j:integer;
x:array [1..100] of real;
begin
for i:=1 to m do
begin
x[i]:=0;
for j:=1 to n do
if a[i,j]>0 then
x[i]:=x[i] + a[i,j];
end;
m:=m+1;
for i:=1 to n do
a[i,m]:=x[i];
end;
end.
Модуль INOUTMAS
unit
INOUTMAS;
interface
uses
GLOBAL;
procedure
inmas(var a:mas;var n,m:integer);
procedure
outmas(a:mas; n,m:integer);
implementation
procedure
inmas(var a:mas;var n,m:integer);
var
i,j:integer;
begin
writeln('Введите
размеры
матрицы');
readln(m,n);
writeln('Введите
элементы');
for
i:=1 to n do
for
j:=1 to m do
begin
write('a[',i,',',j,']=
');
readln(a[i,j]);
end;
writeln;
end;
procedure
outmas(a:mas; n,m:integer);
var
i,j:integer;
begin
for
i:=1 to n do
begin
for
j:=1 to m do
write(a[i,j]:8:2);
writeln;
end;
writeln;
end;
end.
Результаты
работы программы:
Введите
размеры матрицы
3
3
Введите
элементы
a[1,1]= 1
a[1,2]= 12
a[1,3]= 123
a[2,1]= -123
a[2,2]= 32
a[2,3]= -32
a[3,1]= -1
a[3,2]= 0
a[3,3]= 2
Выведен
исходный массив
1.00
12.00
123.00
-123.00
32.00
-
32.00
-
1.00
0.00
2.00
Выведен
обработаный массив
1.00
12.00
123.00
136.00
-123.00
32.00
-32.00
32.00
-1.00
0.00
2.00
2.00
|