Структуровані типи даних.Операції над двомірними масивами, Детальна інформація
Структуровані типи даних.Операції над двомірними масивами
Њ бЁў 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]
end;
end;
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
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]
end;
end;
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
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021