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;