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

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: новшество, рассказы
| Добавил(а) на сайт: Al'fred.

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}');

Рекомендуем скачать другие рефераты по теме: дипломы курсовые, конспект урока изложения.

Claw.ru | Рефераты по информатике, программированию | Генерация дидактических материалов по математике