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

      Ch, Ch1, Zn, Zn1, BCh, BZn, CCh, CZn, J, V, Vsp : Integer;

Begin

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

    ReWrite(F);

    UST;

    Randomize;

   {Корни уравнения (целые)}

   Repeat X1 := -10 + Random(21) Until X1 <> 0;

   Repeat X2 := -10 + Random(21) Until X2 <> 0;

   B := -(X1 + X2);

   C := X1 * X2;

   WriteLn(F, 'begin{tabular}{ll}');

   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$;& б)~$');

   Repeat X1 := -10 + Random(21) Until X1 <> 0;

   Repeat X2 := -10 + Random(21) Until (X2 <> 0) And (X2 <> X1);

   B := -(X1 + X2);

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



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

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