1. Привет, мир!. Начнем с классического примера. Чтобы напечатать «Привет, мир!» в Фортране вы можете использовать следующий фрагмент кода:

program HelloWorld
    print *, "Hello, World!"
end program HelloWorld

2. Математические операции: Фортран известен своим мастерством в числовых вычислениях. Вот пример выполнения основных математических операций на Фортране:

program MathOperations
    implicit none
    integer :: a, b, c
    a = 5
    b = 3
    c = a + b
    print *, "The sum of", a, "and", b, "is", c
end program MathOperations

3. Массивы и циклы. Фортран обеспечивает надежную поддержку массивов и циклов, что делает его идеальным для обработки больших наборов данных. Вот пример суммирования элементов массива с помощью цикла:

program ArraySum
    implicit none
    integer :: i
    integer, dimension(5) :: arr = [1, 2, 3, 4, 5]
    integer :: sum = 0
    do i = 1, 5
        sum = sum + arr(i)
    end do
    print *, "The sum of the array elements is", sum
end program ArraySum

4. Подпрограммы и функции: Фортран поддерживает модульное программирование с помощью подпрограмм и функций. Вот пример подпрограммы, вычисляющей факториал числа:

program Factorial
    implicit none
    integer :: n
    integer :: result
    print *, "Enter a number:"
    read *, n
    result = factorial(n)
    print *, "The factorial of", n, "is", result
end program Factorial
integer function factorial(n)
    implicit none
    integer :: n, i, fact
    fact = 1
    do i = 1, n
        fact = fact * i
    end do
    factorial = fact
end function factorial

5. Обработка файлов: Фортран также предоставляет возможности ввода/вывода файлов. Вот пример чтения и записи данных в файл:

program FileIO
    implicit none
    integer :: i
    integer, dimension(5) :: arr = [1, 2, 3, 4, 5]
    integer :: unit = 10
    ! Writing to a file
    open(unit, file='data.txt', status='replace')
    do i = 1, 5
        write(unit, *) arr(i)
    end do
    close(unit)
    ! Reading from a file
    open(unit, file='data.txt')
    do i = 1, 5
        read(unit, *) arr(i)
    end do
    close(unit)
    print *, "The array elements read from the file are:"
    do i = 1, 5
        print *, arr(i)
    end do
end program FileIO

Это всего лишь несколько примеров того, чего можно добиться с помощью Фортрана. Его скорость и эффективность делают его предпочтительным выбором для научного моделирования, прогнозирования погоды и других ресурсоемких приложений. Так что не упускайте из виду наследие этого языка и изучайте возможности, которые он предлагает.

В заключение, Фортран продолжает оставаться мощным языком для численных вычислений и научных приложений. Освоив описанные выше методы и углубившись в язык, вы сможете использовать его сильные стороны для создания надежных и эффективных программных решений.