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

Ch1 := Ch1 Div V;

Zn1 := Zn1 Div V

Until (Zn1 > 1) And (Zn1 > Abs(Ch1)) And (Ch * Zn1 + Zn * Ch1 <> 0);

Vsp := Nod(Abs(Ch * Zn1 + Zn * Ch1), Zn1 * Zn);

BCh := (Ch * Zn1 + Zn * Ch1) Div Vsp; {числителькоэффициента B}

BZn := Zn * Zn1 Div Vsp; {знаменателькоэффициента B}

Vsp := Nod(Abs(Ch * Ch1), Zn1 * Zn);

CCh := Ch * Ch1 Div Vsp; {числителькоэффициента C}

CZn := Zn1 * Zn Div Vsp; {знаменателькоэффициента C}

A := Nok(BZn, CZn); {A}

B := BCh * A Div BZn; {B}

C := CCh * A Div CZn; {C}

Write(F, Chr(Ord('в') + J), ')~$', A, '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);

Write(F, '=0$;');

If J = 0 Then WriteLn(F, '&') Else WriteLn(F, '\\');

End;

WriteLn(F, '\end{tabular}');

WriteLn(F);

WriteLn(F, '\end{document}');

Flush(F);

Close(F)