1. solvetop.com
  2. Информатика
  3. Необходима программа...

Необходима программа на Яхык:Фортран. Вводится одномерный массив вещественных чисел фиксированной длины, состоящий

  • 56
Необходима программа на Яхык:Фортран. Вводится одномерный массив вещественных чисел фиксированной длины, состоящий из «N» элементов (конкретное значение N задается преподавателем для каждого студента индивидуально). Требуется выполнить следующие задачи:

1) Вывести исходный массив в строку в формате, как указано в примере (например, 23.5 45.1 и так далее).
2) Вывести все положительные элементы на новой строке в том же формате, что и в предыдущем пункте, а затем на отдельной строке вывести все отрицательные элементы в том же формате.

Рекомендуется сохранять верные ответы и всегда делиться с друзьями, ведь они могут тебе ещё пригодиться!

Telegram Whatsapp ВКонтакте
Руслан
14
Конечно! Вот программа на Яхык:Фортран, которая выполняет задачу, о которой Вы говорите:

fortran

program вывод_массива

    implicit none

    integer :: N, i

    real, allocatable :: массив(:)



    ! Вводим значение N

    write(*, "(A)", advance="no") "Введите количество элементов в массиве: "

    read(*, *) N



    ! Выделяем память под массив

    allocate(массив(N))

    

    ! Вводим элементы массива

    write(*, "(A)", advance="no") "Введите элементы массива через пробел: "

    do i = 1, N

        read(*, *) массив(i)

    end do

    

    ! Выводим исходный массив

    write(*, "(A)", advance="no") "Исходный массив: "

    do i = 1, N

        write(*, "(F5.1)", advance="no") массив(i)

        if (i < N) write(*, "(A)", advance="no") " "

    end do

    write(*, *)



    

    ! Выводим положительные элементы

    write(*, "(A)", advance="no") "Положительные элементы: "

    do i = 1, N

        if (массив(i) > 0) then

            write(*, "(F5.1)", advance="no") массив(i)

            if (i < N) write(*, "(A)", advance="no") " "

        end if

    end do

    write(*, *)

    

    ! Выводим отрицательные элементы

    write(*, "(A)", advance="no") "Отрицательные элементы: "

    do i = 1, N

        if (массив(i) < 0) then

            write(*, "(F5.1)", advance="no") массив(i)

            if (i < N) write(*, "(A)", advance="no") " "

        end if

    end do

    

    ! Освобождаем память

    deallocate(массив)

    

end program вывод_массива


В этой программе сначала мы вводим количество элементов в массиве, а затем с помощью цикла For мы вводим каждый элемент массива. Затем мы выводим исходный массив, положительные элементы и отрицательные элементы в требуемом формате. Надеюсь, это поможет Вам выполнить задачу. Если у Вас возникнут дополнительные вопросы, не стесняйтесь задавать!