0 / 0 / 0
Регистрация: 18.11.2016
Сообщений: 2
1

Нужно создать матрицу NxN на Фортране (CodeBlock)

22.05.2017, 20:02. Показов 1656. Ответов 1
Метки нет (Все метки)

Нужно решить эту задачу в программе CodeBlock на языке Фортран. нужно сделать так чтобы можно было создавать не только размером 37 на 37. А 100 на 100. 200 на 200. В общем нужно сделать так чтобы Н можно было задавать самому.

Сформировать квадратную матрицу размера nxn, n=37 по заданному образцу. В
полученной матрице найти сумму всех элементов:

1 1 1... 1 1 1
1 0 0... 0 0 1
1 0 0:: 0 0 1
: : : : : :
1 0 0 ...0 0 1
1 1 1 ...1 1 1

Заранее спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2017, 20:02
Ответы с готовыми решениями:

Из NxN матрицы создать матрицу Nx2N
Из NxN матрицы создать матрицу Nx2N. Элементы матрицы вводим с клавиатуры. ввод данных с...

Создать матрицу NxN с уникальными элементами
Как создать неповторимый элементы матрицы NxN ???

Создать матрицу А(nxn), сгенерировать елементы случайным образом
Создать матрицу А(nxn), сгенерировать елементы случайным образом. Вычеслить индексы елементов...

Нужно заполнить порядковыми номерами квадратную матрицу NxN по спирали по часовой стрелке
Нужно заполнить порядковыми номерами квадратную матрицу NxN по спирали по часовой стрелке! Помогите...

1
126 / 113 / 56
Регистрация: 05.12.2012
Сообщений: 463
22.05.2017, 21:53 2
Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
integer :: n, sum, i, j
integer, allocatable :: mtx(n ,n)
 
write(*,*) "Enter n"
read(*,*) n
 
allocate( mtx(n, n) )
 
mtx = 0
mtx(1:n, 1) = 1
mtx(1:n, n ) = 1
mtx(1,  1:n) = 1
mtx(n,  1:n) = 1
 
sum = 0
 
do i = 1, n
    do j = 1, n
        sum = sum + mtx(i, j)
    end do
end do
 
write(*,*) sum
 
end program
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2017, 21:53

Создать матрицу nxn, каждый элемент которой равен 0, 1, 5 или 11
помогите как записать это условие на языке pascal? Дан матрица nxn, каждый элемент которой равен 0,...

создать матрицу A nxn, где каждый элемент Aij-функция от 2-х переменных
Можно ли создать матрицу A nxn, где каждый элемент Aij-функция от 2-х переменных: Aij=K(ti,sj) ?

Заполнить массив A[NxN] случайными числами. Развернуть матрицу на 180 градусов и полученную матрицу сложить с исходной.
Пожалуйста помогите написать программу. Заполнить массив A случайными числами. Развернуть...

Написать матрицу на фортране (все исходные данные есть)
Ссылка на картинку: http://ki-group.ru/infa.jpg Помогите пожалуйста сделать 23 вариант матрицу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru