Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Определить сумму абсолютных значений элементов массива https://www.cyberforum.ru/ qbasic/ thread172193.html
Определить сумму абсолютных значений элементов массива Х(n). Вывести исходный массив и полученную сумму. Упорядочить массив X(n) по возрастанию. Вывести полученный массив. Исходный массив элементов...
QBasic Функция в QuickBasic
y=((x^x+〖sin〗^2 x)/|2-x| )^(1/3) Помогите решить задачку в QuickBasic
QBasic Вопрос установки QBasic в Windows 7 x64
Ребята...подскажите пожалуйста. Запускаю QBasic.exe на Windows 7 максимальная .....распаковка и установка проходит нормально..только вместо ярлыка запуска программы появился Ярлык к программе MS-DOS...
QBasic Объединить 2 массива в 1 А ещё вот такая непонятная штука: Нужно создать массив, который получался бы из элементов двух других массивов, которые заданы. То есть, даны два массива A и B размерностью n, нужно, чтобы программа... https://www.cyberforum.ru/ qbasic/ thread171790.html
QBasic Вычисление интеграла методом прямоугольников https://www.cyberforum.ru/ qbasic/ thread171617.html
Помогите, пожалуйста, разобраться вот с этой задачкой: "Напишите и просчитайте программу вычисления интеграла от произвольной функции методом прямоугольников. Выберите функцию с известным...
QBasic Исключить мин. и макс. значение из массива
Здравствуйте, дорогие товарищи. Нужна ваша помощь. Есть задание, нужно составить в QBASIC одномерный массив (скажем, размерности 10), заполняемый с клавиатуры, при этом нужно, чтобы программа...
QBasic Символьные переменные
Всем доброго времени суток! На дом задали пару задач, никак решить не могу, бьюсь уже больше двух часов над их решением. Прошу вашей помощи. 1. Определить длину самого длинного слова в...
QBasic QBasic - программ. коды игры Snake Помогите пож.! Мне срочно нужен код игры змейка. Заранее спасибо https://www.cyberforum.ru/ qbasic/ thread170831.html
QBasic Вывести на экран все отрицательные числа массива и их сумму https://www.cyberforum.ru/ qbasic/ thread170521.html
1)Дан массив из 100 элементов. Заполнить его целыми числами в интервале от -20 до 10 и вывести на экран все отрицательные числа и их сумму. 2) Дан массив из 10 элементов целых чисел. Все четные...
QBasic Определить, правда ли что среди чисел есть кратные трем Здравствуйте!!!! Я учусь в вузе и мне надо сделать контрольную по информатике...но я ничего в этом не понимаю(((Помогите пожалуйста! 1. Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить... https://www.cyberforum.ru/ qbasic/ thread169950.html
4795 / 1466 / 392
Регистрация: 25.04.2010
Сообщений: 4,112
Записей в блоге: 1
04.10.2010, 20:10 0

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

04.10.2010, 20:10. Показов 1221. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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. Упорядочить столбцы матрицы...

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