Var b,bo,Bl,b2,c,co,Cl,c2,Xl,x2:integer;
Yl,Y2:REAL;
W4,W5.W6.W9,W10,W11:STRING[1];
M, M1,I,J,K,L,N,NO,Nl,N2:INTEGER;
A,W:ST;
PROCEDURE PP(VAR V:ST);
LABEL 1;
Var I,k:integer;
BEGIN
M:=NA:
FOR I:=1 TO NA DO
BEGIN
IF W[I]<>' ' THEN GOTO 1;
M:=M-1;
FOR K:=I TO NA-1 DO
W[K]=W[K+1];
W[NA]:=’ ’;
1:
END;
END;
BEGIN
N:=0; N0:=0; N1:=0; K:=0;
FOR I:=l TO NV DO
BEGIN
W:=’ ’;
L:=0; N2:=0;
Yl:=RANDOM;
X1:=TRUNC(18*Yl-9):
Y2 =RANDOM;
X2:=TRUNC(18*Y2-9);
B:=-(X1+X2);
C:=Xl*X2;
IF B>0 THEN W4:=’+’ ELSE W4:=’-’;
Bl:=ABS(B) DIV 10;
B2:=ABS(B) MOD l0;
STR(Bl,W5);
STR(B2,W6);
IF Bl=0 THEN W5:=’ ’;
IF C>0 THEN W9:=’+’ ELSE W9:=’-’;
C1:=ABS(C) DIV lO;
C2:=ABS(C) MOD 10;
STR(Cl,Wl0);
STR(C2,W11);
IF Cl=0 THEN Wl0:=' ';
W:='X*X'+W4+W5+W6+'*X'+W9+W10+Wll'=0';
PP(W); Ml:=M;
35: A:='’;
WRITELN (‘BBEДИTE КBAДPATHOE УРАВНЕНИЕ, ЕCЛИ KOPHИ PABHЫ ','X1= ',X1,' X2=',X2);
READLN(A);
PP(A);
IF A<>'П' THEN GOTO 5;
WRITELN('КОЭФФИЦИЕНТ ПРИ X B ПEPBOЙ CTEHEHИ PABEH CУММE КOPHEЙ');
WRITELN('C OБPATHЫМ ЗHAКOМ,A CBOБOДHЫЙ ЧЛEH ПPOИЗBEДEHИЮ KOPHEЙ');
WRITELN(‘ИCПPABЬTE OШИБКУ И CHOBA BBEДИTE OTBET HA BOПPOC');
5: FOR J:=1 TO M1 DO
BEGIN
IF A[J]<>W[J) THEN GOTO l0;
END;
IF L=0 THEN
BEGIN
N0:=N0+1;
K:=K+1;
END;
IF K>=3 THEN GOTO 3O;
25: Writeln('пpabильho. Otbetьte ha cледующий boпpoc.');
Nl:=Nl+l;
GOTO 5O;
10: Nl=Nl+l;
N2:=N2+l;
K:=0;
IF N2>=2 THEN GOTO 15;
WRITELN('HEBEPHO. ПPOBEPЬTE BЫЧИСЛЕНИЯ И OTBETЬTE HA BOПPOC');
GOTO 35;
15: Writeln(‘bbeдиte koэффициeht при X b пebpboй ctепehи’);
READLN(B0);
IF B0=B THEN GOTO 2O;
WRITELN('HEBEPHO. ПPOBEPЬTE BЫЧИСЛЕНИЯ И СНОВА ВВЕДИТЕ OTBET');
N1:=N1+1;
N2:=N2+1;
GOTO l5;
20: Writeln (‘bbeдиte зhaчение cboбoдhoгo члeha’);
RЕADLN (C0);
IF C0=C THEH GOTO 25;
WRITELN (‘HEBEPHO. ПPOBEPЬTE BЫЧИСЛЕНИЯ И СНОВА ВВЕДИТЕ OTBET');
N1:=N1+1;
N2:=N2+1;
GOTO 20;
5O:
END;
N:=10;
GOTO 45;
30: N:=I;
45: IF N=N0 THEN WRITELN(‘отлично’);
ELSE IF (N-N0)<=2 THEN WRITELN (‘XOPOШO’)
ELSЕ IF (N-N0)<=4 THEN WRITELN (‘УДОВЛЕТВОРИТЕЛЬНО’)
ELSE WRITELN (‘НЕУДОВЛЕТВОРИТЕЛЬНО’);
END.
В подпрограмме после перемещения символов строки влево производится запись в 15-ю позицию символа « », чтобы избежать дублирования последнего символа строки.