Продолжение программы

writeln('Максимальный элемент 2-й строки матрицы Д=',c[2,k],'; столбец ',k);

writeln(t);

for i:=2 to 5 do

for p:=4 downto i do

if c[p-1,k]<c[p,k] then

begin

tmp:=c[p-1,k];

c[p-1,k]:=c[p,k];

c[p,k]:=tmp;

end;

writeln('Измененная матрица Д:');

writeln(t,'Измененная матрица Д:');

for i:=1 to 4 do

begin

for j:=1 to 5 do

begin

write(c[i,j]:4);

write(t,c[i,j]:4);

end;

writeln;

writeln(t);

end;

writeln(t);

for i:=2 to 3 do

for p:=3 downto i do

if b[p-1,k]<b[p,k] then

begin

tmp:=b[p-1,k];

b[p-1,k]:=b[p,k];

b[p,k]:=tmp;

end;

writeln('Измененная матрица A:');

writeln(t,'Измененная матрица A:');

for i:=1 to 3 do

begin

for j:=1 to 8 do

begin

write(b[i,j]:4);

write(t,b[i,j]:4);

end;

writeln;

writeln(t);

end;

close(t)

end.

Рисунок 5.5 – Продолжение рисунка 5.4

Заключениe

Мы научились решать математические задачи на различных программах широко использующимися в нашей сфере деятельности. При правильном использование, программы минимизируют риск появления ошибки в решении. Программы MATCAD и Wolfram Mathematica похожи интерфейсом и стилем заполнения формул, а Matlab похож на язык программирования BASIC.

Список используемых источников

1. А.Кормен Алгоритмы: построение и анализ. - М.: Дрофа, 2006. – 892с.

2. Н.Вирт Алгоритмы и структуры данных. - М.: ДК Пресс, 2014. – 127 с.