Сформировать одномерный массив по правилу

08.04.2013, 15:51. **Показов** 1186. **Ответов** 2

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

Дана такая задача, сформировать массив A размерностью (N,M) с случайными значениями, из него сформировать одномерный массив B следующим способом: Элементы нечетного столбца идут сверху вниз , четного снизу вверх
1 6 7
2 5 8
3 4 9 и так далее, программу написал, но выдает ошибку

PureBasic
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
input N
input M
DIM A(N,M)
DIM B(N*M)
for i=1 to N
fot j=1 to M
A(i,j)=int(rnd * 20)
next j
next i
for i=1 to N
for j=1 to M
print i: print
print j: print
k=0
for j=1 to M
if j\2 then
for i-1 to N
k=k+1
B(k)=A(i,j)
else
for i=N to 1 step -1
k=k+1
B(k)=A(i,j)
next i
end if     выдает ошибку then exepted
next j
for i=i to k
print B(i)
end

@dan24 · 11.04.2013, 21:47

А блин ты немного не туда попал у тебя Код Basic4GL.
Что тут забыл?

[/VB]

@Good-Morning · 14.07.2013, 00:45

Сообщение от D34

if j\2 then

здесь ошибка - нет ни "=", ни ">", ни "<". (И еще - деление это не "\", а "/")

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@dan24 168 / 107 / 30 Регистрация: 19.01.2013 Сообщений: 852
	11.04.2013, 21:47
	А блин ты немного не туда попал у тебя Код Basic4GL. Что тут забыл? [/VB] 0