1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

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

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

Тема в разделе "Другие", создана пользователем 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
     
Загрузка...
Похожие Темы - Фортран помогите Условием
  1. zdrastes
    Ответов:
    1
    Просмотров:
    1.042
  2. number27
    Ответов:
    0
    Просмотров:
    78
  3. Rina
    Ответов:
    0
    Просмотров:
    93
  4. maksiiimka
    Ответов:
    2
    Просмотров:
    91
  5. Ким
    Ответов:
    23
    Просмотров:
    622

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