Язык ISBL

 

Примеры вычислений на ISBL

 

Пример использования оператора цикла по значениям

В приведенном примере используется цикл по значениям элементов двумерного массива. В массиве осуществляется поиск первого элемента, который больше 9,5. Как только элемент найден, обработка массива прерывается. Массив заполняется случайными значениями в интервале от 1 до 10.

 

/* Создадим двумерный массив элементов, строки которого нумеруются от 1 до 2, а столбцы - от 1 до 5 */

TwoDArray = CreateArray(1;2;1;5)

i = 1

j = 1

/* Заполним его случайным образом, используя SQL-запросы для получения случайных чисел */

while i <= 2

  while j <= 5

    TwoDArray[i;j] = Round(SQL("select rand() * 10");2)

    j = j + 1

  endwhile

  i = i + 1

endwhile

// Проверим, есть ли в массиве элемент, значение которого больше 9,5

ElementExists = False

foreach El in CArrayElement(TwoDArray)

  if El > 9.5

    ElementExists = True

    exitfor

  endIf

endforeach

//  Выведем на экран результат проверки. 

if ElementExists

  ShowMessage("В массиве есть элемент, который больше 9.5.")

else

  ShowMessage("Все элементы массива меньше 9.5.")

endif

 

 

 

См. также:

·         Общие сведения о примерах использования выражений и операторов ISBL;

·         Пример использования оператора условного ветвления;

·         Пример использования оператора цикла по условию.