Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
QBasic Создание окружности и движение по краям экрана https://www.cyberforum.ru/ qbasic/ thread2118845.html
Уважаемые форумчане! Помогите с кодом. Нужно сделать окружность пикс на 20 закрашенную белым цветом и чтобы она двигалась по краю экрана (screen 12) против часовой стрелки. Буду очень благодарен.
Рисование линии по точкам QBasic
как нарисовать линию по точкам на qbasic. может выдрать алгоритм из библиотеки уже готовой на сайте.
QBasic Для двумерного массива определить номер строки с максимальной суммой положительных элементов Для одного двумерного массива Z(3, 5) определить номер строки с максимальной суммой положительных элементов. Можно определить заодно и сумму всего массива. CLS DIM x(3, 5) FOR i = 1 TO 3 FOR j = 1 TO 5 x(i, j) = INT(40 * RND – 20) LOCATE i * 2, j * 5 -3 PRINT x(i, j); https://www.cyberforum.ru/ qbasic/ thread2112320.html QBasic Создать код для блок-схемы Прошу помочь! https://www.cyberforum.ru/ qbasic/ thread2111106.html
Как разделить числа QBasic
Как разделить числа, например: Я ввожу число 123 мне нужно чтоб машина разделила их на 1, 2 и 3 и сложила их.(складывать не обязательно).
QBasic Составить код для блок-схемы https://www.cyberforum.ru/ qbasic/ thread2110562.html
QBasic Составьте программу по блок-схеме https://www.cyberforum.ru/ qbasic/ thread2110150.html QBasic Составить код из блок схемы basik
Привет Всем. У меня просьба к вам.У меня друг попросил помочь составить код из блок схемы на basik ,а я в этом не понимаю нечего. Помогите пожалуйста,кто знает как делать, если вам не сложно
QBasic Вывести на экран номера строк , сумма элементов которых чётна Вывести на экран номера строк массива 5 х 5, сумма элементов которых чётна. CLS DIM X(5, 3) FOR i = 1 TO 5 FOR j = 1 TO 3 X(i, j) = INT(RND(i) * 50) – 10 LOCATE j * 2, i * 4 – 3 PRINT X(i, j) NEXT j, i FOR i = 1 TO 5 https://www.cyberforum.ru/ qbasic/ thread2081526.html QBasic Упорядочить строки по возрастанию элементов главной диагонали https://www.cyberforum.ru/ qbasic/ thread2081525.html
В массивe R(5, 5) упорядочить строки по возрастанию элементов главной диагонали. CLS DIM X(5, 5) FOR i = 1 TO 5 FOR j = 1 TO 5 IF i = j THEN X(i, j) = INT(20 * RND(i)) END IF LOCATE I * 2, j * 4 – 3
QBasic Дан массив натуральных чисел.Найти сумму элементов кратных к
1.Дан массив натуральных чисел.Найти сумму элементов кратных к 2.Последовательность действительных чисел оканчивается нулем.Найти количество членов этой последовательности
QBasic Упорядочить строки по возрастанию элементов главной диагонали https://www.cyberforum.ru/ qbasic/ thread2046719.html
. В массивe R(5, 5) упорядочить строки по возрастанию элементов главной диагонали. CLS DIM X(5, 5) FOR i = 1 TO 5 FOR j = 1 TO 5 IF i = j THEN X(i, j) = INT(20 * RND(i)) END IF LOCATE I * 2, j * 4 – 3
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7769 / 4598 / 2823
Регистрация: 22.11.2013
Сообщений: 13,077
Записей в блоге: 1
29.01.2018, 21:56 0

Упорядочить строки по возрастанию элементов главной диагонали - QBasic - Ответ 12073255

29.01.2018, 21:56. Показов 1319. Ответов 8
Метки (Все метки)

Ответ

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
FOR i=1 TO 4
  FOR j=i+1 TO 5
    IF a(i,i)>a(j,j) THEN
      FOR k=1 TO 5
        SWAP a(i,k),a(j,k)
      NEXT k
    END IF
NEXT j,i
Добавлено через 20 минут
Или
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
FOR i=1 TO 4
  k=i
  FOR j=i+1 TO 5
    IF a(j,j)<a(k,k) THEN k=j
  NEXT j
  IF i<>k THEN
    FOR j=1 TO 5
      SWAP a(i,j),a(k,j)
    NEXT j
  END IF
NEXT i
Или любая сортировка a(j,j) с обменом строк вместо одного элемента.

Вернуться к обсуждению:
Упорядочить строки по возрастанию элементов главной диагонали QBasic
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2018, 21:56
Готовые ответы и решения:

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

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

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

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

8
29.01.2018, 21:56
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2018, 21:56
Помогаю со студенческими работами здесь

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

Упорядочить строки матрицы в порядке возрастания элементов главной диагонали
Упорядочить строки матрицы m * n в порядке возрастания элементов в главной диагонали. Матрица...

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru