Структуровані типи даних.Операції над двомірними масивами
Структуровані типи даних.Операції над двомірними масивами
Тип документу: Реферат
Сторінок: 22
Предмет: Компьютерные науки
Автор: Олексій
Розмір: 49.3
Скачувань: 1233
Њ бЁў 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