1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Фортран,помогите С Условием

Тема в разделе "Остальные языки программирования", создана пользователем zdrastes, 17 дек 2013.

  1. zdrastes

    zdrastes New Member

    Репутация:
    0
    Регистрация:
    17 дек 2013
    Сообщения:
    2
    Симпатии:
    0
    эта программа в двумерном массиве ищет индексы двух одинаковых элементов,ну и сами элементы,как задать условие,чтобы она считала в каждом нечетном столбце количество элементов,принадлежащих промежутку (pi^e;e^pi]
    program zad8
    implicit none
    integer,parameter :: m=4,n=5
    integer A(m,n),i,k

    print*, 'BBeDute ElemeNTbl massiva A'
    do i=1,m
    read(*,*) (a(i,k), k=1,n)
    end do

    write(*,*) ' Matrix A'
    call print_matrix( a, m, n)
    call found(a, m, n)

    end program

    subroutine print_matrix(a,m,n)
    integer i,k,m,n,a(m,n)

    do i=1,m
    do k=1,n
    write(*,'(i4,1X,$)') A(i,k)
    end do
    write(*,'(/)')
    end do

    return
    end subroutine

    subroutine found(a, m, n)
    integer i,k,l,j,m,n,a(m,n),q

    do i=1,m
    do j=i,m
    do k=1,n
    do l=k+1,n
    if (A(i,k)==A(j,l)) then
    q=A(j,l)
    write(*,*) 'index'
    write(*,'(2i2)') j,l
    write(*,'(2i2)') i,k
    end if

    end do
    end do
    end do
    end do
    write(*,*)'ix znachenya matrix A=', q

    return
    end
     
Загрузка...

Поделиться этой страницей