Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

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

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



Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки