Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Сумма чётных и нечётных элементов одномерного массива https://www.cyberforum.ru/ qbasic/ thread1857219.html
CLS PRINT “ Операции с элементами массива” PRINT “ Создание массива” DIM X(10) DATA 5, -7, 9, -4, 12, 8, -6, 2, -3, 10 FOR I = 1 TO 10 READ X( I ) PRINT X( i ) ; ...
QBasic Даны координаты n-мерного вектора. Найти длину и наибольшую координату
Даны координаты n-мерного вектора. Найти длину и наибольшую координату.
QBasic Найти пятизначное простое число
Если выстроить простые числа в ряд, то каждое из них получит свой номер. Например 2, 3, 5, 7, 11, 13, ...541, ... число 2 будет иметь номер 1, число 3 - номер 2 и так далее число 541 будет иметь...
QBasic Вывести формулу для расчета и подсчитать P=1+3/6+3/9+....3/N Не такая ли P=(3/3*k)+(3/3*N) ?Просто когда вводим N=1 получится неверно,как быть? REM INPUT N k=1 FOR I=1 TO N P=(3/3*k)+(3/3*N) NEXT https://www.cyberforum.ru/ qbasic/ thread1855463.html
QBasic Треугольник задан своими сторонами a, b, c https://www.cyberforum.ru/ qbasic/ thread1855242.html
Задан треугольник своими тремя сторонами a, b, c Требуется найти все три угла треугольника ua, ub, uc (в градусах) а также найти площадь треугольника S, и кроме того вычислить R2 - радиус...
Найти натуральное число по условию QBasic
Найти натуральное число такое, что 1. это число делится на 30 2. это число имеет 105 различных делителей, включая 1 и само это число решение Вы обратили внимание, что общее число делителей...
QBasic Решение уравнения k^5 + 5n^4 = 81k
Решить в целых неотрицательных числах уравнение k^5 + 5n^4 = 81k (ответ: (0, 0); (1, 2); (3, 0)) REM REM k^5 + 5n^4 = 81k REM REM (0, 0); (1, 2); (3, 0) REM
QBasic Нахождение суммы бесконечного ряда Нахождение суммы бесконечного ряда https://www.cyberforum.ru/ qbasic/ thread1854053.html
QBasic Найти наименьшее натуральное число https://www.cyberforum.ru/ qbasic/ thread1854032.html
Найти наименьшее натуральное число, квадрат которого оканчивается на 2001. (ответ: 249) REM REM 249 REM CLS
QBasic Найти максимум переменной суммы Найти максимум переменной суммы. каждое слагаемое этой суммы выглядит так SIN(INT(1000 * SIN(n))) , где n = 1, 2, ...., 1000 Программа вычислила, что при N = 403 сумма достигает максимума в... https://www.cyberforum.ru/ qbasic/ thread1854028.html
196 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 733
0

Заполнить двумерный массив номерами мест, подсчитать количество мест у окон и вывести на экран схему мест

22.11.2016, 16:21. Показов 694. Ответов 6
Метки (Все метки)

В автобусе 6 рядов кресел по 4 места в каждом ряду. Чётные номера находятся у окон.Необходимо заполнить двумерный массив номерами мест, подсчитать количество мест у окон и вывести на экран схему расположения кресел в салоне.


QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
PRINT “                          Автобус”
DIM A$(8, 4)
DATA2,1,3,4,6,5,7,8,10,9DATA11,12,14,13,15,16,18,17DATA19,20,22,21,23,24,26,25DATA27,28,30  (1-й ряд),29 (2-й ряд)DATA31 (3-й ряд),32 (4-й ряд)”
    FOR I = 1 TO  8
    FOR j = 1 TO 4
        READ A$(i, j)
        LOCATE j * 2, I * 4
        PRINT A$(I, j)
REM … Напечатать 2 – й  ряд …
            LOCATE  j * 2,  50
             PRINT A$(j , 2)
NEXT j, i
QBasic/QuickBASIC
1
2
3
4
   2   6   10   14    18   22   26   30 (1-й ряд)          1
   1   5   9      13   17   21   25   29 (2-й ряд)          5
   3   7   11    15   19   23   27   31 (3-й ряд)          9
   4   8   12    16   20   24   28   32 (4-й ряд)          13
Как напечатать, например, второй ряд таблицы и определить количество мест (8 мест)
в этом ряду. У меня он напечатался только наполовину, да и то по вертикали (символ ; -
после PRINT ничего не меняет).
И ещё: как бы весь блок мест автобуса сместить на пробел от строки «Автобус», но не
меняя пробелы ( j * 2 ) между строками.
И ещё такой же вопрос, что и в одномерных массивах:
Зачем в подобных двумерных массивах строка массива «DIM A$(8, 4)»? Без этой
строки всё получается также как и с этой строкой.
Вот такие три проблемы!

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

Заполнить двумерный массив номерами мест и напечатать схему заполнения зрительного зала
: В кинотеатре 7 рядов по 5 мест в каждом и заняты только нечётные места. Заполнить двумерный...

Заполнить двумерный массив номерами мест
В автобусе 4 ряда кресел по 8 мест в каждом ряду. Чётные номера находятся у окон. Необходимо ...

Вычислить суммарное количество мест и количество мест в гостинице
Написать программу работы с массивом из 10 объектов Объекты - номера в отеле. Требуется...

БД Турфирма: сравнение доступних мест с количееством заказаних мест
К посту я додал частинку моей схеми БД Помогите мне решить проблему: в табл Тури вносится...

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