JaVacRAcK

Просто заголовок

Тестовое предложение, которое служит для наполнения шаблона сайта совершенно бессмысленным содержимым. Тестовое предложение, которое служит для наполнения шаблона сайта совершенно бессмысленным содержимым. Тестовое предложение, которое служит для наполнения шаблона сайта совершенно бессмысленным содержимым.

Просто заголовок

Тестовое предложение, которое служит для наполнения шаблона сайта совершенно бессмысленным содержимым.

Просто заголовок

Тестовое предложение, которое служит для наполнения шаблона сайта совершенно бессмысленным содержимым. Тестовое предложение, которое служит для наполнения шаблона сайта совершенно бессмысленным содержимым. Тестовое предложение, которое служит для наполнения шаблона сайта совершенно бессмысленным содержимым.

Лабораторная работа №1

14 февраля 2010

program matrix
implicit none
integer, parameter :: n=4, m=4
integer i, j, s, p
real k(n), r(n,m) /
5.,-3.,2.,8.,&
-2.,1.,1.,2.,&
5.,6.,3.,-9.,&
-9.,10.,5.,7./
write (*,"(1x,4f5.2)") ((r(i,j),j=1,m), i=1,n)
s=0.
p=1
do i=1,n
do j=1,m
if(r(i,j)>0)then
s=s+r(i,j)
endif
if (r(i,j)<0)then
p=p*r(i,j)
endif
enddo
enddo
print *,s
print *,p
do i=1,n
do j=1,m
if ((s>p).and.r(i,j)>0) then
k(i)=r(i,j)
print *,k(i)
endif
if ((s k(i)=r(i,j)
print *,k(i)
endif
enddo
enddo
end program mat
PROGRAM PR1
INTEGER:: N, I, J,M(100, 100), A(10000)
INTEGER:: LEN, SUMO, SUMP
REAL:: X
DO I=1, N
DO J= 1, N
!CALL RANDOM_NUMBER(X)
!X= X*101-50
!M(I, J)= NINT(X)
WRITE (*, 200) M(I, J)
END DO
PRINT*
END DO
PRINT*
LEN= 0
SUMO=0
SUMP=0
DO I=1, N
DO J= 1, N
IF (M(I, J)>0) THEN
SUMP= SUMP+M(I, J)
END IF
IF (M(I, J)<0) THEN
SUMO= SUMO+ABS(M(I, J))
END IF
END DO
END DO
IF (SUMP>SUMO) THEN
DO I=1, N
DO J= 1, N
IF (M(I, J)>0) THEN
LEN= LEN+1
A(LEN)= M(I, J)
END IF
END DO
END DO
END IF
IF (SUMP DO I=1, N
DO J= 1, N
IF (M(I, J)<0) THEN
LEN= LEN+1
A(LEN)= M(I, J)
END IF
END DO
END DO
END IF
DO I= 1, LEN
WRITE (*, 200) A(I)
END DO
200 FORMAT (1X, I3, \)
END PROGRAM

 

Hosted by uCoz