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

   Vx2 := D * L + M * C — E1 * B;

   Until Vx2 Mod A = 0;

   G1 := Vx2 Div A;

   O1 := D * M + N * C — G1 * B;

   P1 := D * N;

       Until (Nod(Abs(H), Nod(Abs(O), Abs(P))) = 1) And (Nod(Abs(O1), Abs(P1)) = 1);

   {выводим в файл очередное получившееся выражение,

    учитывая, что некоторые из коэффициенты могут быть нулями,

    коэффициенты, равные 1 или -1, не указываются и др.}

   Write(F, Chr(Ord('а') + I — 1), ')~$dsleft(');

   If Abs(E1) 1 Then Write(F, E1)

                           Else If E1 = -1 Then Write(F, '-');

   Write(F, X, '^2');

   If G1 0

   Then Begin

         If Abs(G1) 1 Then Begin

                                           If G1 > 0 Then Write(F, '+');

                                           Write(F, G1)

                                          End

                                 Else If G1 = -1

                                          Then Write(F, '-')

                                          Else Write(F, '+');

         Write(F, X);

        End;

   If O1 0

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



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

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