Составители:
Рубрика:
50
Файл lab11.pas
program matrix_lab;
uses crt;
type st=array[1..20] of real;
matr=array[1..20] of st;
var n, m, j, i, k, l, r: integer;
s,s1,s2,s3,ext:real; x,y:st; a:matr;
{-------------------------------------}
function summa(m:integer;
x:st):real;
var i:integer; s:real;
begin s:=0;
for i:=1 to m do s:=s+x[i];
summa:=s;end;
{-------------------------------------}
function summamod(m:integer;
x:st):real;
var i:integer; s:real;
begin s:=0;
for i:=1 to m do s:=s+abs(x[i]);
summamod:=s;
end;
{-------------------------------------}
procedure wwod(var a:matr);
var i,j:integer;
begin clrscr;
write('k-vo strok=');readln(n);
write('k-vo stolb=');readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
write('a[',i,',',j,']=');read(a[i,j]);
end; writeln; end; end;
{-------------------------------------}
procedure wywod;
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do write(a[i,j]:3:2,' ');
writeln;end; writeln; end;
{-------------------------------------}
procedure priswaiwanie;
begin n:=3;m:=4; a[1,1]:=3; a[1,2]:=0; a[1,3]:=-
5;a[1,4]:=3;
a[2,1]:=-4; a[2,2]:=-1;a[2,3]:=-2; a[2,4]:=-3;
a[3,1]:=1; a[3,2]:=3; a[3,3]:=0; a[3,4]:=8; end;
{-------------------------------------}
procedure znak(m:integer; var x:st);
var i:integer;
begin for i:=1 to m do x[i]:=-x[i]; end;
{-------------------------------------}
procedure maximum(m:integer; x:st; var max:real;
var k:integer);
var i:integer;
begin max:=x[1];k:=1;
for i:=2 to m do if x[i]>max then begin
max:=x[i];k:=i;end; end;
{-------------------------------------}
procedure maximummod(m:integer; x:st; var
max:real; var k:integer);
var i:integer;
begin max:=abs(x[1]);k:=1;
for i:=2 to m do if abs(x[i])>max then begin
max:=abs(x[i]);k:=i;end; end;
{-------------------------------------}
begin clrscr;
wwod(a); wywod;
for i:=1 to n do
begin s:=summa(m,a[i]); writeln(i,'str. s=',s:3:2); end;
end.
