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

   WriteLn(F, 'newcommand{ds}{displaystyle}');

   WriteLn(F, 'begin{document}');

  END;

 Function Nod (X, Y : Integer) : Integer;

  Begin

   WHILE X <> Y Do

     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;

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



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

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