Если вы хотите: Введите:
Очистить биты 0 - 31 в массиве BOOL:
1. Присвоить тегу индекса (subscript) значение 0.
2. Очистить элемент массива [индекс ] (array[subscript]).
Наприм
ер, когда индекс = 5, очистить элемент
массива [5].
3. Прибавить 1 к значению индекса.
4. Если индекс Ј 31, повторять 2 и 3.
В противном случае, остановиться.
For subscript:=0 to 31 by 1 do
array[subscript] := 0;
End_for;
28 Публикация 1756-PM007B-EN-P - Июль 2008
Программирование на языке структурированного текста Глава 1
Пример 1:
Пример 2
Если вы хотите: Введите:
Пользовательская структура хранения данных содержит
следующую
информацию о продуктах:
• Идентификационный штриховой код продукта (строковый тип)
• Количест
во данного продукта на складе (тип данных DINT)
Массив, описанной выше структуры содержит один элемент
для каждого продукта. Вы хотите найти заданный продукт
(используя штриховой код) и определить его количество на
складе.
1. Определить размер массива Inventory (ассортимент продуктов) и
сохранить результат в Inventory_Items (тег типа DINT).
2. Установить тег
«position» на 0.
3. Если штриховой код Barcode совпадает с идентификато
ром
продукта ID в массиве, то:
a. Присвоить тегу Quantity (количество) = Inventory[position].Qty.
Эт
о количество продукта на складе.
b. Стоп.
Barcode является строковым тег
ом, в котором хранится
штриховой код продукта, который вы ищете. Например, если
position = 5, сравнивается Barcode с Inventory[5].ID.
4. Прибавить 1 к position.
5. Если position £ (Inventory_Items - 1), по
вторить 3 и 4. Поскольку
нумерация начинается с 0, последний элемент на 1 меньше чем
номер в массиве.
В противном случае, остановиться.
SIZE(Inventory,0,Inventory_Items);
For position:=0 to Inventory_Items - 1 do
If Barcode = Inventory[position].ID then
Quantity := Inventory[position].Qty;
Exit;
End_if;
End_for;
: