Компонентный Паскаль/Отбор данных: различия между версиями
Содержимое удалено Содержимое добавлено
Fantom78 (обсуждение | вклад) |
Fantom78 (обсуждение | вклад) |
||
Строка 43:
i:=0; (* предварительно обнуление счётчика *)
In.Open; (* открываем входной поток на чтение *)
WHILE (In.Done) & (i<sig_max) (* охрана цикла *)
a[i]:=SHORT(tmp); (* принудительное преобразование типа *)
INC(i) (* приращение счётчика цикла с условием по входу *)
END;
|