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

   C := X1 * X2;

   Write(F, '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);

   WriteLn(F, '=0$;');

    {Генерируем уравнения с корнями — обыкновенными дробями}

   For J := 0 To 1 Do

   Begin

   Repeat {первый корень}

     Repeat Ch := -5 + Random(11) Until Ch <> 0; {числитель}

     Zn := 2 + Random(8); {знаменатель}

     V := Nod(Abs(Ch), Zn);

     Ch := Ch Div V;

     Zn := Zn Div V

   Until (Zn > 1) And (Zn > Abs(Ch));

   Repeat {второй корень}

     Repeat Ch1 := -4 + Random(11) Until Ch1 <> 0;

     Zn1 := 2 + Random(8);

     V := Nod(Abs(Ch1), Zn1);

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





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