Нахождение произведения элементов Pr одномерного массива D(N)

- использование списка параметров для передачи результатов

!*********************************************************

program Lab8

INTEGER,PARAMETER::K=5; ! количество элементов

REAL D(K)/1.5, -4.6, 10, -1.7, -4.9/ ! массив D

CALL Proizv(D,K,Pr) ! вызов процедуры

write(*,'(a,f8.1)') ' P=',Pr ! вывод результата

end program Lab8

!*********************************************************

SUBROUTINE Proizv(A,N,P)

REAL A(N),P

P=1 ! начальное значение произведения

do i=1,N ! цикл по строкам

P=P*A(i) ! поиск произведения

enddo

END SUBROUTINE Proizv

!*********************************************************

- использование общего блока памяти для передачи результатов

!*********************************************************

program Lab8

INTEGER,PARAMETER::K=5; ! количество элементов

REAL D(K)/1.5, -4.6, 10, -1.7, -4.9/ ! массив D

common /com/ Dmin,Dmax,Sum,Pr ! общий блок памяти

CALL Proizv(D,K) ! вызов процедуры

write(*,'(a,f8.1)') ' P=',Pr ! вывод результата

end program Lab8

!*********************************************************

SUBROUTINE Proizv(A,N)

REAL A(N),P

common /com/ min,max,S,P ! общий блок памяти

P=1 ! начальное значение произведения

do i=1,N ! цикл по строкам

P=P*A(i) ! поиск произведения

enddo

END SUBROUTINE Proizv

!*********************************************************

Замена отрицательных элементов одномерного массива D(N) на 1

- использование списка параметров для передачи результатов

!*********************************************************

program Lab8

INTEGER,PARAMETER::K=5; ! количество элементов

REAL D(K)/1.5, -4.6, 10, -1.7, -4.9/ ! массив D

CALL Exchange(D,K) ! вызов процедуры

write(*,'(100f5.1)') (D(i),i=1,K) ! вывод элементов

end program Lab8

!*********************************************************

SUBROUTINE Exchange(A,N)

REAL A(N)

do i=1,N ! цикл по элементам

if (A(i)<0) A(i)=1 ! замена

enddo

END SUBROUTINE Exchange

!*********************************************************

Дата добавления: 2015-07-26; просмотров: 173; Нарушение авторских прав

Мы поможем в написании ваших работ!