Вторая пачка часть 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);
(; ПРОЦЕДУРА ОРГАНИЗАЦИИ ВЫВОДА ГРАФИКА РАСПОЛОЖЕНИЯ ПАРАМЕТРОВ В ФАКТОРНЫХ ОСЯХ НА ЭКРАН
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
