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

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

30.03.2011, 21:39. Просмотров 1007. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дана матрица a(n,n). Перепишите элементы её главной диагонали в одномерный массив y(n) (QBasic):

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

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

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

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

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

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

2
softmob
1249 / 699 / 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
Привет! Вот еще темы с решениями:

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

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

Заменить все элементы стоящие по главной диагонали на максимальный элемент
Помогите решить пожалуйста "В массиве N(5,5) заменить все элементы стоящие по...

Найти минимальные элементы матрицы и поменять их с элементами главной диагонали
Я нашел минимальные элементы каждой строки ,как мне их поменять с элементами...


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

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

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