oarsman
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
разобрался уже, нет в режиме совместимости как раз и не работает.
Теперь вопрос по задаче:
Определить строку с наименьшим кол-вом элементов больших числа d и поместить её в одномерный массив
Код:
PROGRAM laba8_2
REAL A(20,20)
REAL B(40,40)
REAL,dimension(1:z):: res
REAL D
OPEN(5,file='dat.txt')
OPEN(6,file='res.txt')
READ(5,*)((B(i,j),j=1,40),i=1,40),((A(i,j),j=1,20),i=1,20)
WRITE(6,*)((B(i,j),j=1,40),i=1,40),((A(i,j),j=1,20),i=1,20)
contains
SUBROUTINE search
INTEGER z,k,i,j,N
dimension(1:40):: c
DO i=1,40
k=0
DO j=1,40
IF(A(i,j)>D) THEN
k=k+1
ENDIF
ENDDO
L(i)=k
z=z+1
ENDDO
min=L(1)
N=1
DO i=2,z
IF (L(i)<min) then
N=i
ENDIF
ENDDO
do j=1,40
c(i)=A(N,j)
enddo
end subroutine search
WRITE(6,*)(c(i),i=1,40)
end program laba8_2
|
ошибка
Цитата:
--------------------Configuration: laba8_2 - Win32 Debug--------------------
Compiling Fortran...
C:\Program Files\Microsoft Visual Studio\MyProjects\laba8_2\rus.for
C:\Program Files\Microsoft Visual Studio\MyProjects\laba8_2\rus.for(15) : Error: Syntax error, found '(' when expecting one of: :: <IDENTIFIER>
dimension(1:40):: c
-----------------^
C:\Program Files\Microsoft Visual Studio\MyProjects\laba8_2\rus.for(15) : Error: Syntax error, found '::' when expecting one of: , <END-OF-STATEMENT> ;
dimension(1:40):: c
-----------------------^
Error executing df.exe.
rus.obj - 2 error(s), 0 warning(s)
|
Подскажите как исправить и если есть, то какие именно логические ошибки
|
