Подпрограммы: для каждого из массивов вывести на печать повторяющиеся элементы, и количество их повторений

@rusik39 · Регистрация: 06.05.2010

Студворк — интернет-сервис помощи студентам

Задачка:
Заданы три одномерных массива разной размерности.Для каждого из массивов вывести на печать повторяющиеся элементы и количество их повторений.
Собственно вот мой код, при котором выводятся ошибки:

Fortran

SUBROUTINE Povtor(R,N)
    k=0
    Do i=1,N
     Do j=1,N
      IF (R(i) .EQ. R(J)) THEN 
      WRITE(*,*)'повторяющ. элемент',R(i)
          k=k+1
      ENDIF
     ENDDO
    ENDDO
    WRITE(*,*)'kol-vo',k
    RETURN
    END
    STOP
! сама прога
DIMENSION A(2),B(3),C(3)
READ(5,*)A,B,C
CALL Povtor(A,2)
CALL Povtor(B,3)
CALL Povtor(C,3)
END

ну и сама ошибка

--------------------Configuration: labuss8 - Win32 Debug--------------------
Compiling Fortran...
C:\Program Files\Microsoft Visual Studio\Common\MSDEV98\My Projects\laba8\labus8.for
C:\Program Files\Microsoft Visual Studio\Common\MSDEV98\My Projects\laba8\labus8.for(6) : Error: A specification statement cannot appear in the executable section.
SUBROUTINE Povtor(R,N)
--------^
C:\Program Files\Microsoft Visual Studio\Common\MSDEV98\My Projects\laba8\labus8.for(17) : Error: A RETURN statement is invalid in the main program.
RETURN
--------^
Error executing df.exe.

labuss8.exe - 2 error(s), 0 warning(s)

Собственно кто знает подскажите как исправить если не трудно, ну или свой вариант кода.
С Уважением rusik

@engineer-002 · 07.05.2010, 10:51

1. Ошибка в том, что вы в подпрограмму передаете один массив и его размерность, а надо подавать два. В конце подпрограммы стоп не нужен.

Fortran

SUBROUTINE Povtor(R,N,P,M)
  k=0
  Do i=1,N
    Do j=1,M
      IF (R(i) .EQ. P(J)) THEN 
        WRITE(*,*)'повторяющ. элемент',R(i)
        k=k+1
      ENDIF
    ENDDO
  ENDDO
  WRITE(*,*)'kol-vo',k
  RETURN
  END

2. Соответственно, в программе надо вызывать подпрограмму, передавая ей по два массива.

Fortran

DIMENSION A(2),B(3),C(3)
READ(*,*)A,B,C
CALL Povtor(A,2,B,3)
CALL Povtor(B,3,C,3)
CALL Povtor(A,2,C,3)

3. Чтобы пользователю было понятно что вводить и сколько, напишете побольше сообщений.

@rusik39 · 07.05.2010, 15:20 **[ТС]**

Сообщение от engineer-002

1. Ошибка в том, что вы в подпрограмму передаете один массив и его размерность, а надо подавать два. В конце подпрограммы стоп не нужен.

ага но, почему 2?да два цикла всё ясно, но мы ищём повторяющийся в каждом массиве , а не между ними
тоесть это явно не верно

Fortran

1	CALL Povtor(A,2,B,3)

где-то логическая ошибка

@engineer-002 · 07.05.2010, 19:31

Понял значит не так. Тогда по другому.

Fortran

SUBROUTINE Povtor(R,N)
  k=0
  Do i=1,N-1
    Do j=i+1,N
      if(i /= j) then
        IF (R(i) .EQ. R(J)) THEN 
          WRITE(*,*)'повторяющ. элемент',R(i)
          k=k+1
        ENDIF
      end if
    ENDDO
  ENDDO
  WRITE(*,*)'kol-vo',k
  RETURN
  END

@rusik39 · 08.05.2010, 00:50 **[ТС]**

Сообщение от engineer-002

Понял значит не так. Тогда по другому.

хм и как в целом будет выглядеть код? если для примера взять один массив

Fortran

PROGRAM rusik
    DIMENSION A(5)
    READ(*,*)A
    CALL Povtor(A,5)
    END
    SUBROUTINE Povtor(R,N)
      k=0
      Do i=1,N-1
      Do j=i+1,N
      if(i .NE. j) then
        IF (R(i) .EQ. R(j)) THEN 
          WRITE(*,*)'повторяющ. элемент',R(i)
          k=k+1
        ENDIF
      endif
      ENDDO
      ENDDO
      WRITE(*,*)'kol-vo',k
      RETURN
      END

То что то пару предупреждений и ошибка после ввода данных, странно всё это.

@engineer-002 · 11.05.2010, 10:10

Работает, чтоб предупреждение не выдавалось, надо описать в подпрограмме массив.

Fortran

1	DIMENSION R(N)

@rusik39 · 11.05.2010, 18:42 **[ТС]**

Сообщение от engineer-002

Работает, чтоб предупреждение не выдавалось, надо описать в подпрограмме массив.

Fortran

1	DIMENSION R(N)

ага работает вот только не верно(см скриншот, для пример взял только 1 массив A(10)

@rusik39 · 11.05.2010, 23:20 **[ТС]**

тоесть не верно именно кол-во повторяющихся элементов

@rusik39 0 / 0 / 0 Регистрация: 06.05.2010 Сообщений: 5
	11.05.2010, 23:20 [ТС]	8
	тоесть не верно именно кол-во повторяющихся элементов 0

Опции темы