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

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;

{Формируем выражение-делитель. Получаем его в виде

К-во Просмотров: 587
Бесплатно скачать Реферат: Генерация дидактических материалов по математике