Реферат: Генерация дидактических материалов по математике
UST;
Randomize;
For I := 1 To 5 Do
Begin
Repeat {пока в числителях дробей не будут взаимно простые числа}
X := Chr(Ord('x') + Random(3)); {буква-переменная}
{Получаем знаменатель — выражение вида Ax+B,
A, B — целые, x — буква}
A := 1 + Random(5);
Repeat B := -4 + Random(9) Until B <> 0;
Vsp := Nod(A, Abs(B));
A := A Div Vsp; B := B Div Vsp;
Repeat
Repeat
{Получаем числитель делителя после преобразования
— выражение вида Lx^2+Mx+N,
L, M, N — целые, x — буква}
L := 1 + Random(5);
Repeat M := -4 + Random(9) Until M <> 0;
Repeat N := -4 + Random(9) Until N <> 0;
Vsp := Nod(Nod(L, Abs(M)), Abs(N));
L := L Div Vsp;
M := M Div Vsp;
N := N Div Vsp;
{Получаем ответ — выражение вида Cx+D,
C, D — целые, x — буква}
C := A * (1 + Random(3));
Repeat D := -4 + Random(9) Until D <> 0;
{Формируем выражение-делитель. Получаем его в виде