Вернуться   Развлекательный портал CN.ru - Форум > Технологии > Программирование > Начинающим

Ответ
 
Опции темы
Старый 13.09.2012, 18:37 ↑ #1
Fencer Мужской
абориген
 
Аватар для Fencer
 
Регистрация: 17.08.2007
Адрес: ☭
Сообщений: 138
Репутация: -5
Fencer
Отправить сообщение для Fencer с помощью ICQ Отправить сообщение через Jabber пользователю Fencer
Exclamation Вот по этой программе какое можно составить задание?

Очень нужно! Плиз! Какое условие задачи можно составить для этой программы?
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
Fencer вне форума   Ответить с цитированием
Старый 14.09.2012, 11:10 ↑ #2
za58z
новый эго-житель
 
Регистрация: 23.11.2010
Возраст: 29
Сообщений: 5
Репутация: 0
za58z молчание-золото
По умолчанию Re: Вот по этой программе какое можно составить задание?

Тебе не сюда обращаться надо, а на специализированные форумы.
za58z вне форума   Ответить с цитированием
Старый 14.09.2012, 22:20 ↑ #3
ShinodL
новый эго-житель
 
Аватар для ShinodL
 
Регистрация: 20.01.2007
Возраст: 27
Сообщений: 7
Репутация: 0
ShinodL молчание-золото
По умолчанию Re: Вот по этой программе какое можно составить задание?

Из имеющейся матрицы выбрать те элементы, значение которых больше ноля и меньше трёх, при этом располагаются выше главной диагонали
ShinodL вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Текущее время: 01:57. Часовой пояс GMT +6.
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd. Перевод: zCarot

ВКонтактeTwitterFacebook
Хотите связаться с нами? Напишите письмо, и мы обязательно ответим.