Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
pie-2008
1

Первую половину элементов главной диагонали квадратной матрицы по возрастанию, вторую по убыванию

29.01.2011, 21:14. Показов 1280. Ответов 2
Метки нет (Все метки)

Нужно первую половину элементов главной диагонали квадратной матрицы по возрастанию, вторую по убыванию.
Помогите бедному студенту

Как матрицу создать знаю. Как вывести на печать тоже. А дальше не получается....
DECLARE FUNCTION Y# (Mas() AS DOUBLE)
CLS
INPUT "Vvedite n : ", n
DIM a(n, n) AS DOUBLE, x(n) AS DOUBLE
FOR j = 1 TO n: FOR i = 1 TO n
a(i, j) = (j ^ (1 / i) + i ^ (1 / j)) / SQR(i * j)
NEXT
NEXT

FOR j = 1 TO n: FOR i = 1 TO n
d$ = STR$(a(i, j))
LOCATE i + 1, j * 5 - 4: PRINT d$
NEXT: d$ = STR$(x(j))
NEXT
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2011, 21:14
Ответы с готовыми решениями:

Заполнить массив рандомно, отсортировать первую половину по возрастанию, а вторую – по убыванию
Заполнить массив из 10 элементов случайными числами в интервале и отсортировать первую половину по...

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

Найти среднее арифметическое элементов главной диагонали квадратной матрицы
Дана расчетная C(I,K) = (A(I) / (A(I) + B(K))) ^ .25 и значение переменных Ai=2.5, 3.8, 4.6, 7.2 и...

Упорядочить строки матрицы по убыванию элементов главной диагонали
В массивe R(5, 5) упорядочить строки по убыванию элементов главной диагонали. (уточнять условие...

2
1252 / 702 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
29.01.2011, 22:10 2
Лучший ответ Сообщение было отмечено как решение

Решение

PureBasic
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
26
27
CLS
RANDOMIZE TIMER
INPUT "vvedite n"; n
DIM a(n, n), b(n)
FOR i = 1 TO n: FOR j = 1 TO n
        a(i, j) = FIX(RND * 100)
NEXT: 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
    b(i) = a(i, i)
NEXT
FOR i = 1 TO n
    PRINT b(i);
NEXT
FOR i = 1 TO n \ 2: FOR j = 2 TO n \ 2
        IF b(j) < b(j - 1) THEN SWAP b(j), b(j - 1)
NEXT: NEXT
FOR i = n \ 2 + 1 TO n: FOR j = n \ 2 + 2 TO n
        IF b(j) > b(j - 1) THEN SWAP b(j), b(j - 1)
NEXT: NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    PRINT b(i);
NEXT
0
pie-2008
29.01.2011, 22:28 3
спасибо
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2011, 22:28

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Первую половину элементов массива упорядочить по убыванию, а вторую – по возрастанию
Из произвольного одномерного массива действительных чисел сформировать массив, в котором первую...

Отсортировать первую половину массива из N элементов по возрастанию, а вторую по убыванию
написать программу, которая отсортирует первую половину массива из N элементов по возрастанию, а...

Отсортировать первую половину массива размера 2*n по убыванию, а вторую половину - по возрастанию
в одномерном массиве размерностью 2*n отсортируйте первую половину массива по убыванию, а вторую...

Упорядочить первую половину массива по убыванию, а вторую половину – по возрастанию
Массив содержит 14 действительных чисел. Упорядочить первую половину массива по убыванию, а вторую...


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

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

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