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

     IF X > Y THEN X := X — Y ELSE Y := Y — X;

   Nod := X

  END;

 Var  D, I, A, C, B, E, G, H, O, P, L, M, N, E1, G1, H1, O1, P1 : Integer;

      Vx2, J, Vsp : Integer;

      X, Znak : Char;

Begin

    Assign(F, 't:rustexex_v.tex');

    ReWrite(F);

    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,

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





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