Как сблизить столбцы

@Petro29 · Регистрация: 30.04.2016

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

Упражнение 4 со стр. 272 (Тимофеевская)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
DATA 5, 6, -9, -5, 2, -16, -7, 0, 11, 8
DIM A(10)
   FOR i = 1 TO 10
      READ A(i)
   NEXT i
  LOCATE 1, 1
PRINT “ Номер эл-та”
  LOCATE 1, 26
PRINT “ Старое значение”
  LOCATE 1, 55
PRINT “ Новое значение”
   FOR i = 1 TO 9 STEP 2
       PRINT i , , 
       PRINT A(i) , ,  
         A(i) = A(i) – 1
        PRINT A(i)
        PRINT i + 1, ,   
        PRINT A(i + 1), ,   
          A(i + 1) = A(i + 1) + 1
         PRINT A(i + 1)
   NEXT i

На выходе имеем:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
Номер эл-та           Старое значение          Новое значени
1                                     5                                 4
2                                     6                                  7
3                                    -9                                 -10
4                                    -5                                 -4
5                                     2                                   1
6                                    -16                               -15
7                                    -7                                  -8
8                                     0                                   1
9                                     11                                 10
10                                    8                                   9

Слишком размашистый выход. Как сблизить столбики. Уж слишком много PRINT’ов, да и какие-то запятые после
некоторых PRINT’ов, да ещё и парные, и что они означают? Ни раздвинуть ни сблизить запятые не получается почему-то.

А как бы с этой программой разобраться?
Эту программу я переделал и столбики сблизил так как надо. Отредактировал сам. Программа стала и проще и короче. И столбцы сближены как надо.
И можно всё-таки хотя бы сблизить столбики?

@wer1 · 15.03.2020, 12:54

Уважаемый Petro29,
поставьте после оператора PRINT точку с запятой (;) , а не запятую
Пример: PRINT i ;

@Petro29 · 29.03.2020, 10:52 **[ТС]**

А вот свои редакции этой программы:
Из парных запятых убрал оду запятую, и счётчик i вывел под середину его текста.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
DATA 5, 6, -9, -5, 2, -16
DIM A(6)
   FOR i = 1 TO 6
      READ A(i)
   NEXT i
  LOCATE 1, 1
PRINT “ Номер эл-та”
  LOCATE 1, 13
PRINT “ Старое значение”
  LOCATE 1, 26
PRINT “ Новое значение”
   FOR i = 1 TO 5 STEP 2
       PRINT “          “; i , 
       PRINT A(i) , 
         A(i) = A(i) – 1
        PRINT A(i)
        PRINT “          “; ( i + 1),   
        PRINT A(i + 1),   
          A(i + 1) = A(i + 1) + 1
         PRINT A(i + 1)
   NEXT i

На выходе имеем:

QBasic/QuickBASIC
1
2
3
4
5
6
7
Номер эл-та   Старое знач.   Новое знач.
         1                  5                         4
  2                 6                         7
  3                -9                        -10
  4                -5                        -4
  5                 2                          1
  6                -16                       -15

И ещё вариант:

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
CLS
DATA 5, 6, -9, -5, 2, -16
DIM A(6)
   FOR i = 1 TO 6
      READ A(i)
   NEXT i
 PRINT “ Номер”
PRINT “ Элемента”
  LOCATE 1, 10
PRINT “ Старое ”
  LOCATE 2, 10
PTINT “ Значеник”
  LOCATE 1, 20
PRINT “ Новое ”
  LOCATE 2, 20
PRINT “ Значеие”
   FOR i = 1 TO 5 STEP 2
       PRINT “         “; i , 
       PRINT “            “; A(i) , 
         A(i) = A(i) – 1
        PRINT “            “; A(i)
        PRINT “          “; ( i + 1),   
        PRINT “              “; A(i + 1),   
          A(i + 1) = A(i + 1) + 1
         PRINT “                “; A(i + 1)
   NEXT i

На выходе имеем:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
Номер        Старое       Новое
элемента    значение    значение
       1                 5                 4
       2                  6                7
       3                 -9               -10
       4                 -5               -4
       5                  2                 1
       6                 -16              -15

На это обращение можно не отвечать. Разобрался с ней основательно. Всё стало понятно.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@wer1 1104 / 480 / 33 Регистрация: 05.07.2018 Сообщений: 1,870 Записей в блоге: 7
	15.03.2020, 12:54
	Уважаемый Petro29, поставьте после оператора PRINT точку с запятой (;) , а не запятую Пример: PRINT i ; 0