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

Упорядочить столбцы матрицы по возрастанию их минимальных элементов

04.10.2010, 15:18. Просмотров 1218. Ответов 1
Метки нет (Все метки)


Дана матрица целых чисел X(n). Упорядочить ее столбцы по возрастанию их минимальных элементов. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.10.2010, 15:18
Ответы с готовыми решениями:

Упорядочить столбцы матрицы по возрастанию их минимальных элементов
Дана матрица целых чисел X(n, т). Упорядочить ее столбцы по возрастанию их минимальных элементов....

Упорядочить строки матрицы по возрастанию их минимальных элементов (составить блок-схему)
REM "lab 4 z 2" CLS INPUT "kolichestvo strok: "; n INPUT "kolichestvo stolbcov: "; m DIM x(n,...

Упорядочить столбцы матрицы по возрастанию сумм их элементов
Дана матрица целых чисел X(n, т). Упорядочить ее столбцы по возрастанию сумм их элементов. Вывести...

Упорядочить столбцы матрицы по возрастанию их минимальных элементов
Собственно не получается никак написать программу. Условие: дана матрица размером NxM.Упорядочить...

1
4794 / 1465 / 392
Регистрация: 25.04.2010
Сообщений: 4,087
Записей в блоге: 1
04.10.2010, 20: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
28
29
30
31
32
33
34
CLS
 INPUT "Vvedite kol-vo stolbcov:", xl
 INPUT "Vvedite kol-vo strok:", yl
DIM X(xl, yl) AS INTEGER, Min1, Min2
 RANDOMIZE TIMER
  ' Заполнение матрицы
  FOR iy = 1 TO yl: FOR ix = 1 TO xl
    X(ix, iy) = (RND * 101) - 50
  NEXT: NEXT
  ' Вывод исходной матрицы
  PRINT "Ishodnaya:"
  FOR iy = 1 TO yl: FOR ix = 1 TO xl
   PRINT X(ix, iy);
  NEXT: PRINT : NEXT
  ' Поиск минимальных элементов в столбцах и замена исходя из этого
  FOR ix2 = xl - 1 TO 1 STEP -1
   FOR ix = 1 TO ix2
     ' Поиск минимальных в соседних столбцах
     Min1 = X(ix, 1): Min2 = X(ix + 1, 1)
     FOR iy = 1 TO yl
      IF X(ix, iy) < Min1 THEN Min1 = X(ix, iy)
      IF X(ix + 1, iy) < Min2 THEN Min2 = X(ix + 1, iy)
     NEXT
     ' Замена соседних столбцов
     IF Min1 > Min2 THEN
      FOR iy = 1 TO yl: SWAP X(ix, iy), X(ix + 1, iy): NEXT
     END IF
   NEXT
  NEXT
  ' Вывод результата
  PRINT "Novaya:"
  FOR iy = 1 TO yl: FOR ix = 1 TO xl
   PRINT X(ix, iy);
  NEXT: PRINT : NEXT
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2010, 20:10

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

Упорядочить столбцы матрицы по убыванию их минимальных элементов
Помогите с написанием программы. (Упорядочить столбцы матрицы по убыванию их минимальных элементов)

Упорядочить столбцы матрицы по возрастанию элементов
Добрый день уважаемые форумчане, есть задачка, над которой я уже довольно долго ломаю голову. Буду...

Упорядочить столбцы матрицы по возрастанию элементов
Добрый день уважаемые форумчане, есть задачка, над которой я уже довольно долго ломаю голову. Буду...

Упорядочить столбцы матрицы по возрастанию их наименьших элементов
Вот ошибки выбивает проверьте пожалуйста. Дана матрица размером NxM. Упорядочить столбцы матрицы...


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

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

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