«Программирование матричных операций Вариант № 27»

Постановка задачи.

Разработать программу решения 4-х взаимосвязанных задач

1) расчёт элементов квадратной матрицы A=a(i,j), i,j=1,2,…n

по заданной формуле;

2) вычисление элементов вектора X=x(i) i=1,2,…n

по заданному правилу;

3) упорядочение элементов матрицы А или вектора Х;

4) вычисление значения функции y по заданной формуле.

Вариант 27

1)

2)

3) упорядочить элементы первой строки

матрицы А по возрастанию абсолютных

значений;

4)

Примечание:

• Задание выполнить для 7<=n<=10.

• Каждую часть задания оформить подпрограммой с параметрами.

Блок схема основной программы

Program prim5;

Const n=7;

Title='Rabota №5, Skobelkina Natalya, EA-10-01';

Type vect=array[1.n] of real;

matr=array[1.n,1.n] of real;

Var x:vect; a:matr;

i,j:integer;

y:real;

Procedure Matrica(n:integer; var A:matr);

var i,j:integer;

Begin

for i:=1 to n do

for j:=1 to n do

a [ i,j]:=sin(i)/cos(i)+cos(j)/sin(j);

End;

Procedure Vector(n:integer; A:matr; var x:vect);

var i,j:integer;

s:real;

Begin

for i:=1 to n do

Begin

s:=a[i,1];

if i mod 2 <>0 then for j:=2 to n do

if a[ii,j]< s then s:=a[i,j];

if i mod 2 =0 then for j:=2 to n do

if a[i,j]>s then s:=a[i,j];

x[i]:=s;

End;

End;

Procedure Porjdok(n:integer; var A:matr);

var k,i,j:integer;

c:real;

Begin

for i:=1 to n do

for j:=1 to n-1 do

Begin

if abs(a[1,j])>abs(a[1,j+1]) then

c:=a[1,j]; a[1,j]:=a[1,j+1]; a[1,j+1]:=c;

End;

End;

End;

К работе прилагается программа с исходным кодом.

К работе прилагается все исходники.

К работе прилагается все необходимое для сдачи.