Программа на qBasic

@QCobra · Регистрация: 31.03.2014

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

Школьная программа 10 класса.
Помогите в создании простой программы формирования из двух одномерных массивов третий.
Количество элементов вводиться с клавиатуры. Элементы массивов генерируются случайным образом.
Пример:
Первый массив a(обязательно только положительные числа)
14 9 7 12 2 4 8 8 10 1

Второй массив b(обязательно только отрицательные числа)
-15 -5 -4 -8 -12 -6 -1 -3 -5 -8

Третий массив c формируется так - на нечетные места встают элементы (по порядку) из массива b, а на четные из массива a (так же по порядку. Т.е. должно получиться

-15 14 -5 9 -4 7 -8 12 -12 2 -6 4 -1 8 -3 8 -5 10 -8 1

Начало программы у меня уже есть (если что-то не правильно - исправьте):

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
DIM a(n)
DIM b(n)
DIM c(n * 2)
INPUT n
FOR i = 1 TO n
a(i) = INT(RND * 10) + 1 
PRINT a(i);
NEXT i
PRINT  
FOR i = 1 TO n
b(i) = INT(RND * 10) - 15
PRINT b(i);
NEXT i
PRINT

...

Далее нужно сформировать массив c. Помогите. Заранее спасибо.

@Апострофф · 31.03.2014, 18:39

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT n 'перемещено по указанию [url]https://www.cyberforum.ru/qbasic/thread1135008.html#post5979951[/url]
DIM a(1 TO n)
DIM b(1 TO n)
DIM c(1 TO n * 2)
'INPUT n 'перемещено по указанию [url]https://www.cyberforum.ru/qbasic/thread1135008.html#post5979951[/url], спасибо
FOR i = 1 TO n
  a(i) = INT(RND * 15) + 1 
  PRINT a(i);
NEXT i
PRINT  
FOR i = 1 TO n
  b(i) = INT(RND * 15) - 15
  PRINT b(i);
NEXT i
PRINT
FOR i = 1 TO n
  c(i * 2 - 1) = b(i)
  c(i * 2) = a(i)
  PRINT b(i); a(i);
NEXT i
PRINT

@QCobra · 31.03.2014, 19:22 **[ТС]**

Апострофф, спасибо!

@markiza-inc · 31.03.2014, 19:53

Полагаю, строку 4 надо перенести в начало проги.

@Апострофф · 31.03.2014, 20:07

markiza-inc, разрешаю

Добавлено через 6 минут
разрешил?

@gehh · 02.04.2014, 13:32

Первой строкой должно быть:
DEFINT A-C, I, N
А последней:
END
Желаю удачи.

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@QCobra 0 / 0 / 0 Регистрация: 31.03.2014 Сообщений: 2
	31.03.2014, 19:22 [ТС]
	Апострофф, спасибо! 0

@markiza-inc 925 / 252 / 100 Регистрация: 21.10.2012 Сообщений: 610
	31.03.2014, 19:53
	Полагаю, строку 4 надо перенести в начало проги. 1

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,907
	31.03.2014, 20:07
	markiza-inc, разрешаю Добавлено через 6 минут разрешил? 1

@gehh 159 / 104 / 124 Регистрация: 01.04.2014 Сообщений: 466 Записей в блоге: 7
	02.04.2014, 13:32
	Первой строкой должно быть: DEFINT A-C, I, N А последней: END Желаю удачи. 0