Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/16: Рейтинг темы: голосов - 16, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 7
1

Найти сумму элементов главной и второстепенной диагонали матрицы

04.05.2011, 17:00. Просмотров 3293. Ответов 4
Метки нет (Все метки)

1. Дан массив A(N, N), состоящий из случайных чисел от 1 до 9. Вывести сам массив, а также сумму элементов главной и второстепенной диагонали.

2. Дан массив A(N,N), состоящий из случайных чисел от 10 до 20. Вывести сам массив и среднее арифметическое элементов массива, находящихся в правом треугольнике.

3. Дан массив A(N,M), состоящий из случайных двухзначных чисел. Вывести сам массив и количество элементов, кратных 3., а также минимальный элемент массива.

4. Создать массив A(N,N)), состоящий из случайных чисел от 1 до 9. Вывести массив. Найти S=(X+Y)/10, где X - номер столбца, содержащего максимальный элемент массива, Y – сумма элементов второстепенной диагонали.

5. Дан массив A (6, 6), состоящий из случайных трехзначных чисел. Поменять местами максимальный и минимальный элемент массива.

6. Дан массив A(N, N), состоящий из случайных двухзначных чисел. Поменять в массиве первую строку со строкой, содержащей максимальный элемент.

7. Дан массив A(N, N), состоящий из случайных двухзначных чисел. Поменять в массиве последний столбец со столбцом, содержащим минимальный элемент.

8. Дана матрица A(N, N), состоящая из чисел от 10 до 50. Заменить все элементы нижнего треугольника нулями. Транспонировать матрицу.

9. Отсортировать строки массива A(N, M) из случайных чисел от 10 до 25 по убыванию элементов.

10. Отсортировать столбцы массива A(N, M) из случайных чисел от 10 до 50 по убыванию элементов.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2011, 17:00
Ответы с готовыми решениями:

Найти сумму элементов главной диагонали матрицы
Дана матрица размерностью NxN Как найти сумму элементов главной диагонали?

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

Найти сумму положительных элементов главной диагонали матрицы
Помогите плиз, очень надо. Зарание спасибо!

Найти сумму отрицательных элементов главной диагонали матрицы, произведение элементов 3-го столбца, максимальный элемент 1-й строки
помогите составить программу на QBasic! дана матрица : -12; 1; 2; -21; 11; -14; 13; 8; ...

4
Платежеспособный зверь
8663 / 4091 / 1587
Регистрация: 28.10.2009
Сообщений: 10,975
04.05.2011, 19:40 2
Читай п.6:
Как запостить тему, чтобы не получить ответ
1
4500 / 1356 / 378
Регистрация: 25.04.2010
Сообщений: 3,582
05.05.2011, 14:08 3
Лучший ответ Сообщение было отмечено как решение

Решение

1.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS : INPUT "Vvedite N: ", N
DIM A(N, N) AS INTEGER
 RANDOMIZE TIMER
 FOR iy = 1 TO N
    FOR ix = 1 TO N
    A(ix, iy) = RND * 8 + 1
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
 FOR i = 1 TO N
   Sgl = Sgl + A(i, i)
   Svt = Svt + A(N - i + 1, i)
 NEXT
 PRINT "Summa glavnoj        :"; Sgl
 PRINT "Summa vtorostepennoj :"; Svt
2.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS : INPUT "Vvedite N: ", N
DIM A(N, N) AS INTEGER
 RANDOMIZE TIMER
 FOR iy = 1 TO N
    FOR ix = 1 TO N
    A(ix, iy) = RND * 10 + 10
    IF iy > N - ix AND ix > iy - 1 THEN COLOR 10 ELSE COLOR 12
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
 FOR iy = 1 TO N
    FOR ix = 1 TO N
       IF iy > N - ix AND ix > iy - 1 THEN S = S + A(ix, iy): k = k + 1
 NEXT ix, iy
 PRINT "Sr arifm pravogo treugolnika :"; S / k
3.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS : INPUT "Vvedite M(stolbc): ", M
      INPUT "Vvedite N(stroki): ", N
DIM A(M, N) AS INTEGER
  RANDOMIZE TIMER
  FOR iy = 1 TO N
     FOR ix = 1 TO M
     A(ix, iy) = RND * 89 + 10
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
  Min = 100   ' Больше макс знач.
  FOR iy = 1 TO N
     FOR ix = 1 TO M
        IF A(ix, iy) < Min THEN Min = A(ix, iy)
        IF A(ix, iy) MOD 3 = 0 THEN k = k + 1
  NEXT ix, iy
  PRINT "Minimalnyj element :"; Min
  PRINT "Kratnyh elementov  :"; k
4.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS : INPUT "Vvedite N: ", N
DIM A(N, N) AS INTEGER
  RANDOMIZE TIMER
  FOR iy = 1 TO N
     FOR ix = 1 TO N
     A(ix, iy) = RND * 8 + 1
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
  Max = 0   'Меньше мин знач.
  FOR iy = 1 TO N
     Y = Y + A(N - iy + 1, iy)
     FOR ix = 1 TO N
        IF A(ix, iy) > Max THEN Max = A(ix, iy): X = ix
  NEXT ix, iy
  PRINT "S ="; (X + Y) / 10
5.
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
CLS
DIM A(6, 6) AS INTEGER
  RANDOMIZE TIMER
  FOR iy = 1 TO 6
     FOR ix = 1 TO 6
     A(ix, iy) = RND * 899 + 100
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
  Min = 1000   'Больше макс знач.
  Max = 0      'Меньше мин знач.
  FOR iy = 1 TO 6
     FOR ix = 1 TO 6
        IF A(ix, iy) > Max THEN Max = A(ix, iy): Xma = ix: Yma = iy
        IF A(ix, iy) < Min THEN Min = A(ix, iy): Xmi = ix: Ymi = iy
  NEXT ix, iy
  PRINT "   Max ="; Max; " poziciya: ("; Xma; ","; Yma; ")"
  PRINT "   Min ="; Min; " poziciya: ("; Xmi; ","; Ymi; ")"
     SWAP A(Xma, Yma), A(Xmi, Ymi)
  PRINT "Novaya matrica :"
  FOR iy = 1 TO 6
     FOR ix = 1 TO 6
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
6.
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
CLS : INPUT "Vvedite N: ", N
DIM A(N, N) AS INTEGER
  RANDOMIZE TIMER
  FOR iy = 1 TO N
     FOR ix = 1 TO N
     A(ix, iy) = RND * 89 + 10
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
  Max = 0      'Меньше мин знач.
  FOR iy = 1 TO N
     FOR ix = 1 TO N
        IF A(ix, iy) > Max THEN Max = A(ix, iy): Ym = iy
  NEXT ix, iy
  PRINT "   Max ="; Max; " Stroka:"; Ym
     '  Меняем строку
     FOR i = 1 TO N
        SWAP A(i, 1), A(i, Ym)
     NEXT
  PRINT "Novaya matrica :"
  FOR iy = 1 TO N
     FOR ix = 1 TO N
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
7.
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
CLS : INPUT "Vvedite N: ", N
DIM A(N, N) AS INTEGER
  RANDOMIZE TIMER
  FOR iy = 1 TO N
     FOR ix = 1 TO N
     A(ix, iy) = RND * 89 + 10
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
  Min = 100      'Больше макс знач.
  FOR iy = 1 TO N
     FOR ix = 1 TO N
        IF A(ix, iy) < Min THEN Min = A(ix, iy): Xm = ix
  NEXT ix, iy
  PRINT "   Min ="; Min; " Stolbec:"; Xm
     '  Меняем столбец
     FOR i = 1 TO N
        SWAP A(N, i), A(Xm, i)
     NEXT
  PRINT "Novaya matrica :"
  FOR iy = 1 TO N
     FOR ix = 1 TO N
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
8.
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 : INPUT "Vvedite N: ", N
DIM A(N, N) AS INTEGER
 RANDOMIZE TIMER
 FOR iy = 1 TO N
    FOR ix = 1 TO N
    A(ix, iy) = RND * 40 + 10
    IF iy > ix - 1 AND ix > N - iy THEN COLOR 10 ELSE COLOR 12
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
   ' Замена
 FOR iy = 1 TO N
    FOR ix = 1 TO N
       IF iy > ix - 1 AND ix > N - iy THEN A(ix, iy) = 0
 NEXT ix, iy
   ' Транспонирование
 FOR iy = 1 TO N
    FOR ix = 1 TO N
      IF iy > ix THEN SWAP A(ix, iy), A(iy, ix)
 NEXT ix, iy
   ' Вывод матрицы
   COLOR 7: PRINT
 FOR iy = 1 TO N
    FOR ix = 1 TO N
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
9.
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
CLS : INPUT "Vvedite M(stolbc): ", M
      INPUT "Vvedite N(stroki): ", N
DIM A(M, N) AS INTEGER
 RANDOMIZE TIMER
 FOR iy = 1 TO N
    FOR ix = 1 TO M
    A(ix, iy) = RND * 15 + 10
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
   ' Сортировка
 FOR iy = 1 TO N
    FOR j = M - 1 TO 1 STEP -1
       FOR ix = 1 TO j
       IF A(ix, iy) < A(ix + 1, iy) THEN SWAP A(ix, iy), A(ix + 1, iy)
    NEXT ix, j
 NEXT
 PRINT "Novaya matrica: "
   ' Вывод матрицы
 FOR iy = 1 TO N
    FOR ix = 1 TO M
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
10.
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
CLS : INPUT "Vvedite M(stolbc): ", M
      INPUT "Vvedite N(stroki): ", N
DIM A(M, N) AS INTEGER
 RANDOMIZE TIMER
 FOR iy = 1 TO N
    FOR ix = 1 TO M
    A(ix, iy) = RND * 40 + 10
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
   ' Сортировка
 FOR ix = 1 TO M
    FOR j = N - 1 TO 1 STEP -1
       FOR iy = 1 TO j
       IF A(ix, iy) < A(ix, iy + 1) THEN SWAP A(ix, iy), A(ix, iy + 1)
    NEXT iy, j
 NEXT
 PRINT "Novaya matrica: "
   ' Вывод матрицы
 FOR iy = 1 TO N
    FOR ix = 1 TO M
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
3
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 7
05.05.2011, 22:11  [ТС] 4
большое спасибо!!!!!!!!!!!!!!!!
0
Оранжевый портфель.
60 / 58 / 47
Регистрация: 13.11.2010
Сообщений: 459
06.05.2011, 17:43 5
кот Бегемот, у нас есть мазохисты, так что здесь и такие темы сделают
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2011, 17:43

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

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

В строках матрицы с отрицательными элементами на главной диагонали найти сумму всех элементов
1)Дана действительная квадратичная матрица A(N;N) В строках с отрицательными элекментами га главной...

Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали
Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством...

Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали
Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством...


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

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

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