Фортран является одним из старейших и наиболее распространенных языков программирования, который широко применяется в научных и инженерных расчетах. На Фортране можно эффективно работать с массивами данных, что делает его особенно полезным для обработки больших объемов информации. В данной статье мы рассмотрим, как вывести массив на Фортране и представим несколько примеров и инструкций, которые помогут вам разобраться в этом процессе.
program output_array implicit none integer :: i integer, dimension(10) :: arr = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10] do i = 1, size(arr) write(*,*) arr(i) end do end program output_array
На Фортране можно вывести массив с помощью оператора WRITE. Этот оператор позволяет записывать данные в указанный файл или на консоль.
Для начала, объявите массив и заполните его значениями:
INTEGER :: array(3)
array = [1, 2, 3]WRITE(*,*) arrayЕсли необходимо вывести каждый элемент массива на отдельной строке, можно воспользоваться циклом DO:
DO i = 1, SIZE(array)
WRITE(*,*) array(i)
END DOТаким образом, используя оператор WRITE и цикл DO, вы можете легко вывести массив на Фортране.
```fortran
program print_array
implicit none
integer :: i
integer, dimension(10) :: arr = (/1, 2, 3, 4, 5, 6, 7, 8, 9, 10/)
do i = 1, 10
print *, arr(i)
end do
end program print_array
```fortran
program print_2d_array
implicit none
integer :: i, j
integer, dimension(3, 3) :: arr = reshape((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/))
do i = 1, 3
do j = 1, 3
print *, arr(i, j)
end do
end do
end program print_2d_array
program output_array
implicit none
integer :: array(5) = [1, 2, 3, 4, 5]
integer :: i
do i = 1, size(array)
print *, array(i)
end do
end program output_array Результат выполнения программы:
1
2
3
4
5 Таким образом, используя функцию Print и цикл do, можно легко вывести массив на Фортране. Это может быть полезно при отладке программ или при проверке правильности заполнения массива.
Кроме использования операторов форматирования, массивы на Фортране можно вывести также с использованием других инструментов.
| Индекс | Значение |
|---|---|
| 1 | значение1 |
| 2 | значение2 |
| 3 | значение3 |
write(*,*) array
Где array - имя массива, который нужно вывести.
write(*,'(5F10.2)') array