42167

ДІЇ НАД МАТРИЦЯМИ

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

Информатика, кибернетика и программирование

Знайти і видати на екран і в файл значення: сум модулів елементів кожного стовпчика матриці А, середнього арифметичного найменших елементів кожного рядка матриці А; обчислити матрицю В, яка визначається за формулами і видати на екран; в матриці А поміняти місцями найбільший за модулем елемент останнього рядка і найменший за модулем елемент першого стовпчика і видати на екран.

Украинкский

2013-10-27

137 KB

4 чел.

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

Дніпропетровський національний університет
ім. Олеся Гончара

Механіко-математичний факультет

Кафедра обчислювальної механіки і міцності конструкцій

З В І Т

про виконання лабораторної роботи №2

ДІЇ НАД МАТРИЦЯМИ 

 ШИФР  321987 

 Виконавець: студент групи МХ-10-3 Сергієнко  А.І Прийняла: Гарт Е.Л.

 Завдання отримано 10.11.10

 Звіт зданий  22.12.10

Дніпропетровськ

2010


ЗМІСТ

Анотація ...……………………………………………………………………...…1

Основна частина…………………………………………………………..............1

1. Постановка завдання…………………………………………………….1

2.Аналіз завдання (структурна блок-схема алгоритму)…………2

3. Інструкція щодо експлуатації програми……………………………….5

4. Результати розрахунків і аналіз………………………………………...5

Додаток. Лістинг програми………………………………………………………6

АНОТАЦІЯ

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

Обчислити матрицю А, де

,

де X – задане число;  провести деяку операцію над А, видати деякі значення S,  Sa, B, А.

2. Тип комп’ютера. Операційна система

Програма розрахована для ПК типу Pentium IV. Реалізована в ОС Windows XP.

3. Мова програмуванняCompaq Visual Fortran v6.6

4. Допоміжні програми – немає.

5. Стан програми – налагоджена.

ОСНОВНА ЧАСТИНА

1. Постановка завдання

Розробити структурну схему алгоритму та програму виконання дій над матрицею

,
знайти і видати на екран і в файл значення: сум модулів елементів кожного стовпчика матриці А, середнього арифметичного найменших елементів кожного рядка матриці А; обчислити матрицю В, яка визначається за формулами  і видати на екран; в матриці А поміняти місцями найбільший за модулем елемент останнього рядка і найменший за модулем елемент першого стовпчика і видати на екран.

 2. Аналіз завдання (структурна блок-схема алгоритму)

3. Інструкція щодо експлуатації програми

Вхідні дані:

коефіцієнт за завданням.

Вихідні дані:

№1 – сума модулів елементів кожного стовпчика А;  №2 – суми квадратів найбільшого елемента першого стовпчика та найменшого за модулем елемента останнього рядка; №3 матриця B визначена за формулою ; №4 поміняти місцями третій рядок і третій стовпчик.

4. Результати розрахунків і аналіз

№1

# стовпця

значення

1

42.2

2

27.0

3

33.8

4

28.3

5

37.8

№2

Шукані значення, при x=32, наведені у таблицях.

№2

188.2

№3

-183.01

-21.85

-175.09

-146.40

-187.44

0.04

47.42

-47.32

70.76

-7.69

82.58

79.04

30.34

53.16

99.12

76.64

68.54

66.60

18.94

116.80

-81.52

100.58

-108.76

-110.94

-126.78

№4

4.80

6.60

6.60

6.40

7.30

8.50

9.70

1.50

1.40

-1.00

-2.00

1.90

11.80

7.70

10.40

13.60

-2.60

8.30

10.40

7.40

8.70

6.60

14.60

-1.80

7.50

Додаток. Лістинг програми.

program lr2

PARAMETER N=5

real A(N,N), B(N,N), C(N,N)

integer i,j,k

real S,amax,amin

OPEN (UNIT=1, FILE='1.txt', STATUS='OLD',ERR=1000,      *ACTION='READ')

READ (1,*) ((B(i,j), j=1,N), i=1,N), ((C(i,j), j=1,N), i=1,N)

CLOSE (1)

WRITE (*,*) 'ucxod matrix'

WRITE (*,101) ((B(i,j), j=1,N), i=1,N), ((C(i,j), j=1,N), i=1,N)

DO i=1,N

DO j=1,N

 A(i,j)=B(i,j)+3.2*C(i,j)

ENDDO

ENDDO

WRITE (*,*) 'matrix'

WRITE (*,101) ((A(i,j), j=1,N), i=1,N)

WRITE (*,*) 'task 1'

DO i=1,N

 S=0

 DO j=1,N

  S=S+ABS(A(j,i))

 ENDDO

 WRITE (*,102) i,S

ENDDO

WRITE (*,*) 'task 2'

amax=A(1,1)

amin=ABS(A(N,1))

DO i=1,N

 IF (amax.LT.A(i,1))  amax=A(i,1)

 IF (amin.GT.ABS(A(N,i)))  amin=ABS(A(N,i))

ENDDO

S=amax*amax+amin*amin

WRITE (*,103) S

WRITE (*,*) 'task 3'

DO i=1,N

 DO j=1,N

  C(i,j)=A(i,j)-A(j,i)

 ENDDO

ENDDO

DO i=1,N

 DO j=1,N

  S=0

  DO k=1,N

   S=S+C(i,k)*A(k,j)

  ENDDO

  B(i,j)=S

 ENDDO

ENDDO

WRITE (*,*) 'matrix (A-AT)*A'

WRITE (*,104) ((B(i,j), j=1,N), i=1,N)

WRITE (*,*) 'task 4'

DO i=1,N

 S=A(3,i)

 A(3,i)=A(i,3)

 A(i,3)=S

ENDDO

 

WRITE (*,*) 'matrix A'

WRITE (*,104) ((A(i,j), j=1,N), i=1,N)

1000 STOP

101 FORMAT ((<N>(' ',F6.2)))

102  FORMAT (' col ' ,I1,' : ',F8.4)

103  FORMAT (' ans= ' ,F8.4)

104 FORMAT ((<N>(' ',F8.2)))

END

End


 

А также другие работы, которые могут Вас заинтересовать

15194. М. Мақатаевтың шығармашылығы 68.5 KB
  ӘОЖ 894.342 СЕЗІМ САЯСЫМЕН САЛЫСТЫРҒАНДА ТЕҢІЗДІҢ ЖАНЫНДАҒЫ ТАМШЫДАЙ С.М. Исматова Ә. Ж. Шағатаева Тараз мемлекеттік педагогикалық институты Тараз қ. Поэзия өнер мүлкі ретінде қырсыры мол жансезімнен тыс поэзия болмайды. Оның ішінде лирика тікелей сезімді
15195. Мағжан - ақынның ақыны 59 KB
  МАҒЖАН: БҰЙЫРСА ШЫРАҚ СӨНБЕС ҰЗАҚ ЖАНАР Жарасбай СҮЛЕЙМЕНОВ ҚР Парламенті Мәжілісінің депутаты. Мағжан Жұмабаев поэзия әлеміндегі жарық жұлдыз қайталанбас құбылыс. Оның қуатты бойға жігер жүрекке от беретін рухты үні ізденістері мен жаңашылдығы қа
15196. Майлықожа Сұлтанқожаұлы 27 KB
  Майлықожа Сұлтанқожаұлы 18351898 Майлықожа Сұлтанқожаұлы қазіргі Оңтүстік Қазақстан облысы Қызылқұм жерінде туып өскен.Әкесі Сұлтанқожа мұсылманша сауаттышағын дәулеттікөзі ашықдіндар адам болған. М...
15197. Марат Отаралиев 47 KB
  Марат Отарәлиев: Тағдырмын ерте жоғалған... Ақын Марат Отарәлиев. Жайсаң еді ғой. Онымен шүйіркелесіп сөйлесу әңгімедүкен құру өзінше бір ғанибет. Осы бір асықтай ғана қатпа қара жігіттің тал бойында қандай тартылыс күші барын қайдам Әйтеуір адам баласына тым үй...
15198. Махамбет Өтемісұлы 45 KB
  Махамбет Өтемісұлы 1803 1846 Махамбет Өтемісұлы 1803 жылы Ішкі Бөкей ордасы қазіргі Батыс Қазақстан облысы Жәнібек ауд. Нарын құмының Жанқұс жерінде туған. 20.10.1846 Қараой өңірі қазіргі Атырау облысы Махамбет ауданында жерденген қазақтың көрнекті ақыны сонымен бірг...
15199. Медетбай Тәжіұлы 22 KB
  Медетбай Тәжіұлы 1850-1928 Табынай Медетбай ақын туралы алғашқы дерек Қазақ қолжазбаларының ғылыми сипаттамасы деген бес томдық энциклопедиялық жинақтың төртінші томында жазылған.Онда Ме...
15200. Мәшһүр Жүсіп 78 KB
  Мәшһүр Жүсіп Атақты ақын ғұлама оқымысты Мәшһүр Жүсіптің көп қырлы талант екені елге мәлім. Қаршадайынан оқыған оқып қана қоймай көңіліне мол дүние тоқыған білімдар. Ақынның 1907 жылы үш бірдей кітабы Көп жасағаннан көрген бір тамашамыз Халахуал Сары...
15201. Міржақып Дулатов 82 KB
  Міржақып Дулатов Халық жүрегіне ерекше қымбат тұлғалардың бірі Міржақып Дулатұлы. Жақаңның бар ғұмыры халқымен тығыз байланысты. Осы арада бір ғана жәйтке тоқталсақ қазақтың азаттық қозғалысының алғашқы сәулесіндей жылт еткен Серке газетіндегі Жастарғ
15202. Молда Мұқан Балтекейұлы 50.5 KB
  СЫР БОЙЫНЫҢ АҚЫНЫ Ш. У. Қасымова № 45 Ақ Орда мектепгимназия Шиелі ауданы Қызылорда облысы Сырдың елі жырдың елі. Сыр өңірі қашаннан ақ ақын жыраулар мен шайырлардан данышпан бишешендерден қалған асыл мұраларды көздің қарашығындай сақтап оны ұрпақтанұ...