Построение динамических таблиц

@EkaterinaTsi · Регистрация: 10.01.2016

Студворк — интернет-сервис помощи студентам

Задача: для различных m,n , где n- количество строк, m- кол-во столбцов нужно создать таблицу размером mxn. Таблица строится следующим образом:

@EkaterinaTsi · 10.01.2016, 15:02 **[ТС]**

код, который пришел мне в голову:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
CLS;
DIM A (i,j)
n = InputBox (“row”)
m = InputBox (“colomn”)
IF n = m
    FOR i = 1 TO n
    n = n-1;
    FOR j = 1 TO m
    A(i,j) = InputBox (“INPUT element ”& i,j)
End_if;
 
IF 2*n = m
    FOR i = 1 TO n
    FOR j = 1 TO m
    A(i,j) = InputBox (“INPUT element ”& i,j)
    m = m – 2;
IF 2*n-1 = m    
    FOR i = 1 TO n
        IF i = n
        A(i,j) = InputBox (“INPUT element ”& i,j)
        n = n – 1;
        end_if
    FOR j = 1 TO m
    A(i,j) = InputBox (“INPUT element ”& i,j)
    m = m – 2;

Возможно есть более интересные и правильные варианты решения,
подскажите, пожалуйста

echs · 10.01.2016, 18:21

Мне не совсем понятно, что надо сделать. Код совершенно неверный.
Не могли бы вы привести простой пример. Что дано и куда поместить.

@EkaterinaTsi · 10.01.2016, 18:30 **[ТС]**

m,n- количество строк и столбцов соответственно.
нужно построить таблицу, форма которой будет зависеть от введенных m и n.
если n=m таблица будет выглядеть как первая на рисунке
если 2*n=m, то как 2 таблица
если (2*n-1)=m, то как 3 таблица.

я немного изменила код, может быть, этот будет верен:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
CLS;
DIM A (i,j)
n = InputBox (“row”)
m = InputBox (“colomn”)
IF n = m
FOR j = 1 TO m
FOR i = 1 TO n
        A(i,j) = InputBox (“INPUT element ”& i,j)   
        NEXT i
    n=n-1;
    NEXT j
 
END IF
    
IF 2*n = m
    FOR j = 1 TO m
            FOR i = 1 TO n
            A(i,j) = InputBox (“INPUT element ”& i,j)
            NEXT i
            FOR i = 1 TO n          
                        A(i,(j+1)) = InputBox (“INPUT element ”& i,(j+1))
            NEXT i
    NEXT j
IF 2*n-1 = m    
    WHILE j = 1
        FOR i= 1 TO n
        A(i,j) = InputBox (“INPUT element ”& i,j)   
        NEXT i
        
    END WHILE
FOR j = 2 TO m
        FOR i = 1 TO n
        A(i,j) = InputBox (“INPUT element ”& i,j)
        
        NEXT i
        FOR i = 1 TO n          
                A(i,(j+1)) = InputBox (“INPUT element ”& i,(j+1))
        NEXT i
NEXT j
end_if

echs · 10.01.2016, 19:01

Разберемся с кодом
Ваш код: n = InputBox (“row”)
Мой код: INPUT "row"; n

Ваш код: if n = m
Мой код: IF n = m THEN

Ваш код: n=n-1;
Мой код: n = n - 1

Ваш код:
while j = 1
End while

Мой код:
DO WHILE J = 1
LOOP

Ваш код: end_if
Мой код: END IF

Ваш код: A(i,(j+1))
Мой код: A(i, j +1)

Пожалуй все.
Массив A(i, j) надо определять после ввода чисел его размерности
То есть так: DIM A(M, N)
(M и N должны быть определены раньше)

@EkaterinaTsi · 10.01.2016, 19:08 **[ТС]**

Спасибо, исправила!
если интересно, через несколько минут будет вторая часть этого "марлезонского балета"

echs · 10.01.2016, 19:30

Используйте теги. Перед вами куча английских слов.
В нижней строке найдите слово QBASIC и нажмите на него
У вас появятся теги. Только скобки будут не угловые, а квадратные.
(типа так [QBASIC] дальше не пишу, так как правильные теги невидимы)
<QBASIC>

Здесь ваш код

</QBASIC>

Добавлено через 9 минут
В вашем коде отсутствует вывод информации
Для вывода используют операторы
LOCATE I, J (1 <= I <=25, 1 <= J <= 80)
I - номер строки
J - номер столбца
Этот оператор помещает курсор в любое место экрана
PRINT N - Печатает число N
PRINT "ABCDE" - печатает строку символов ABCDE

@EkaterinaTsi · 10.01.2016, 19:38 **[ТС]**

точно, я не заметила сначала
Скажите, как правильно вывести на экран массив A(m,n)?
Подойдет ли оператор Locate A(i,j)? и как правильно его написать?(необходимо вывести в форме таблицы все столбцы и строки+ потом добавить различные вычисления как дополнительный столбец)

echs · 10.01.2016, 19:56

Примерно так
Запустите свою программу и посмотрите, что получится.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
DIM A(M, N) AS INTEGER ' Указывает тип переменной
 
FOR I = 1 TO N 
FOR J = 1 TO M
   LOCATE I, 5*J 
   PRINT USING " ####"; A(I, J)
NEXT J
NEXT I

Оператор USING в данном случает выравнивает числа
Но у него есть и другие способности.

Добавлено через 2 минуты
Добавить данные легко
Примените LOCATE и печатайте что хотите.

@EkaterinaTsi · 10.01.2016, 22:12 **[ТС]**

Спасибо большое за подсказки!
Маленький вопрос, как правильно задать одномерный массив?
Dim A(n) as integer?

и не является ли ошибкой написать
A(i,j) = InputBox (“input element ”& i,j) ?

echs · 11.01.2016, 10:21

EkaterinaTsi
Массив вы задаете правильно. Только его размерность
число n - должно быть задано раньше самого массива.
Ваш код
A(i,j) = InputBox (“input element ”& i,j) ?
Неверный.

@EkaterinaTsi · 11.01.2016, 11:03 **[ТС]**

geh, n я задала в самом начале программы:
Input "row"; n
я думаю, этого достаточно,верно?

самая главная проблема в том, что всю программу нужно было сделать в VBA

и я не знаю что обычно используют для подобных программ формы или модули?

echs · 11.01.2016, 11:23

EkaterinaTsi
Да, верно одного определения хватит
Ваш второй вопрос.
VBA не слишком сильно отличается от VB.
То есть можно использовать форму. Но вы можете зайти
на их форум и прямо спросить об этом. Создайте тему и
Вопрос: куда поместить код. И не забудьте спросить
Нет ли в коде ошибок? Я не специалист в VBA.
УДАЧИ ВАМ!

@Quiet Snow · 12.01.2016, 17:11

так как правильные теги невидимы

[NOPARSE] пишем то, что форуму не нужно обрабатывать [/NOPARSE]

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31

	Построение динамических таблиц 10.01.2016, 15:01. Показов 2044. Ответов 13 Метки нет (Все метки) Задача: для различных m,n , где n- количество строк, m- кол-во столбцов нужно создать таблицу размером mxn. Таблица строится следующим образом: Миниатюры 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	10.01.2016, 18:21
	Мне не совсем понятно, что надо сделать. Код совершенно неверный. Не могли бы вы привести простой пример. Что дано и куда поместить. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	10.01.2016, 19:01
	Разберемся с кодом Ваш код: n = InputBox (“row”) Мой код: INPUT "row"; n Ваш код: if n = m Мой код: IF n = m THEN Ваш код: n=n-1; Мой код: n = n - 1 Ваш код: while j = 1 End while Мой код: DO WHILE J = 1 LOOP Ваш код: end_if Мой код: END IF Ваш код: A(i,(j+1)) Мой код: A(i, j +1) Пожалуй все. Массив A(i, j) надо определять после ввода чисел его размерности То есть так: DIM A(M, N) (M и N должны быть определены раньше) 1

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	10.01.2016, 19:08 [ТС]
	Спасибо, исправила! если интересно, через несколько минут будет вторая часть этого "марлезонского балета" 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	10.01.2016, 19:30
	Используйте теги. Перед вами куча английских слов. В нижней строке найдите слово QBASIC и нажмите на него У вас появятся теги. Только скобки будут не угловые, а квадратные. (типа так [QBASIC] дальше не пишу, так как правильные теги невидимы) <QBASIC> Здесь ваш код </QBASIC> Добавлено через 9 минут В вашем коде отсутствует вывод информации Для вывода используют операторы LOCATE I, J (1 <= I <=25, 1 <= J <= 80) I - номер строки J - номер столбца Этот оператор помещает курсор в любое место экрана PRINT N - Печатает число N PRINT "ABCDE" - печатает строку символов ABCDE 0

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	10.01.2016, 19:38 [ТС]
	точно, я не заметила сначала Скажите, как правильно вывести на экран массив A(m,n)? Подойдет ли оператор Locate A(i,j)? и как правильно его написать?(необходимо вывести в форме таблицы все столбцы и строки+ потом добавить различные вычисления как дополнительный столбец) 0

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	10.01.2016, 22:12 [ТС]
	Спасибо большое за подсказки! Маленький вопрос, как правильно задать одномерный массив? Dim A(n) as integer? и не является ли ошибкой написать A(i,j) = InputBox (“input element ”& i,j) ? 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	11.01.2016, 10:21
	EkaterinaTsi Массив вы задаете правильно. Только его размерность число n - должно быть задано раньше самого массива. Ваш код A(i,j) = InputBox (“input element ”& i,j) ? Неверный. 1

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	11.01.2016, 11:03 [ТС]
	geh, n я задала в самом начале программы: Input "row"; n я думаю, этого достаточно,верно? самая главная проблема в том, что всю программу нужно было сделать в VBA и я не знаю что обычно используют для подобных программ формы или модули? 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	11.01.2016, 11:23
	EkaterinaTsi Да, верно одного определения хватит Ваш второй вопрос. VBA не слишком сильно отличается от VB. То есть можно использовать форму. Но вы можете зайти на их форум и прямо спросить об этом. Создайте тему и Вопрос: куда поместить код. И не забудьте спросить Нет ли в коде ошибок? Я не специалист в VBA. УДАЧИ ВАМ! 1