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