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

Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К)

21.02.2013, 15:58. Показов 2161. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
[QBASIC] Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К) прогу и блок схему напишите пожалуйста:*
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.02.2013, 15:58
Ответы с готовыми решениями:

Найти среднее арифметическое над главной диагональю и под главной диагональю и сравнить их
Дана квадратная матрица m*m надо найти среднее арифметическое над главной диагональю и под главной...

Дана матрица А(п*п). Заменить элементы главной диагонали нулями, а элемен-ты, стоящие над главной диагональю - единицами
Дана матрица А(п*п). Заменить элементы главной диагонали нулями, а элемен-ты, стоящие над главной...

Заменить элементы главной диагонали единицами, элементы, расположенные под главной диагональю увеличить вдвое
паскаль.... Дана матрица L (4,4). Заменить элементы главной диагонали единицами, элементы,...

Вывести квадратную матрицу любого размера и поменять местами элементы массива над главной диагональю с элементами массива под главной диагональю
Вывести квадратную матрицу любого размера и поменять местами элементы массива над главной...

3
136 / 63 / 24
Регистрация: 08.11.2012
Сообщений: 250
22.02.2013, 12:23 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
INPUT N
DIM A(N, N)
FOR I = 1 TO N
FOR J = 1 TO N
A(I, J) = INT(RND * 100)
PRINT USING "####"; A(I, J);
NEXT J
PRINT
NEXT I
FOR I = 1 TO N
FOR J = 1 TO N
IF I <> J AND I < J THEN A(I, J) = 1
IF I <> J AND I > J THEN A(I, J) = 0
NEXT J, I
PRINT
FOR I = 1 TO N
FOR J = 1 TO N
PRINT USING "####"; A(I, J);
NEXT J
PRINT
NEXT I
1
0 / 0 / 0
Регистрация: 21.02.2013
Сообщений: 9
22.02.2013, 17:47  [ТС] 3
пасиба,очень помогли
0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
04.06.2016, 16:27 4
Зачем дублирование условий?

QBasic/QuickBASIC
1
2
IF I <> J AND I < J THEN A(I, J) = 1 
IF I <> J AND I > J THEN A(I, J) = 0
Так ведь проще
QBasic/QuickBASIC
1
2
IF I < J THEN A(I, J) = 1 
IF I > J THEN A(I, J) = 0
0
04.06.2016, 16:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2016, 16:27
Помогаю со студенческими работами здесь

Вычислить сумму элементов матрицы над главной диагональю под главной диагональю и на главной диагонали
Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над главной диагональю...

Заменить нулем элементы, расположенные над главной диагональю
Дан двумерный массив 5х5. Заменить нулем элементы, расположенные над главной диагональю.

Заменить нулем элементы матрицы, расположенные над главной диагональю
Дан двумерный массив 5*5. Заменить нулем элементы, расположенные над главной диагональю. Правила...

Заменить нулем элементы матрицы, расположенные над главной диагональю
Дан двумерный массив 5*5. Заменить нулем элементы, расположенные над главной диагональю.


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

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

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