Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Наташа*
1 / 0 / 0
Регистрация: 16.02.2011
Сообщений: 26
1

Дана матрица a(n,n). Перепишите элементы её главной диагонали в одномерный массив y(n)

30.03.2011, 21:39. Просмотров 1012. Ответов 2
Метки нет (Все метки)

Нужна помощь!!!

В qbasic:Дана матрица a(n,n). Перепишите элементы её главной диагонали в одномерный массив y(n) и разделите их на максимальный элемент главной диагонали. Все переменные должны бать равны 12(i=12,j=12,n=12...). Жалательно комментарии

Заранее спасибо
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.03.2011, 21:39
Ответы с готовыми решениями:

Дана квадратная матрица. В новый массив записать числа, которые лежат на ближних диагоналях, параллельных главной диагонали
Дана квадратная матрица. В новый массив надо записать те числа, которые лежат...

Дана квадратная матрица. найти максимум среди элементов не главной диагонали
Дана квадратная матрица. Найти максимум среди элементов не главной диагонали

Заменить элементы побочной диагонали матрицы на максимальный элемент главной диагонали
Преобразуйте матрицу D(4, 4) заменив элементы побочной диагонали на...

Элементы заданного массива перепишите в новый массив в обратном порядке
есть задание на qbasic, но так как его изучал давненько и в школе, то не много...

Элементы главной диагонали расположить в порядке возрастания
Элементы главной диагонали расположить в порядке возрастания. Кусочек этот...

2
softmob
1250 / 700 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
30.03.2011, 21:56 2
Лучший ответ Сообщение было отмечено Наташа* как решение

Решение

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS: n = 12: DIM a(n, n), y(n)
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT "vvedite a("; i; ","; j; ")";
        INPUT a(i, j)
NEXT: NEXT
max = a(1, 1)
FOR i = 1 TO n
    IF a(i, i) > max THEN max = a(i, i)
NEXT
FOR i = 1 TO n
    y(i) = a(i, i) / max
NEXT
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    PRINT y(i);
NEXT
1
Наташа*
1 / 0 / 0
Регистрация: 16.02.2011
Сообщений: 26
30.03.2011, 23:12  [ТС] 3
Спасибо!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.03.2011, 23:12

Элементы массива выше, ниже, на главной диагонали
На главной диагонали: a(i,i) или i=j Выше гл.диагонали: FOR i=1 TO n-1...

Замените все элементы матрицы (6*6), находящихся на главной диагонали, на 0
пожалуйста

Заменить нулями все элементы матрицы, расположенные на главной диагонали
Дана действительная квадратная матрица порядка n. Заменить нулями все её...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru