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

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

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

ИНФОРМАТИКА

Лабораторная работа № 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,5) и вектора В(5) (5.2).Составила алгоритм  программы и  написала ее на языке Фортрана  для ввода массивов с помощью прямого присвоения значений (оператор DATA)  и с использованием оператора неявного цикла (READ) согласно исходным данным.