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

Страницы работы

5 страниц (Word-файл)

Содержание работы

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

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

ИНФОРМАТИКА

Лабораторная работа № 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) согласно исходным данным.

Похожие материалы

Информация о работе

Предмет:
Информатика
Тип:
Отчеты по лабораторным работам
Размер файла:
24 Kb
Скачали:
0