Математический форум Math Help Planet
Обсуждение и решение задач по математике, физике, химии, экономике Теоретический раздел |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
новый онлайн-сервис число, сумма и дата прописью |
|
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Страница 1 из 1 |
[ 1 сообщение ] |
|
Автор | Сообщение | |
---|---|---|
Su-34 |
|
|
Program Matrix integer N,M,imax(2) Integer, Allocatable :: A(:,: ),B(: ) Open(1,FILE='in.txt') Open(2,FILE='out.txt') Read(1,*)N,M Allocate (A(N,M),B(L)) Read(1,*)(A(i,: ),i=1,N) K=(A1,1:An,1) Z=(An,2:AN,M) V=(An,m-1:A1,M) T=(A1,M-1;A1,2) L=K+Z+V+T do Bi=ai;1 i=1,N end do do Bj=an,j j=2,M end do do Bi=ai,M i=N-1,1,-1 end do bj=1,j j=m-1,2,-1 end do Write(2,*)B Deallocate(A,B ) End И для этой. Из имеющейся матрицы выбрать все элементы, которые удовлетворяют условию ((A(I,J)>0) .AND. (A(I,J)<3)) и находятся не ниже главной диагонали ? Так? И как словами написать это "((A(I,J)>0) .AND. (A(I,J)<3))" program dynmas1 integer A(5,5),S,k integer,allocatable:: x(: ) A(1,: )=(/1,3,6,2,-2/) A(2,: )=(/3,2,-1,1,1/) A(3,: )=(/2,1,2,1,4/) A(4,: )=(/4,3,-2,-1,5/) A(5,: )=(/-1,2,4,3,1/) S=0 DO J=1,5 DO I=1,5-J IF ((A(I,J)>0) .AND. (A(I,J)<3)) THEN S=S+1 END IF END DO END DO PRINT*,'S=',S allocate (x(S)) k=0 DO J=1,5 DO I=1,5-J IF ((A(I,J)>0) .AND. (A(I,J)<3)) THEN k=k+1 x(k)=A(I,J) END IF END DO END DO PRINT*,'x=',x deallocate(x) end |
||
Вернуться к началу | ||
[ 1 сообщение ] |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Кто сейчас на конференции |
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10 |
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения |