Индексные переменные. Написание текста программы на языке Фортран, осуществляющей различные алгоритмы действия с индексными переменными

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

НОВОСИБИРСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

ИНФОРМАТИКА

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

ИНДЕКСНЫЕ ПЕРМЕННЫЕ

Факультет: ЛА

Группа: ГС-71

Студент: Брусенцев С.Г.

Преподаватель: Фомичева И.В.

Новосибирск

2007

ИНДЕКСНЫЕ ПЕРМЕННЫЕ

Цель работы -  разработать алгоритм программы, написать на языке Фортран текст  программы, осуществляющей различные алгоритмы действия с индексными переменными. Приобрести опыт работы с многомерными массивами функций при заданных исходных данных.

ИСХОДНЫЕ ДАННЫЕ:

Матрица А                                                         Вектор В

11111                                                                         10

22222                                                                         20

33333                                                                         30

44444                                                                         40

55555                                                                         50

ТЕКСТПРОГРАММЫ:

PROGRAM LR_5

DIMENSION A (5, 5)

DATA A(1,1),A(1,2),A(1,3),A(1,4),A(1,5)/1.,1.,1.,1.,1./

DATA A(2,1),A(2,2),A(2,3),A(2,4),A(2,5)/2.,2.,2.,2.,2./

DATA A(3,1),A(3,2),A(3,3),A(3,4),A(3,5)/3.,3.,3.,3.,3./

DATA A(4,1),A(4,2),A(4,3),A(4,4),A(4,5)/4.,4.,4.,4.,4./

DATA A(5,1),A(5,2),A(5,3),A(5,4),A(4,5)/5.,5.,5.,5.,5./

DIMENSION B (5)

DATA B(1),B(2),B(3),B(4),B(5)/6.,7.,8.,9.,10./

OPEN (10, FILE='LR5.REZ')

OPEN (20, FILE='LR5.ISD')

PRINT 1, ((A (I, J), J=1, 5), I=1, 5)

PRINT 3, (B (I), I=1, 5)

WRITE (10, 1) ((A (I, J), J=1, 5), I=1, 5)

WRITE (10, 2) ((A (I, J), J=1, 5), I=1, 5)

WRITE (10, 3) (B (I), I=1, 5)

WRITE (10, 4) (B (I), I=5, 1,-1)

1                      FORMAT ('ЛАБОРАТОРНАЯ РАБОТА №5'/' ПРЯМОЕ ПРИСВОЕНИЕ’//

*'МАТРИЦА A(5,5),ВЫВОД ПО СТРОКАМ:'/5(5(F7.3,2X)/))

2     FORMAT ('МАТРИЦА  A(5,5), ВЫВОД ПО СТОЛБЦАМ:'/5(5(F7.3,2X)/))

3     FORMAT ('ВЕКТОР B(5),ПРЯМОЙ ПОРЯДОК:'/

*5(5(F7.3, 2X)/))

4     FORMAT ('ВЕКТОР B(5), ОБРАТНЫЙ ПОРЯДОК:'/

*5(5(F7.3, 2X)/))

READ (20,*) ((A (I, J), J=1, 5), I=1, 5)

READ (20,*) (B (I), I=1, 5)

PRINT 5, ((A (I, J), J=1, 5), I=1, 5)

PRINT 7, (B (I), I=1, 5)

WRITE (10, 5) ((A (I, J), J=1, 5), I=1, 5)

WRITE (10, 6) ((A (I, J), J=1, 5), I=1, 5)

WRITE (10, 7) (B (I), I=1, 5)

WRITE (10, 8) (B (I), I=5, 1,-1)

5     FORMAT ('ЛАБОРАТОРНАЯ РАБОТА №5'/'ИЗ ФАЙЛА ИСХОДНЫХ ДАННЫХ'//

*'МАТРИЦА  A(5,5), ВЫВОД ПО СТРОКАМ:'/5(5(F7.3,2X)/))

6     FORMAT ('МАТРИЦА  A (5,5), ВЫВОД ПО СТОЛБЦАМ:'/5(5(F7.3,2X)/))

7     FORMAT ('ВЕКТОР B(5), ПРЯМОЙ ПОРЯДОК:'/

*5(5(F7.3, 2X)/))

8     FORMAT ('ВЕКТОР B(5), ОБРАТНЫЙ ПОРЯДОК:'/

*5(5(F7.3,2X)/))

STOP

END

ТАБЛИЦА РЕЗУЛЬТАТОВ ВЫЧИСЛЕНИЯ:

ЛАБОРАТОРНАЯ РАБОТА №5
ПРЯМОЕ ПРИСВОЕНИЕ
МАТРИЦА  A(5,5), ВЫВОД  ПО СТРОКАМ:
1.000    1.000    1.000	1.000	1.000
2.000    2.000    2.000	2.000	2.000
3.000    3.000    3.000	3.000	3.000
4.000    4.000    4.000	4.000	5.000
5.000    5.000    5.000	5.000	0.000
МАТРИЦА A(5,5),   ВЫВОД ПО СТОЛБЦАМ:
1.000    1.000    1.000	1.000	1.000
2.000    2.000    2.000	2.000	2.000
3.000    3.000    3.000	3.000	3.000
4.000    4.000    4.000	4.000	5.000
5.000    5.000    5.000	5.000	0.000
ВЕКТОР B(5), ПРЯМОЙ ПОРЯДОК:
6.000    7.000    8.000	9.000	10.000
ВЕКТОР B(5), ОБРАТНЫЙ ПОРЯДОК:
10.000    9.000    8.000	7.000	6.000
ЛАБОРАТОРНАЯ РАБОТА №5
ИЗ ФАЙЛА ИСХОДНЫХ ДАННЫХ
МАТРИЦА  A(5,5), ВЫВОД ПО СТРОКАМ:
1.000    1.000    1.000	1.000	1.000
2.000    2.000    2.000	2.000	2.000
3.000    3.000    3.000	3.000	3.000
4.000    4.000    4.000	4.000	4.000
5.000    5.000    5.000	5.000	5.000
МАТРИЦА A(5,5), ВЫВОД ПО СТОЛБЦАМ:
1.000    1.000    1.000	1.000	1.000
2.000    2.000    2.000	2.000	2.000
3.000    3.000    3.000	3.000	3.000
4.000    4.000    4.000	4.000	4.000
5.000    5.000    5.000	5.000	5.000
ВЕКТОР B(5), ПРЯМОЙ ПОРЯДОК
10.000   20.000   30.000	40.000	50.000
ВЕКТОР B(5),   ОБРАТНЫЙ ПОРЯДОК
50.000   40.000   30.000	20.000	10.000

Вывод:В данной  программе я произвела определенные действия с  элементами исходного массива А(5,5) и вектора В(5) (5.2).Составила алгоритм  программы и  написала ее на языке Фортрана  для ввода массивов с помощью прямого присвоения значений (оператор DATA)  и с использованием оператора неявного цикла (READ) согласно исходным данным.