Привет, друг программист! Сегодня мы собираемся погрузиться в мир Фортрана и научиться писать классическое «Hello, World!» программу на этом почтенном языке программирования. Итак, хватайте шляпы программиста и начнем!

Фортран, сокращение от «Перевод формул», — это язык программирования высокого уровня общего назначения, существующий с 1950-х годов. Первоначально он был разработан для научных и инженерных расчетов и продолжает широко использоваться в этих областях. Несмотря на свой возраст, Фортран остается мощным и эффективным языком для обработки чисел и научных вычислений.

Теперь давайте приступим к написанию нашей первой программы на Фортране. Откройте свой любимый текстовый редактор или интегрированную среду разработки (IDE) и создайте новый файл с расширением «.f90». Это расширение обычно используется для исходных файлов Фортрана.

Метод 1: Традиционный подход

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

В этой простой программе мы определяем программу под названием «hello_world». Оператор printвыводит знаменитую фразу «Hello, World!» на консоль. Звездочка *используется в качестве подстановочного знака для обозначения единицы вывода по умолчанию, которая обычно соответствует консоли.

Метод 2: использование подпрограммы

program hello_world
  call say_hello()
contains
  subroutine say_hello()
    print *, "Hello, World!"
  end subroutine say_hello
end program hello_world

При таком подходе мы определяем в программе подпрограмму под названием «say_hello». Оператор callвызывает подпрограмму, которая, в свою очередь, печатает «Hello, World!» на консоль. Использование подпрограмм позволяет создать более модульный и организованный код.

Метод 3: аргументы командной строки

program hello_world
  character(len=20) :: name
  call get_command_argument(1, name)
  print *, "Hello, " // trim(name) // "!"
end program hello_world

Этот метод вводит аргументы командной строки. Мы объявляем символьную переменную nameдля хранения введенных пользователем данных. Функция get_command_argumentизвлекает первый аргумент командной строки, а затем мы объединяем его с «Hello» с помощью оператора //.

Метод 4: несколько языков

program hello_world
  character(len=20) :: hello
  hello = "Hello, World!"
  call c_hello(hello)
  print *, hello
end program hello_world
subroutine c_hello(hello)
  character(len=20), intent(inout) :: hello
  ! Call C function to modify hello string
  interface
    subroutine c_hello(hello) bind(C, name="c_hello")
      use iso_c_binding
      character(kind=c_char), dimension(*) :: hello
    end subroutine c_hello
  end interface
end subroutine c_hello

В этом примере мы объединяем Fortran с другим языком программирования, например C. Мы определяем символьную переменную helloи инициализируем ее словами «Hello, World!» Затем мы вызываем подпрограмму c_hello, которая реализована на языке C с использованием атрибута bind(C)и функции привязки ISO C. Это позволяет нам изменять строку helloс помощью кода C.

Поздравляем! Теперь вы узнали несколько способов написать «Hello, World!» программа на Фортране. Помните, что эти примеры лишь поверхностно показывают, что можно сделать с помощью этого мощного языка. Продолжайте исследовать и экспериментировать, чтобы полностью раскрыть его потенциал!

Надеюсь, это руководство оказалось для вас полезным в вашем путешествии по Фортрану. Приятного кодирования!