Додаток 3

ДОДАТОК 2

Приклад титульного листа

ДОДАТОК 1

CONTINUE

CONTINUE

CONTINUE

CONTINUE

CONTINUE

CONTINUE

CONTINUE

С Зчитування масиву

REAL PR

С Застосування загального блоку

COMMON /K/ A(30, 30)

INTEGER I, J,Z

С Файл даних, що містить масив

OPEN(1, FILE='A.DAT', STATUS='OLD')

С Файл для запису результатів роботи

OPEN(2, FILE='REZ.DAT', STATUS='NEW')

READ(1, *) A

С Виклик підпрограми.

CALL STR(Z)

WRITE(2, *) 'Добуток дорівнює', Z

С Виклик підпрограми SUBROUTINE.

С Масив передається за допомогою загального блоку

CALL MAS

С Роздруківка масиву у файл результатів у виді матриці

DO 10 I=1, 30

DO 20 J=1, 30

IF(J.EQ.30) THEN

WRITE(2, ‘(F8.2)’) A(I, J)

ELSE

WRITE(2, ‘(F8.2\)’) A(I, J)

ENDIF

END

С Підпрограма для розрахунку добутку мінімальних значень

С елементів стовпців

SUBROUTINE STR (Z)

REAL MIN

INTEGER Z, K1, I1

COMMON /K/A(30,30)

Z=1

D0 30 K1=1, 30

MIN=A(1, K1)

DO 40 I1=1, 30

IF(A(I1, K1). LE. MIN) MIN=A(I1, K1)

Z=Z*MIN

END

С Підпрограма для обробки масиву. Вишиковує рядки по убуванню

SUBROUTINE MAS

REAL A1

INTEGER K1, L1, L2

С Елементи даного загального блоку доступні цій програмній одиниці

COMMON /K/ A(30, 30)

DO 50 L1=1, 30

DO 60 K1=1, 30

DO 70 L2=1, 29

IF(A(L1, L2).GT.A(L1, L2+1)) THEN

A1=A(L1, L2)

A(L1, L2) = A(L1, L2+1)

A(L1, L2+1) = A1

ENDIF

END

Звіт про роботу повинний містити короткий опис роботи, текст програми і результати її роботи.

МІНІСТЕРСТВО НАУКИ І ОСВІТИ, МОЛОДІ ТА СПОРТУ УКРАЇНИ

НАЦІОНАЛЬНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ

«ХАРКІВСЬКИЙ ПОЛІТЕХНІЧНИЙ ІНСТИТУТ»

Кафедра турбінобудування

ЛАБОРАТОРНА РОБОТА № 1

«Текстовий редактор Microsoft Word»

Виконав ст. Петров О.О.

Група ЕМ-20

Перевірив викл. Сідоров І.І.

Харків 2011

Завдання до лабораторної роботи № 1

№ п/п	Параметр	Характеристика	Результати
Висновки

Завдання до лабораторної роботи № 2

1.	8.
2.	9.
3.	10.
4.	11.
5.	12.
6.	13.
7.	14.

Дата добавления: 2014-12-07