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


 

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

58991. Урок виховання любові до природи. Вмійте природу любити 55.5 KB
  Тож давайте за розум візьмемося ми Чисте повітря і воду живу Будемо завжди берегти. Сьогодні ми поговоримо про нас людей які нищать природу: зривають квіти руйнують пташині гнізда ламають дерева забруднюють водойми повітря щоб тільки задовольнити свої забаганки збагатитися.
58992. Воєнно-політичні події 1650-1653 рр 64 KB
  Після укладення угоди з поляками татари почали вимагати від Хмельницького припинення воєнних дій а від короля виконання умов Зборівської угоди. Уже втретє хан зрадив Хмельницького. Лупул звернувся по допомогу до Хмельницького.
58993. Голодомор в Україні. Позакласний захід вшанування памяті тих, хто загинув в 1932-1933 роках 60.5 KB
  Радянський уряд, яким керував Йосиф Сталін, вимагав від робочих все більше хліба, мяса, молока. Бідні селяни перебивались з хліба на картоплю, але згодом і цього не стало. Люди ховали картоплю, зерно в ями, де тільки можна, та нічого не втаїли від ока збирача.
58994. Голодомор в Україні 1932-1933 рр. Причини, наслідки 53 KB
  Ініціаторами знищення непокірних українців були Ленін і Сталін. Саме Сталін і його прибічники наказали відібрати в українських селян усе, що вони виростили на полях, щоб людям зимою не було чого їсти. І цей наказ старанно виконали...
58995. Грати за правилами. Конспект уроку з основ суспільствознавства, етики 38.5 KB
  Для другої гри: декілька залежить від кількості гравців однакових копій настільної гри типу Подорож така ж кількість ігрових костей по одній унікальній ігровій фігурці наприклад з яєць Сюрприз для кожного із гравців...
58996. Гроші, їх види та функції 63.5 KB
  Механізми що приводять у дію економіку досить складні але один з найдавніших і важливих гроші. Як економічний механізм гроші відомі нам з раннього дитинства з першої монетки чи банкноти. Рольова гра учні класу виступають у ролі представників наукових...
58997. День Святого Миколая 52.5 KB
  Тим часом не так давно в Україні Новий рік зустрічали зі Святим Миколаєм більше знаним у народі як Миколайчудотворець. У зимову ніч з 18 на 19 грудня святий Миколай спускався на срібній вервечці з неба. Миколайугодник один з найулюбленіших народних святих з іменем якого...
58998. День учителя 39 KB
  У звязку зі святкуванням Дня вчителя до нас у місто прибув почесний гість - сам Папа Римський Бенедикт Шістнадцятий. На сцені зявляються папа римський і перекладач. Папа Римський. Доброго дня шановні пані та панове Папа римський.