Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Найти наибольшее значение - суммы элементов произвольных массивов одинаковой размерности https://www.cyberforum.ru/ qbasic/ thread1445540.html
Найти наибольшее значение (х1+у1) - суммы элементов произвольных массивов одинаковой размерности.
Перевести программу из Pascal в QBasic QBasic
Помогите пожалуйста с переводом: procedure TForm1.N2Click(Sender: TObject); var a:tarraystring; i,j,n:integer; x:string; begin getArrayFromMemo2(a,n,memo1) ; for i:=1 to n-1 do ...
Анимация пузырьков в колбе QBasic
Всем привет) В общем нужна помощь в анимации, есть нарисованная колба и надо чтобы пузырьки поднимались вверх в розовой зоне код с рисунком приложен SCREEN 12 CIRCLE (303, 310), 70, 13, , ,...
QBasic Отсортировать все слова по убыванию длины В исходной строке a$ на русском языке отсортировать все слова по убыванию длины, а при равной длине - по алфавиту окончаний. Вывести отсортированный список слов. https://www.cyberforum.ru/ qbasic/ thread1442206.html
QBasic Переставить местами k-й и (k+1)-й элементы массива и образовать новый массив https://www.cyberforum.ru/ qbasic/ thread1441617.html
Не получается переставить местами элементы массива, перепробовал кучу вариантов Добавлено через 35 минут REM Programma obrabotki odnomernogo REM massiva A razmerom N PRINT "Vvedite znachenie...
Сформировать вектор из элементов матрицы QBasic
Дана матрица A(n,m). Записать вектор X(x1, x2, ..... xm), компоненты которого равны строке P матрицы А, и вектор Y(y1,y2, ....... yn), содержащий элементы столбца q (p=2, q=3, xj=Apj, yi=Aiq)
QBasic Найти максимальное значение из полученных произведений
Дан массив R(N,М). Найти все строки, произведение элементов которых положительно, и напечатать их номера, подсчитать общее количество таких строк. Найти максимальное значение из полученных...
QBasic Найти среднее значение элементов массива, разделить каждый элемент на это значение Вводится произвольный квадратный массив. Нужно найти среднее значение элементов этого массива, разделить каждый элемент на это среднее значение и вывести результат в виде отдельного массива. ... https://www.cyberforum.ru/ qbasic/ thread1436797.html
QBasic Исправить код определения типа треугольника https://www.cyberforum.ru/ qbasic/ thread1436185.html
Разработайте программу, которая вводит длины трёх сторон треугольника и определяет его тип по двум параметрам: прямоугольный/тупоугольный/остроугольный и равносторонний/равнобедренный/разносторонний....
QBasic Вывести все содержащиеся в заданном массиве четные числа в порядке возрастания их индексов помогите пожалуйста Задание 1: Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем - все нечетные числа в... https://www.cyberforum.ru/ qbasic/ thread1434931.html
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
21.05.2016, 14:25 0

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

21.05.2016, 14:25. Просмотров 546. Ответов 1
Метки (Все метки)

Ответ


Программа проверена

QBasic/QuickBASIC
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
35
36
37
38
39
40
41
CLS
n = 4
m = 6
DIM x(1 TO n, 1 TO m) AS INTEGER
DIM y(1 TO m) AS INTEGER
 
RANDOMIZE TIMER
 
FOR i = 1 TO n
FOR j = 1 TO m
   x(i, j) = 9 * RND
   PRINT x(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR j = 1 TO m
   y(j) = 1
NEXT j
 
FOR j = 1 TO m
FOR i = 1 TO n
   y(j) = y(j) * x(i, j)
NEXT i, j
 
FOR j = 1 TO m - 1
FOR k = j + 1 TO m
   IF y(j) < y(k) THEN
      SWAP y(j), y(k)
      FOR i = 1 TO n
         SWAP x(i, j), x(i, k)
      NEXT i
   END IF
NEXT k
NEXT j
 
FOR i = 1 TO n
FOR j = 1 TO m
   PRINT x(i, j);
NEXT j: PRINT
NEXT i
END


Вернуться к обсуждению:
Упорядочить столбцы матрицы по убыванию произведений их элементов
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2016, 14:25

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

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

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

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

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

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