01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 5 лабораторка / Текст программы
.doc-
Текст программы:
type stroka=array[1..6] of real;
var
a,b,c,d,e:array[1..6] of stroka; s,n:real;
bs:stroka;
y,imax,imin:integer;
max,min,smax,jmax:real; i,j,k:integer;
{ matrix A}
begin
for i:=1 to 6 do
for j:=1 to 6 do
a[i,j]:=sqr(i)+j*(sin(i)/cos(i));
{write matrix A}
writeln('matrix A');
for i:= 1 to 6 do begin
for j:=1 to 6 do
write(a[i,j]:6:0);
writeln;
readln;
end;
{matrix B}
writeln;
begin
max:=a[1,1];
imax:=1;
min:=a[1,1];
imin:=1;
for i:=1 to 6 do
for j:=1 to 6 do
begin
if a[i,j] > max then
begin
max:=a[i,j];
imax:=i;
end;
if a[i,j] < min then
begin
min:=a[i,j];
imin:=i;
end;
end;
bs:=a[imin];
a[imin]:=a[imax];
a[imax]:=bs;
b:=a;
{write matrix B}
writeln('matrix B');
for i:=1 to 6 do begin
for j:=1 to 6 do
write(b[i,j]:6:0);
writeln;
readln;
end;
end;
{ matrix C}
writeln;
for i:=1 to 6 do
for j:=1 to 6 do
if i>=j then c[i,j]:=0
else c[i,j]:=1;
writeln('matrix C');
for i:= 1 to 6 do begin
for j:=1 to 6 do
write (c[i,j]:6:0);
writeln;
readln;
end;
{ matrix D }
writeln;
for i:=1 to 6 do
for j:=1 to 6 do begin
d[i,j]:=0;
for k:=1 to 6 do
d[i,j]:=d[i,j]+b[i,k]*c[k,j];
end;
{write matrix D}
writeln('matrix D');
for i:=1 to 6 do begin
for j:=1 to 6 do
write(d[i,j]:6:0);
writeln;
readln;
end;
{ matrix E }
writeln;
e:=d;
for i:=1 to 2 do
for j:=3 to 4 do begin
E[i+2,j-2]:=d[i,j];
end;
for i:=3 to 4 do
for j:=1 to 2 do
E[i-2,j+2]:=d[i,j];
writeln('matrix E');
for i:=1 to 6 do begin
for j:=1 to 6 do
write(e[i,j]:6:0);
writeln;
readln;
end;
{ nomer stolbza matrix E }
smax:=0;
jmax:=1;
for i:=1 to 6 do smax:=smax+e[i,1];
for j:=2 to 6 do begin
s:=0;
for i:=1 to 6 do
s:=s+e[i,j];
if s>=smax then begin
smax:=s;
jmax:=j;
end;
end;
{ nomer stolbza matrix E}
writeln('nomer stolbza matrix e');
write(j);
writeln;
readln;readln;
end.