Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  5
Language: C/C++
Code:
    program SOBROUTINE

    REAL A,B,P,M,N,F,D,i,j
DIMENSION A(5,6)
DIMENSION B(4,6)
COMMON /A/ A,MES
COMMON /B/ B
CHARACTER*10::MES(6)

write (*,*) 'vvedite kolichestvo sudov, M'
write (*,*) 'vvedite kolichestvo mesatsev, N'
read (*,*) M, N
data A/57,71,145,89,60,60,68,53,91,56,61,70,60,92,152,60,72,63,93,50,59,78,71,98,55,10,73,67,96,63/
write (*,2) ((A(i,j),j=1,N), i=1,M)
2 format (' sudno VOLGO-DON:'/5(1x,6I3/))

DATA MES/'IANVAR','FEVRAL','MART','APREL','MAI','IUNN'/


write (*,*) 'vvedite kolichestvo sudov, F'
write (*,*) 'vvedite kolichestvo mesatsev, D'
read (*,*) F,D
data B/57,71,45,89,60,160,68,53,91,56,61,70,60,192,52,60,72,63,93,50,59,78,71,98/
write (*,3) ((B(i,j),j=1,D), i=1,F)
3 format (' sudno VOLGCKII:'/4(1x,6I3/))


DATA MES/'IANVAR','FEVRAL','MART','APREL','MAI','IUNN'/


CALL PR(1,5,A,O1)
CALL PR(1,4,B,O2)
 
READ (*,*)

    end program SOBROUTINE
    
 SUBROUTINE PR(K1,K2,Z,O)
INTEGER j,i,PL,M,K,O,A,B
REAL P,Z
DIMENSION Z(1:K2)
CHARACTER*10::MES(6)
!COMMON /A/ A,MES

PL=100
DO i=K1,K2
DO j=1,N,1
IF (A(i,j)>PL)THEN
O=A(i,j)
M=j
K=i
END IF
END DO
END DO
write (*,4) K,O,MES(M) 
4 FORMAT (4X,I1,'SUDNO',I2,' % VIPOLNENIA=',I4,'MESIAC',A)

DO i=K1,K2
DO j=1,N,1
IF (B(i,j)>PL)THEN
O=B(i,j)
M=j
K=i
END IF
END DO
END DO
write (*,5) K,O,MES(M) 
5 FORMAT (4X,I1,'SUDNO',I2,' % VIPOLNENIA=',I4,'MESIAC',A)
END SUBROUTINE

          
          
Comments: