DIMENSION A(10),B(10),C(10)

READ(5,*) AСамый простой ввод массива А

DO 1 I=1,10

WRITE(6,2) I

2 FORMAT(1X,'Введите по формату F5.3 элемент B(',I2,')='\)

Символ \ (обратный слэш) отменяет переход на новую строку по окончании работы оператора FORMAT

READ(5,3) B(I)

3 FORMAT(F5.3)Оператор FORMAT может находиться за пределами цикла и вообще, находиться в любом месте программы

DO 4 I=1,10

4 C(I)=A(I)+B(I)

C Вывод шапки таблицы

WRITE(6,7)

7 FORMAT(1X,34('=')/1X,'| N | МАССИВ А | МАССИВ В | МАССИВ С |')

DO 8 I=1,10

WRITE(6,10) I,A(I),B(I),C(I)

10 FORMAT(1X,34('-')/1X,'|',I2,' |',3(F9.3,' |'))

Выводится линия из 34 символов -, затем осуществляется переход на другую строку, печатается номер цикла и по одному значению элементов трех массивов А,В,С.

WRITE(6,11)

11 FORMAT(1X,34('='))

Конец таблицы подчеркнули двойной чертой

PAUSE

STOP

END

 

Задача:

Имеются элементы массива А: -12.8, 3.35 144.7, 16.

Имеются элементы массива В: -13, 3.12, 4.275.

Необходимо заполнить двухмерный массив С следующим образом: Сij=Ai Bj.

При этом элементы массива А ввести без десятичной точки, элементы массива В ввести с десятичной точкой, массив С вывести в таблицу по формату Еw.d.

Произведём ввод элементов массива А по форматам: А(1)–F5.1, A(2)–F4.2, A(3)–F5.1, A(4)–F3.0; ввод элементов массива В по форматам: B(1)–F5.1, B(2)–F5.2, B(3)–F6.3.

Используя эти форматы, мы должны вводить информацию следующим образом с первой позиции строки:

–128 335 1447 16

–13. 3.12 4.275








Дата добавления: 2015-06-10; просмотров: 810;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.004 сек.