DIMENSION A(3,5),B(5,3)

DO 11 L=1,5

DO 11 K=1,3

11 B(L,K)=A(K,L)

 

6). Найти сумму элементов массива, находящихся под главной диагональю, включая элементы, лежащие на диагонали.

+ а21 а31 а41 а51
+ +      
+ + +    

S=0.

DO 15 I=1,3

DO 15 J=1,IВнутренний цикл изменяется от 1 до I

15 S=S+A(I,J)

7). Найти сумму элементов, находящихся на главной диагонали

S=0.

DO 16 I=1,3

16 S=S+A(I,I)Следует обратить внимание что, первый и второй индексы могут быть одинаковыми.

Так как элементы, лежащие на главной диагонали, всегда имеют одинаковые номер строки и номер столбца, то достаточно сделать изменение номера строки и номера столбца по одному циклу (будут анализироваться элементы А(1,1), А(2,2) и т.д.).

 

8). Вычислить произведение всех элементов, за исключением тех, что стоят под побочной диагональю и на диагонали.

PR=1.

DO 12 I=1,3

+ + + +  
+ + +    
+ +      

Цикл, в котором изменяется номер строки

D0 12 J=1,5-I

Цикл, в котором изменяется номер столбца (если в произведение включить побочную диагональ, то J=1,6–I).

12 PR=PR*A(I,J)

9). Найти количество положительных элементов каждого столбца массива. Все эти значения записать в отдельный массив.

Решение: во внутреннем цикле, в котором будет осуществляться перебор номеров строк, будет подсчитываться количество положительных элементов. Количество этих циклов – 3. Внешний цикл будет повторяться 5 раз, а внутри этого цикла будут осуществляться операции по нахождению количества элементов в каждом столбце.









Дата добавления: 2015-06-10; просмотров: 388; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию, введите в поисковое поле ключевые слова и изучайте нужную вам информацию.

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2020 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.009 сек.