Реферат: Генерация дидактических материалов по математике

If C <> 0 Then If C < 0 Then Write(F, C) Else Write(F, '+', C);

WriteLn(F, '=0$;& б)~$');

Repeat X1 := -10 + Random(21) Until X1 <> 0;

Repeat X2 := -10 + Random(21) Until (X2 <> 0) And (X2 <> X1);

B := -(X1 + X2);

C := X1 * X2;

Write(F, 'x^2');

If B <> 0

Then Begin

If B > 0

Then If B <> 1 Then Write(F, '+', B) Else Write(F, '+')

Else If B <> -1 Then Write(F, B) Else Write(F, '-');

Write(F, 'x');

End;

If C <> 0 Then If C < 0 Then Write(F, C) Else Write(F, '+', C);

WriteLn(F, '=0$;\\');

{Генерируем уравнения с корнями — обыкновенными дробями}

For J := 0 To 1 Do

Begin

Repeat {первый корень}

Repeat Ch := -5 + Random(11) Until Ch <> 0; {числитель}

Zn := 2 + Random(8); {знаменатель}

V := Nod(Abs(Ch), Zn);

Ch := Ch Div V;

Zn := Zn Div V

Until (Zn > 1) And (Zn > Abs(Ch));

Repeat {второй корень}

Repeat Ch1 := -4 + Random(11) Until Ch1 <> 0;

Zn1 := 2 + Random(8);