Форум программистов, компьютерный форум, киберфорум
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
11.01.2017, 17:55  [ТС] 0

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

11.01.2017, 17:55. Показов 690. Ответов 6
Метки (Все метки)

Ответ

Ваше решение переделано на горизонтальную схему мест в автобусе (как в кассах по продажи
билетов). Ну и восемь строк данных заменены на три удлинённые строки. (С оператором LO-
CATE что – то уже понимается).
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
PRINT “                          А В Т О Б У С”
DIM A (8, 4)
DATA  2, 1, 3, 4, 6, 5, 7, 8, 10, 9, 11, 12
DATA 14, 13, 15, 16, 18, 17, 19, 20, 22, 21
DATA 23, 24, 26, 25, 27, 28, 30, 29, 31, 32
    FOR i = 1 TO  8
    FOR j = 1 TO 4
        READ A (i, j)
        LOCATE j * 2 + 1, I * 4
        PRINT A (I, j)
NEXT j, i 
   PRINT
PRINT “      Кол. мест в автобусе: “; I * j
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
       А В Т О Б У С
2   6   10   14   18   22   26   30
 
1   5    9    13   17   21   25   29
 
3   7   11   15   19   23   27   31
 
4   8    12   16    20   24   28   32
 
Кол. мест в автобусе:   45

А вот вопросы оставались без ответа:
1 вопрос: Почему количество мест в автобусе 45, а не 32?
2 вопрос: Как напечатать отдельно любой ряд или любой столбец (у меня 2-й ряд печатался
наполовину, да и то по вертикали).
3 вопрос: Как определить количество мест в горизонтальном или в вертикальном ряду.
4 вопрос: Как определить сумму значений элементов массива в горизонтальном или в верти-
кальном ряду (ведь может быть любой двумерный массив со своими значениями).
5 вопрос: Как определить сумму значений всех элементов массива.

Добавлено через 33 секунды
И ещё: сделана программа с указанием рядов по горизонтали (можно и по вертикали).
Два нижних ряда выполнены с дополнительными двумя циклами.

………………………………………….
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
     LOCATE j * 2 + 1, I * 5
     PRINT A(I, j)
NEXT j, i
  DIM B$(8)
  DATA1-й”,2-й”,3-й”,4-й”,5-й”,6-й”,7-й”,8-й”
     FOR k = 1 TO 5
        READ B$(k)
     LOCATE 11, k * 5
     PRINT “  “;  B$(k)
     NEXT k
          FOR p = 1 TO 8
          LOCATE 12, p * 5
          PRINT “  ряд “
          NEXT p
……………………………………
QBasic/QuickBASIC
1
2
3
4
    4      8     12    16   20    24    28    32   
 
    1-й  2-й  3-й  4-й  5-й   6-й   7-й  8-й
    ряд  ряд  ряд  ряд  ряд  ряд  ряд  ряд
А если выполнять эти два нижних ряда с одним дополнительным циклом, то получается, что второй ряд дублируется, причём слишком низко от двух нижних рядов.
А почему так – не понятно. Вот как это выглядит у меня (фрагменты низа программы):

……………………………………………..
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
     LOCATE j * 2 + 1, I * 5
     PRINT A(i, j)
NEXT j, i
   DIM B$(8, 2)
   DATA1-й”,”ряд”,2-й”,”ряд”,3-й”,”ряд”,4-й”,”ряд”
   DATA5-й”,”ряд”,6-й”,”ряд”,7-й”,”ряд”,8-й”,”ряд”
       FOR k = 1 TO 8
       FOR p = 1 TO 2
           READ B$(k, p)
        LOCATE p * 11, k * 5
        PRINT “  “
Добавлено через 52 секунды
QBasic/QuickBASIC
1
2
3
4
5
      ………………………………………………
     4     8     12     16     20     24     28     32
 
      1-й   2-й   3-й   4-й   5-й   6-й   7-й   8-й
      ряд  ряд  ряд  ряд  ряд  ряд   ряд  ряд



ряд ряд ряд ряд ряд ряд ряд ряд














А если в конце программы поставить END, то выход такой:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
  ………………………………………………
     4     8     12     16     20     24     28     32
 
      1-й   2-й   3-й   4-й   5-й   6-й   7-й   8-й
      
 
 
     ряд  ряд  ряд  ряд  ряд  ряд  ряд  ряд
То же не понятно.

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

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

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

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

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

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