Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Вот по этой программе какое можно составить задание?
СообщениеДобавлено: 13 сен 2012, 15:56 
Не в сети
Начинающий
Аватара пользователя
Зарегистрирован:
17 сен 2011, 16:02
Сообщений: 42
Cпасибо сказано: 7
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Очень нужно! Плиз! Какое условие задачи можно составить для этой программы?
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

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему      Страница 1 из 1 [ 1 сообщение ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Какое число описано на этой странице?

в форуме Палата №6

goldolov_na

10

498

31 янв 2020, 04:51

Дана последовательность Какое число не появится в этой после

в форуме Алгебра

VICTORQQQQ

3

399

11 апр 2017, 21:01

Какое статистическое объяснение выбора средней в этой задаче

в форуме Математическая статистика и Эконометрика

matema+tika

2

211

21 дек 2021, 15:11

В какой программе можно начертить график?

в форуме Пределы числовых последовательностей и функций, Исследования функций

sfanter

2

470

14 фев 2016, 17:36

Составить закон распределения этой случайной величины

в форуме Теория вероятностей

Kepel

1

303

16 май 2021, 13:08

Какое наибольшее число веревочек можно перерезать?

в форуме Дискретная математика, Теория множеств и Логика

Tanj

13

2567

30 янв 2015, 09:16

На какое число можно было бы разрезать моток верёвки?

в форуме Алгебра

ilonka

1

720

11 апр 2014, 17:58

Сколько повторяющихся чисел можно составить

в форуме Комбинаторика и Теория вероятностей

4elus

5

429

04 сен 2018, 12:21

Сколькими способами можно составить расписание

в форуме Теория вероятностей

k1n5

3

256

22 янв 2021, 20:41

Сколько разных «слов» можно составить

в форуме Комбинаторика и Теория вероятностей

Tatiana_1

3

167

04 мар 2022, 18:17


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10


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

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved