Вторая пачка часть 188


0 - I / 25; FOR J := 1 TO 30 DO MIN[J] := A2; FOR J := 1 TO 102 DO CASE J OF 49: STX [J] := A4; 50: STX [J] := A5; 52: STX [J] := 'F'; 53: STX [J] := FACTY; ELSE STX[J] := A2; END; FOR J :=1 TO 102 DO BEGIN WRITE (LST,STX[J]); STX[J] := A2; END; WRITELN (LST,' '); FOR I :=1 TO 50 DO BEGIN IF ((I DIV 5 * 5) = I) OR (I=1) THEN FOR J := 1 TO 102 DO IF J=50 THEN STX[J] := A1 ELSE IF (J DIV 2 * 2) = J THEN STX[J] := A2 ELSE STX[J] := A7; IF I=25 THEN BEGIN FOR J :=2 TO 101 DO STX[J] := A3; STX[101] := A6; END; IF I = 26 THEN BEGIN STX[101] := 'F'; STX[102] := FACTX; END; STX[1]:=A7; KMN := 1; FOR K := 1 TO 10 DO IF K =5 THEN STX[K*10] := A1 ELSE STX[K*10] := A7; IF I=1 THEN BEGIN K1 := 0; KM := 0; FOR K := 1 TO N DO BEGIN IF SY[K]>Y[I] THEN K1 := K; IF K1>0 THEN BEGIN KX :=0; INC(KM); KK:=1; IF SX[K1]<X[KK] THEN KX := 1 ELSE BEGIN REPEAT IF(SX[K1]>=X[KK])AND (SX[K1]<X[KK+1]) ТНЕN KX := KK; INC(KK); UNTIL (KK=100) OR (KX<>0); IF KX=0 THEN KX := 100; END; FOR KK := KX TO KX+2 DO IF (STX[KK]=A1) OR (STX[KK]=A3) OR (STX[KK]=A2) OR (STX[KK]=A7) THEN STX[KK] := COPY (MINER[K1],KK-KX+1,1) ELSE BEGIN STX[KK] := A8; IND := 1; END; FOR KK := KX TO KX+2 DO BEGIN MNR := COPY (MINER[K1],KK-KX+1,1); IF MNR<>A2 THEN BEGIN MIN[KMN] := MNR; IF KMN<31 THEN INC (KMN); END; END; K1 := 0; END; END; END ELSE BEGIN K1 := 0; KM := 0; FOR K :=1 TO N DO BEGIN IF (SY[K]>=Y[I+1]) AND (SY[K]<Y[I]) THEN K1 := K; IF K1>0 THEN BEGIN KX := 0; INC (KM); KK:=1; IF SX[K1]<X[1] THEN KX := 1 ELSE BEGIN REPEAT IF(SX[K1]>=X[KK])AND (SX[K1]<X[KK+1]) THEN KX := KK; INC(KK); UNTIL (KK=100) OR (KX<>0); IF KX=0 THEN KX:=100; END; FOR KK := KX TO KX+2 DO IF (STX[KK]=A1) OR (STX[KK]=A3) OR (STX[KK]=A2) OR (STX[KK]=A7) THEN STX[KK] := COPY (MINER[K1],KK-KX+1,1) ELSE BEGIN STX [KK] := A8; IND := 1; END; FOR KK := KX TO KX+2 DO BEGIN MNR := COPY (MINER[K1],KK-KX+1,1); IF MNR<>A2 THEN BEGIN MIN[KMN] := MNR; IF KMN<31 THEN INC (KMN); END; END; K1 := 0; END; END; END; FOR K :=1 TO 102 DO BEGIN WRITE (LST,STX[K]); STX[K] := A2; END; IF KMN<=28 THEN WRITE (LST,' '); FOR K := 1 TO KMN-1 DO BEGIN IF IND=1 THEN WRITE (LST,MIN[K]); MIN[K] := A2; END; IF IND =1 THEN WRITELN (LST,MIN[KMN]) ELSE WRITELN (LST,' '); MIN [KMN] := A2; IND := 0; END; J := 1; K1 := 10; IF K1>N THEN K1 := N; REPEAT WRITE (LST,' '); FOR Z:=J TO K1-1 DO WRITE (LST,' '+MINER[Z]+' '); WRITELN(LST,' '+MINER[K1]); WRITE (LST,' (F',FACTX:1,') :'); FOR Z:=J TO K1-1 DO WRITE (LST,SX[Z]:11:5); WRITELN (LST,SX[K1]:11:5); WRITE (LST,' Y (F',FACTY:1,') :'); FOR Z:=J TO K1-1 DO WRITE (LST,SY[Z]:11:5); WRITELN (LST,SY[K1]:11:5); WRITELN (LST,' '); J := K1+1; INC(K1,10); IF K1>N THEN K1 := N; UNTIL J>K1; WRITELN (LST,' '); WRITELN (LST,' '); CONT: END; {$F+} PROCEDURE GRAFIK (FACTX,FACTY: CHAR; VAR JF: INTEGER); (; ПРОЦЕДУРА ОРГАНИЗАЦИИ ВЫВОДА ГРАФИКА РАСПОЛОЖЕНИЯ ПАРАМЕТРОВ В ФАКТОРНЫХ ОСЯХ НА ЭКРАН
Индекс
Элементарные функции    Линейные уравнения    Нелинейные уравнения    Случайные числа


Hosted by uCoz