Компонентный Паскаль/Отбор данных: различия между версиями
Содержимое удалено Содержимое добавлено
Fantom78 (обсуждение | вклад) |
Fantom78 (обсуждение | вклад) |
||
Строка 68:
BEGIN
FOR i:=0 TO sig_max-1 DO
IF sig[i]<50 THEN
sig[i]:=0
ELSIF sig[i]>1000 THEN
sig[i]:=500;
END;
END;
END LimitSig;
</source>
| |||