Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Petro29
8 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 303
#1

В массиве поменять местами 1-ю строку с последней - QBasic

04.02.2018, 11:47. Просмотров 186. Ответов 1
Метки нет (Все метки)

В массиве поменять местами
1-ю строку с последней,
На эту тему был запрос, но ответа не
получил. Сделал сам такую программу:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS
DIM А(4, 6)
FOR i = 1 TO 4
  FOR j = 1 TO 6
A(i, j) = INT(RND(i) * 20)
   LOCATE i * 1, j * 3
      PRINT А(i, j);
NEXT j, i
      PRINT
FOR i = 1 TO 4  STEP 4
   FOR j = 1 TO 6
      X = A(i, j) 
      A(i, j) = A(4, j)                                          
      A(4, j) = X
NEXT j, i
FOR i = 1 TO 4
 FOR j = 1 TO 6
     LOCATE 5 + i * 1, j * 3
       PRINT A(i, j);
NEXT j, i
На выходе имеем:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
14   10   11     5     6   15
  0   15   16   14     0     8
17   15     7   19   17     1
18     7   10   15     1   11
 
18     7   10   15     1   11
0   15   16   14     0     8
17   15     7   19   17     1
14   10   11     5     6   15
При чётном количестве строк
добавил STEP 4 в выражение для
FOR i = 1 TO 4 STEP 4.
Результат получился.
А при нечётном количестве строк –
получается путаница.
Значит что то не так, а что не так?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2018, 11:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В массиве поменять местами 1-ю строку с последней (QBasic):

В массиве поменять местами 1-ю строку с последней
QBasic: Обращение 38С: В массиве поменять местами 1-ю строку с последней,...

В двумерном массиве перед последней строкой вставить строку с положительной суммой элементов.
Очень нужна помощь))) Текст задачи: В двумерном массиве перед последней...

В массиве поменять местами попарно строки
В массиве поменять местами попарно строки (1-ю строку со 2-й, 3-ю с 4-й и т....

Поменять местами положительные и отрицательные числа в массиве
Помогите пожалуйста, с клавиатуры вводится массив из 10 чисел(положительных и...

Поменять строку и стобец местами в матрице (квадратной)
Дана квадратная матрица А(n,n). Поменять местами j-ый столбец и i-ую строку. ...

В числовом массиве поменять местами первый и максимальный элемент
Напишите программу в QBasic, пожалуйста В числовом массиве, заполненном с...

1
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
04.02.2018, 12:21 #2
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
INPUT "vvedite kolichestvo strok ",m
INPUT "vvedite kolichestvo stolbcov ",n
DIM А(m, n)
FOR i = 1 TO m
  FOR j = 1 TO n
A(i, j) = INT(RND(i) * 20)
   LOCATE i * 1, j * 3
      PRINT А(i, j);
NEXT j, i
      PRINT
FOR i=1 TO n
SWAP a(1,i),a(m,i)
NEXT
FOR i = 1 TO m
 FOR j = 1 TO n
     LOCATE 5 + i * 1, j * 3
       PRINT A(i, j);
NEXT j, i
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.02.2018, 12:21
Привет! Вот еще темы с решениями:

Как в массиве поменять местами первую и последнюю строки?
В массиве поменять местами первую и последнюю строки.

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

В исходном массиве с четным числом элементов поменять местами соседние элементы
В исходном массиве с четным числом элементов поменять местами соседние...

В массиве из 10 целых чисел найти наименьший элемент и поменять его местами с первым
помогите сформировать массив: 1. В массиве из 10 целых чисел найти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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