Компонентный Паскаль/Отбор данных: различия между версиями
Содержимое удалено Содержимое добавлено
Fantom78 (обсуждение | вклад) |
Fantom78 (обсуждение | вклад) |
||
Строка 146:
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
|