i=1,m
j=1,l
k=1,n
C[i,j]=С[i,j]+А[k,i]*В[j,k]
i=1,m
j=1,l
Вивід С[i,j]
Початок
Ввід e,n
i=1,n
j=1,n
Ввід M[i,j]
n1=2*n
i=1,n
j=1,n
так j=n ні
a[i,j]=m[i,j] так j=n+1 ні
a[i,j]=1 a[i,j]=0
i=1,n
k=i s=a[i,i]
j=1,n
t=a[j,i]
s < t так
s=t k=j
s < e так М-вироджена
j=i,n1
t=a[k,j] a[k,j]=a[i,j] a[i,j]=t/s
k=1,n
k<>i
j=n1,1
a[k,j]=a[k,j]-a[i,j]*a[k,i]
i=1,n
j=1,n
M[i,j]=A[i,j=m]
i=1,n
j=1,n
Вивід M[i,j]
Кінець
Початок
Ввід e,n
i=1,n
j=1,n
Ввід M[i,j]
n1=2*n
i=1,n
j=1,n
так j=n ні
a[i,j]=m[i,j] так j=n+1 ні
a[i,j]=1 a[i,j]=0
i=1,n
k=i s=a[i,i]
j=1,n
t=a[j,i]
s < t так
s=t k=j
s < e так М-вироджена
j=i,n1
t=a[k,j] a[k,j]=a[i,j] a[i,j]=t/s
k=1,n
k<>i
j=n1,1
a[k,j]=a[k,j]-a[i,j]*a[k,i]
i=1,n
j=1,n
M[i,j]=A[i,j=m]
i=1,n
j=1,n
k=1,n
C[i,j]=С[i,j]+B[k,i]*M[j,k]
i=1,n
j=1,n
Вивід С[i,j]
Кінець
Початок
Ввід n
i=1,n
j=1,n
Ввід S1[i,j]
Ввід М
М=90° M=180° M=270°
i=1,n i=1,n i=1,n
j=1,n j=1,n j=1,n
S2[i,j]=S1[n-j+1,i] S2[i,j]=S1[n-i+1,n-j+1] S2]i,j]=S1[j,n-i+1]
i=1,n
j=1,n
Вивід S2[i,j]
Кінець
Program kursov;
type E=ARRAY [1..3,1..3] of real;
var A,B,C,S:E;
f,a1,b1:real;
t:integer;
mass:char;
procedure INPUT (mass:char; var A:E);
var x,y,n:integer;
begin
writeln ('‚ўi¤ Ґ«Ґ¬Ґвiў ¬ бЁўг ',mass);
for y:=1 to 3 do
begin
for x:=1 to 3 do
read (A[x,y]);
end;
end;
procedure SUMM (A,B:E; var S:E);
var x,y:integer;
begin
for y:=1 to 3 do
for x:=1 to 3 do
S[x,y]:=A[x,y]+B[x,y];
end;
procedure SUB (A,B,S:E; var C:E;b2:real);
var x,y,i:integer;
begin
SUMM (A,B,S);
write ('Њ бЁў C');
for y:=1 to 3 do
begin
writeln;
for x:=1 to 3 do
begin
C[x,y]:=0;
for i:=1 to 3 do
C[x,y]:=C[x,y]+(S[i,x]*B[i,y]);
write (C[x,y]:7:2);
if (x=1) AND (y=1) then b2:=C[x,y]
else
if C[x,y]<b2 then b2:=C[x,y];
end;
end;
writeln;
writeln ('Њii¬ «мЁ© Ґ«Ґ¬Ґв ¬ ваЁжi ‘ у ',b2:7:2);
end;
begin
mass:='A';
INPUT (mass,A);
mass:='B';
INPUT (mass,B);
SUB (A,B,S,C,b1);
writeln (' ’ Ў«Ёжп § зҐм ¤«п § ¤ ®х дгЄжiх');
writeln (' t f');
for t:=1 to 50 do
begin
if t>40 then a1:=0.2
else
a1:=0.11;
f:=SIN(a1*t)-EXP(2*a1*t)+b1;
writeln(t:8,f:16:4);
end;
end.
Початок
Ввід n,m
i=1,n
j=1,m
Ввід А[i,j]
i=1,n
j=1,m
Ввід B[i,j]
i=1,n
j=1,m
S[i,j]=A[i,j]+B[i,j]
i=1,m
j=1,l
k=1,n
C[i,j]=С[i,j]+А[k,i]*В[j,k]
i=1,n
j=1,m
Вивід С[i,j]
так х=1,y=1 ні
b2=C[x,y]
так C[x,y]<b2 ні
b2=C[x,y]
Вивід b2
Кінець
Задача.
Надрукувати порядково матрицю С і її мінімальний елемент.
Для вирахування матриці С використати стандартну підпрограму додавання матриць і складену підпрограму множення матриць.
1,2 0,7 2,6 4,5 -6,8 -1,2
А= 3,3 0,4 2,0 В= 3,8 0,5 0,8
1,7 1,5 -0,2 1,2 0,6 0,25
-30,61 23,73 10,62
С= -36,09 -21,05 -6,26
-12,68 6,68 3,34