Программирование матричных операций Вариант № 27 - Лабораторная работа

Содержание

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

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

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

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

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

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

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

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

Вариант 27

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

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

значений;

Примечание:

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

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

Рассмотрим реализацию каждых частей задания. Из анализа условия следует: первые три части оформим подпрограммой типа Процедура, а четвертую часть подпрограммой типа Функция.

Введение (выдержка)

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

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

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

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

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

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

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

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

Вариант 27

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

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

значений;

Примечание:

• Задание выполнить для 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;

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;

Function Fyn(n:integer; X:vect):real;

Var i,k:integer;

s, y:real;

Begin

y Begin

s:=0;

if i mod 2=0 then y:=y+(x[i]*x[n+1-i])/k;

k:=k*(k+1);

End;

Fyn:=y;

End;

Begin

Matrica(n,a);

Writeln(' ':20,'MATPICA A');

for i:=1 to n do

Begin

for j:=1 to n do Write(a[i,j]:8:3);

writeln;

End;

Vector(n,a,x);

Writeln(' ':20,'BEKTOP X');

for i:=1 to n do write(x[i]:8:3);

writeln;

Porjdok(n,a);

y:=Fyn(n,x);

Writeln('Rez y= ',y:10:3);

Writeln(Title);

End.

Результаты работы программы

MATPICA A

2.2 1.1 -5.458 2.421 1.262 -1.879 2.705

-1.543 -2.643 -9.2 -1.321 -2.481 -5.621 -1.038

0.5 -0.6 -7.158 0.721 -0.438 -3.579 1.005

1.8 0.7 -5.857 2.022 0.862 -2.279 2.305

-2.738 -3.838 -10.396 -2.517 -3.676 -6.817 -2.233

0.351 -0.749 -7.306 0.573 -0.587 -3.727 0.857

1.514 0.414 -6.144 1.735 0.576 -2.565 2.019

BEKTOP X

-5.458 -1.038 -7.158 2.305 -10.396 0.857 -6.144

YPOR 1 STROKU MATPICU A

1.1 1.262 -1.879 2.2 2.421 2.705 -5.458

-1.543 -2.643 -9.2 -1.321 -2.481 -5.621 -1.038

0.5 -0.6 -7.158 0.721 -0.438 -3.579 1.005

1.8 0.7 -5.857 2.022 0.862 -2.279 2.305

-2.738 -3.838 -10.396 -2.517 -3.676 -6.817 -2.233

0.351 -0.749 -7.306 0.573 -0.587 -3.727 0.857

1.514 0.414 -6.144 1.735 0.576 -2.565 2.019

Rez y= -0.318

Rabota №5, Skobelkina Natalya, EA-10-01

Примечания

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

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

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