Компонентный Паскаль/Отбор данных: различия между версиями

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