Компонентный Паскаль/Отбор данных: различия между версиями
Содержимое удалено Содержимое добавлено
Fantom78 (обсуждение | вклад) |
Fantom78 (обсуждение | вклад) |
||
Строка 35:
<source lang="oberon2">
PROCEDURE GetSignal;
FOR i:=0 to sig_max DO (* цикл обнуления исходного массива сигналов *)
i:=0; (* предварительно обнуление счётчика *)▼
In.Open; (* открываем входной поток на чтение *)▼
WHILE (In.Done) & (i<=sig_max) (* охрана цикла *)▼
sig[i]:=SHORT(In.Int); (* чтение сигнала в цикле *)
INC(i) (* приращение счётчика цикла с условием по входу *)
END;
In.Close (* закрытие входного потока *)
End GetSignal;
</source>
| |||