Текст программы на Паскале. Кафедра химической кибернетики

УФИМСКИЙ ГОСУДАРСТВЕННЫЙ НЕФТЯНОЙ

ТЕХНИЧЕСКИЙУНИВЕРСИТЕТ

Кафедра химической кибернетики

ОТЧЕТ

по лабораторной работе №5

на тему:

«ПРОГРАММИРОВАНИЕ МАТРИЧНЫХ ОПЕРАЦИЙ»

Вариант 84

Отчет сдал_________________

ст.гр.______________________

Отчет принял_______________

__________________________

Дата_______________________

Подпись____________________

Уфа 2016

Лабораторная работа №5

«ПРОГРАММИРОВАНИЕ МАТРИЧНЫХ ОПЕРАЦИЙ»

Цель

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

1) расчета элементов квадратной матрицы A = (a_i,j), i,j = 1,2,...,n по заданной формуле;

2) вычисления элементов вектора X = (x_i), i = 1,2,...,n по заданному правилу;

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

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

1)

2)

3) упорядочить элементы столбцов матрицы А
по убыванию абсолютных значений;

4) .

Схема алгоритма решения задачи

1)

2)

нет

нет

3)

нет

4)

Текст программы на Паскале

program pr; const n=7;

var a: array [1..n,1..n] of real;

x: array [1..n] of real;

i,j,l,k:integer; max,min,buf,y:real;

begin

writeln;

writeln(' matriza');

writeln;

for i:=1 to n do

for j:=1 to n do

a[i,j]:=(2*n-i*j)*cos(i)/sin(j);

for i:=1 to n do

begin

for j:=1 to n do

begin

write (a[i,j]:7:2);

end; writeln;end;

for i:=1 to n do begin

max:=-maxint; min:=maxint;

for j:=1 to n do begin

if abs(a[j,i])<abs(min) then min:=a[j,i];

If a[i,j]>max then max:=a[i,j]; x[i]:=max+min;

end;

end;

writeln (' vektor'); writeln;

for i:=1 to n do

write (x[i]:7:2);

For j:=1 to N do

For i:=1 to N do

For k:=1 to N-i do

If abs(a[k,j])<abs(a[k+1,j]) then

begin

buf:=a[k,j];

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

a[k+1,j]:=buf;

end;

writeln;writeln (' matriza 1'); writeln;

for i:=1 to n do begin

for j:=1 to n do

write (a[i,j]:7:2); writeln;

end;

y:=1;

for i:=1 to n do

y:=y*sqrt(i)*exp(-x[i]);

writeln;

writeln (' y=',y:20:15);

end.

Результаты расчёта

Вывод

Анализ полученных результатов соответствует заданию.

Не нашли, что искали? Воспользуйтесь поиском: