Диплом-Центр.Ру - помогаем студентам в учёбе

У нас можно недорого заказать курсовую, контрольную, реферат или диплом

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

  • 8 страниц(ы)
фото автора

Автор: navip

Содержание

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

Разработать программу решения 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.

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

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


Введение

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

Разработать программу решения 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;

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


Примечания

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

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

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

Тема: «Программирование матричных операций Вариант № 27»
Раздел: Информатика
Тип: Лабораторная работа
Страниц: 8
Цена: 330 руб.
Нужна похожая работа?
Закажите авторскую работу по вашему заданию.
  • Цены ниже рыночных
  • Удобный личный кабинет
  • Необходимый уровень антиплагиата
  • Прямое общение с исполнителем вашей работы
  • Бесплатные доработки и консультации
  • Минимальные сроки выполнения

Мы уже помогли 24535 студентам

Средний балл наших работ

  • 4.89 из 5
Узнайте стоимость
написания вашей работы

Не подошла эта работа?

Воспользуйтесь поиском по базе из более чем 40000 работ

Другие работы автора
Наши услуги
Дипломная на заказ

Дипломная работа

от 8000 руб.

срок: от 6 дней

Курсовая на заказ

Курсовая работа

от 1500 руб.

срок: от 3 дней

Отчет по практике на заказ

Отчет по практике

от 1500 руб.

срок: от 2 дней

Контрольная работа на заказ

Контрольная работа

от 100 руб.

срок: от 1 дня

Реферат на заказ

Реферат

от 700 руб.

срок: от 1 дня

682 автора

помогают студентам

23 задания

за последние сутки

10 минут

среднее время отклика