Форум программистов, компьютерный форум, киберфорум
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
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
25.12.2016, 14:06 0

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

25.12.2016, 14:06. Показов 694. Ответов 6
Метки (Все метки)

Ответ

А так?

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
DIM A(8, 4)
 
PRINT "         AUTOBUS"
PRINT
 
A(0, 1) = -2
A(0, 2) = -3
A(0, 3) = -1
A(0, 4) = 0
 
FOR i = 1 TO 8
FOR j = 1 TO 4
   A(i, j) = A(0, j) + 4 * i
   PRINT USING "  ###"; A(i, j);
NEXT: PRINT : PRINT
NEXT
END
...
А это код ваш (переделанный). В нем три ответа на три ваших вопроса.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
DIM A(8, 4)
 
DATA  2,  1,  3,  4
DATA  6,  5,  7,  8
DATA 10,  9, 11, 12
DATA 14, 13, 15, 16
DATA 18, 17, 19, 20
DATA 22, 21, 23, 24
DATA 26, 25, 27, 28
DATA 30, 29, 31, 32
 
PRINT "       AUTOBUS"
 
FOR i = 1 TO 8
FOR j = 1 TO 4
   READ A(i, j)
   LOCATE 2 * i + 2, 4 * j
   PRINT A(i, j)
NEXT j, i
END


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

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

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

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

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

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

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

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

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