Побудова таблиці значень функції, Детальна інформація
Побудова таблиці значень функції
a,b,c:dvmr;
x:array[l.,50] of real;
begin
writeln('введіть елементи матриці А');
for i:=l to n do
for j:=l to n do {ВВІД МАТРИЦІ А}
begin
writeln ('введіть a[',i,',j,']=');
readln (a[ij])
end;
writeln ('введіть елементи матриці b‘);
for i:=1 to n do
for j:=1 to n do {ВВІД МАТРИЦІ В}
begin
writeln ('введіть b[',і,',',j,']=');
readln (b[i,j])
end;
for i:=1 to n do
for j:=l to n do {СУМА МАТРИЦЬ А, Б }
c[i,j]:=a[i,j]+b[i,j];
cmax:=c[l,l];
for i:=l to n do
for j:=l to n do
if c[i,j]>=cmax then {ЗНАХОДЖЕННЯ МАКСИМАЛЬНОГО ЕЛЕМЕНТУ МАТРИЦІ С}
begin
cmax:=c[i,j];
k:=J
end;
for i:=l to n do
al:=al+c[i,k];
x:array[l.,50] of real;
begin
writeln('введіть елементи матриці А');
for i:=l to n do
for j:=l to n do {ВВІД МАТРИЦІ А}
begin
writeln ('введіть a[',i,',j,']=');
readln (a[ij])
end;
writeln ('введіть елементи матриці b‘);
for i:=1 to n do
for j:=1 to n do {ВВІД МАТРИЦІ В}
begin
writeln ('введіть b[',і,',',j,']=');
readln (b[i,j])
end;
for i:=1 to n do
for j:=l to n do {СУМА МАТРИЦЬ А, Б }
c[i,j]:=a[i,j]+b[i,j];
cmax:=c[l,l];
for i:=l to n do
for j:=l to n do
if c[i,j]>=cmax then {ЗНАХОДЖЕННЯ МАКСИМАЛЬНОГО ЕЛЕМЕНТУ МАТРИЦІ С}
begin
cmax:=c[i,j];
k:=J
end;
for i:=l to n do
al:=al+c[i,k];
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021