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

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

Наш партнер Genesis Hackspace
  1. zdrastes

    zdrastes New Member

    Регистрация:
    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
     
Загрузка...
Похожие Темы - Фортран помогите Условием
  1. zdrastes
    Ответов:
    1
    Просмотров:
    1.024
  2. Makc
    Ответов:
    4
    Просмотров:
    106
  3. Sniff
    Ответов:
    1
    Просмотров:
    96
  4. 777
    Ответов:
    2
    Просмотров:
    92
  5. (((_CYBORG_)))
    Ответов:
    9
    Просмотров:
    247

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