Документация QSP
Сайт Форум

Эта страница только для чтения. Вы можете посмотреть исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.
[[help:coding|Назад: Программный код]]
=====Массивы=====

  * **//Массив//** - последовательный набор значений, имеющих один тип данных и обладающих одним названием.
  * Элементы массива идентифицируются по индексам.
    * Индексация ведётся с нуля. Т.е. элемент с индексом **0** - //первый// элемент массива, **1** - //второй// и т.д.
    * Максимальный индекс массива **2147483647**.
  * Обращение к элементу массива происходит так: сначала указывается название массива, затем в квадратных скобках - числовое выражение, равное индексу элемента, к которому производится обращение.
  * На самом деле __//каждая переменная//__ в QSP __//является массивом//__.<sxh qsp>
яблоки = 0
!эквивалентно
яблоки[0] = 0
</sxh>
  * Соответственно для текстового массива нужно не забывать использовать символ '**$**' в имени.
  * //**Примеры:**//<sxh qsp>
$яблоки[0]='антоновка'
$яблоки[1]='белый налив'
$яблоки[2]='астраханское'
$яблоки[3]='ранетка'
$яблоки[4]='симиренко'

сорт_яблока[0] = 1
сорт_яблока[1] = 2
сорт_яблока[2] = 4

*pl $яблоки[сорт_яблока[номер_яблока]]
</sxh>
  * Массивы могут индексироваться через строки. Регистр символов данной строки не имеет значения. Примеры:<sxh qsp>
$любимый_сорт['иван'] = $яблоки[2]
любимое_число['Алексей'] = 5
$item_loc['палка'] = 'лес'
</sxh>
  * Существует упрощённый синтаксис чтения последнего и добавления нового элемента в массив. Если индекс элемента не указан:
    * при записи будет выбран элемент, следующий за последним. Например: <sxh qsp>
$objs[] = 'Напильник' &! Если массив был пустой, то
$objs[] = 'Топор'     &! [0] = 'Напильник',
$objs[] = 'Доска'     &! [1] = 'Топор', [2] = 'Доска'</sxh> 
    * при чтении будет выбран последний элемент. Например: <sxh qsp>
$a = $objs[] &! 'Доска' из примера выше
a = сорт_яблока[] &! 4 из примера выше</sxh>

**Примечание:** При добавлении в массив элемента со строковым индексом((массив['строка'] = значение)) элемент добавляется в конец массива. //Настоятельно __не__ рекомендуется сочетать числовые и строковые индексы в пределах одного массива.//

**Примечание:** В силу особенностей платформы числовые и текстовые массивы связаны между собой: добавление элемента в //'массив'// добавляет пустой элемент в //'$массив'// и наоборот со всеми вытекающими последствиями.

**Примечание:** Настоятельно __не__ рекомендуется использовать большие числовые индексы без необходимости.

====Функции и операторы====

  * **KILLVAR** //[$название массива]//,//[#индекс элемента]// - удаление элемента массива. 
    * Если индекс элемента не указан, то удаляется весь массив. 
    * Если оператор вызван без аргументов, то удаляются все переменные
    * **KILLALL** - оператор эквивалентен конструкции "KILLVAR & KILLOBJ"((обычно применяется в начале игры, чтобы при возврате в начальную локацию после неудачного прохождения какого-то этапа игры обнулить все переменные (в противном случае, может оказаться, что запертые двери уже открыты, жена похищена до свадьбы, а Баба-Яга уже отдала кому-то нужный клубочек) ))
    * При удалении элемента все следующие за ним элементы сдвигаются на позицию вверх.<sxh qsp>
a[0]=4
a[1]=3
a[2]=23
a[3]=15
KILLVAR 'a',1
!теперь массив выглядит так:
a[0]=4
a[1]=23
a[2]=15
</sxh>
    * //Примеры://<sxh qsp>
KILLVAR &! удаляет все переменные, массивы
KILLVAR 'a' &! удаляет массив 'a'
KILLVAR 'a',3 &! удалит из массива 'a' элемент с индексом 3.
</sxh>
  * **COPYARR** //[$приёмник]//**,**//[$источник]//**,**//[#начало]//**,**//[#количество]// - копирование в массив-приёмник //[#количество]// элементов из массива-источника начиная с элемента под номером //[#начало]//. Размер массива-приёмника при копировании не имеет значения.
    * Параметр //[#количество]// является необязательным. По умолчанию - до конца массива-источника.
    * Параметр //[#начало]// является необязательным. По умолчанию - 0
    * В силу особенностей движка при копировании массива //'массив1'// в //'массив2'// копируется также //'$массив1'// в //'$массив2'//.
    * //Примеры://<sxh qsp>
COPYARR '$a','$b'
COPYARR 'a','b'
COPYARR $arrname1,$arrname2,10,5
COPYARR 'a<<$arrname1>>','a<<$arrname2>>'
</sxh>
  * **ARRSIZE(**//[$имя]//**)** - функция возвращает число элементов в массиве с названием //[$имя]//.
    * В силу особенностей движка возвращается наибольшее из числа элементов '//массива//' и '//$массива//'.
    * //Примеры://<sxh qsp>
n = ARRSIZE('a')
n = ARRSIZE('$a')
!Результат будет одинаковый
</sxh>
  * **ARRPOS(**//[#начало]//,//[$имя_массива]//,//[значение]//**)** - возвращает индекс элемента массива, равного значению. Поиск начинается с элемента с заданным номером; индексация элементов массива ведётся с нуля. Если указанное значение не найдено, функция возвращает **-1**.
    * Параметр //[#начало]// может отсутствовать, при этом он принимается равным **0**.
    * **Важно:** в более новых версиях (//Quest Navigator//) необязательный параметр //[#начало]// переставлен последним((**ARRPOS(**//[$имя_массива]//**,**//[значение]//**,**//[#начало]//**)**)).
    * //Примеры://<sxh qsp>
!Поиск строки 'This' в текстовом массиве "$A"
ARRPOS(0,'$A','This')
!Поиск числа 65 в массиве "A" (два элемента массива игнорируются)
ARRPOS(2,'A',65)
!Поиск строки 'test' среди значений массива "$B"
ARRPOS('$B','test')
</sxh>
  * См. также функции "**MAX**, **MIN**" ([[help:coding?&#bazovye_funkcii|Программный код]])
  * **ARRCOMP(**//[#начало]//,//[$имя_массива]//,//[$шаблон]//**)** - возвращает индекс элемента массива, соответствующего //__регулярному выражению__//. Поиск начинается с элемента с заданным номером; индексация элементов массива ведётся с нуля. Если указанное значение не найдено, функция возвращает **-1**.
    * Поиск работает только по текстовым массивам (символ '$' в названии можно опустить).
    * Параметр //[#начало]// может отсутствовать, при этом он принимается равным **0**.
    * **Важно:** в более новых версиях (//Quest Navigator//) необязательный параметр //[#начало]// переставлен последним((**ARRCOMP(**//[$имя_массива]//**,**//[$шаблон]//**,**//[#начало]//**)**)).
    * //Примеры://<sxh qsp>
!Поиск строки 'This' среди элементов массива "$A"
ARRCOMP(0,'A','This')
!'Поиск строки, соответствующей регулярному выражению "abc\d+"
(первые два элемента массива игнорируются)'
ARRCOMP(2,'A','abc\d+')
!'аналогично предыдущему примеру, но поиск осуществляется
по всем элементам массива'
ARRCOMP(0,'A','.*string.*') 

ARRCOMP('A','This') &! эквивалентно 1му варианту
</sxh>

====Двумерные массивы с числовыми индексами====

Пример симуляции двумерного массива

<sxh qsp>
! Индексы i1  0..8
i1_max=9    

! Индексы i2  0..5
i2_max=6

! Заполнение данных массива 
i1=0
:ПрыгЗадатьМассив1
	i2=0
	:ПрыгЗадатьМассив2
		$ДвумерныйМассив[i1*i2_max+i2]='[<<i1>>,<<i2>>]'
		i2+=1
	if i2<i2_max : Jump 'ПрыгЗадатьМассив2'
i1+=1
if i1<i1_max : Jump 'ПрыгЗадатьМассив1'


! Вывод данных массива
i1=0
:ПрыгВыводМассива1
	*Nl 
	i2=0
	:ПрыгВыводМассива2
		*P $ДвумерныйМассив[i1*i2_max+i2]+'  '
		i2+=1
	if i2<i2_max : Jump 'ПрыгВыводМассива2'
i1+=1
if i1<i1_max : Jump 'ПрыгВыводМассива1'
*Nl 

!{Результат 
[0,0]  [0,1]  [0,2]  [0,3]  [0,4]  [0,5]  
[1,0]  [1,1]  [1,2]  [1,3]  [1,4]  [1,5]  
[2,0]  [2,1]  [2,2]  [2,3]  [2,4]  [2,5]  
[3,0]  [3,1]  [3,2]  [3,3]  [3,4]  [3,5]  
[4,0]  [4,1]  [4,2]  [4,3]  [4,4]  [4,5]  
[5,0]  [5,1]  [5,2]  [5,3]  [5,4]  [5,5]  
[6,0]  [6,1]  [6,2]  [6,3]  [6,4]  [6,5]  
[7,0]  [7,1]  [7,2]  [7,3]  [7,4]  [7,5]  
[8,0]  [8,1]  [8,2]  [8,3]  [8,4]  [8,5]  
}

!Получение индексов массива через функцию ARRPOS

$Поиск='[2,5]'

i1=ARRPOS('$ДвумерныйМассив',$Поиск)/i2_max
i2=ARRPOS('$ДвумерныйМассив',$Поиск) mod i2_max

if ARRPOS('$ДвумерныйМассив',$Поиск)<>-1 :
	 *Nl $Поиск+'=[<<i1>>,<<i2>>]' 
else 
	*Nl 'Элемент не найден'
end
!{Результат 
[2,5]=[2,5]
}

</sxh>





====Двумерные массивы с текстовыми индексами====

<sxh qsp>
! Индексы i1  0..3
i1_max=4    

! Индексы i2  0..5
i2_max=6

! Заполнение данных массива 
i1=0
:ПрыгЗадатьМассив1
	i2=0
	:ПрыгЗадатьМассив2
		! Знак двоеточие используется как разделитель 
		! между двумя численными индексами переведенными в текст
		$ДвумерныйМассивТекстовыйИндекс['<<i1>>:<<i2>>']='[<<i1>>,<<i2>>]'
		! $МассивИндекс нужен для дальнейшего поиска через ARRPOS/ARRCOMP
		$МассивИндекс['<<i1>>:<<i2>>']='<<i1>>:<<i2>>'
		! МассивПорядок нужен для использования KILLVAR
		МассивПорядок['<<i1>>:<<i2>>']=ARRSIZE('МассивПорядок')
		! Добавлять новый элемент и удалять нужно 
		!только одновременно в 3х массивах
		
		i2+=1
	if i2<i2_max : Jump 'ПрыгЗадатьМассив2'
i1+=1
if i1<i1_max : Jump 'ПрыгЗадатьМассив1'


! Вывод данных массива
i1=0
:ПрыгВыводМассива1
	*Nl 
	i2=0
	:ПрыгВыводМассива2
		*P $ДвумерныйМассивТекстовыйИндекс['<<i1>>:<<i2>>']+'  '
		i2+=1
	if i2<i2_max : Jump 'ПрыгВыводМассива2'
i1+=1
if i1<i1_max : Jump 'ПрыгВыводМассива1'

*Nl 

!{ Результат 
[0,0]  [0,1]  [0,2]  [0,3]  [0,4]  [0,5]  
[1,0]  [1,1]  [1,2]  [1,3]  [1,4]  [1,5]  
[2,0]  [2,1]  [2,2]  [2,3]  [2,4]  [2,5]  
[3,0]  [3,1]  [3,2]  [3,3]  [3,4]  [3,5]  
}


!Получение индексов массива через функцию ARRPOS
$Поиск='[3,0]'

N=ARRPOS('$ДвумерныйМассивТекстовыйИндекс',$Поиск)
if N<>-1:
	!Ищем разделитель ':'  в индексе
	K=STRPOS($МассивИндекс[N],':')

	i1=VAL(MID($МассивИндекс[N],0,K-1))
	i2=VAL(MID($МассивИндекс[N],K+1,LEN($МассивИндекс[N])-K))

	*NL $Поиск+'=[<<i1>>,<<i2>>]'
else
	*Nl 'Элемент не найден'
end


!{ Результат 
[3,0]=[3,0]
}

*NL
!Удаление элемента массива через текстовый индекс
$Удалить='<<i1>>:<<i2>>'
*NL 'Удаляем элемент с индексом <<i1>>:<<i2>>'

!Получаем номер элемента

N=МассивПорядок[$Удалить]


!Удаляем элемент
KILLVAR '$ДвумерныйМассивТекстовыйИндекс', N
KILLVAR '$МассивИндекс', N
KILLVAR 'МассивПорядок', N

!Еще раз выводим данные массива

i1=0
:ПрыгВыводМассива3
	*Nl 
	i2=0
	:ПрыгВыводМассива4
		if $ДвумерныйМассивТекстовыйИндекс['<<i1>>:<<i2>>']<>'':
			*P $ДвумерныйМассивТекстовыйИндекс['<<i1>>:<<i2>>']+'  '
		else
			*P '[DEL]  '
		end
		i2+=1
	if i2<i2_max : Jump 'ПрыгВыводМассива4'
i1+=1
if i1<i1_max : Jump 'ПрыгВыводМассива3'



!{ Результат
Удаляем элемент с индексом 3:0
[0,0]  [0,1]  [0,2]  [0,3]  [0,4]  [0,5]  
[1,0]  [1,1]  [1,2]  [1,3]  [1,4]  [1,5]  
[2,0]  [2,1]  [2,2]  [2,3]  [2,4]  [2,5]  
[DEL]  [3,1]  [3,2]  [3,3]  [3,4]  [3,5]  
}

</sxh>


----
[[help:strings|Вперёд: Строки]]
Документация QSPСайтФорум

Инструменты пользователя

Инструменты сайта

Инструменты страницы

Документация QSP
Сайт Форум
