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

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

25.12.2016, 11:55. Показов 690. Ответов 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
1. Как напечатать, например, второй ряд таблицы. У меня он напечатался только наполовину,
да и то по вертикали (символ ; -после PRINT ничего не меняет).
2. Определить количество мест (8 мест) во втором ряду программой.
3. И ещё: как бы весь блок мест автобуса сместить на пробел от строки «Автобус», но не
меняя пробелы ( j * 2 ) между строками. Строка «Автобус» не печатается. А её надо напечатать.
Вот такие три проблемы!

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

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

Подсчитать количество занятых мест
Как подсчитать количество занятых мест? Имеется dbEdit1 в котором указана вместимость. dbEdit2...

В зрительном зале X рядов, а мест в каждом ряду на 6 больше. Сколько в зрительном зале посадочных мест?
Составьте выражение по условию задачи: "В зрительном зале х рядов, а мест в каждом ряду на 6...

Структура: вывести на экран информацию о результатах прыжков в длину, отсортированную в порядке возрастания мест
В одном файле хранятся сведения об участниках соревнований: номер участника, ФИО, страна, во 2...

Массив: Вывести фамилии спортсменов и их результаты в сумме в порядке занятых мест
В соревнованиях по десятиборью участвуют N спортсменов. Известны результаты в баллах по каждому из...

Подсчитать сумму мест, на которых в словах текста стоит заданная буква
Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква. ...

Подсчитать сумму мест, на которых в словах текста стоит заданная буква
Тема файловый ввод и вывод , прога нужна для Borland c++. Написать программу для подсчета суммы...

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