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

Program Kw;

Var F : Text;

  {Процедура, производящая начальные установки в формате LaTeXа}

  Procedure UST;

  Begin

   WriteLn(F, 'documentstyle[12pt,a4wide]{article}');

   WriteLn(F, 'topmargin-3cm');

   WriteLn(F, 'pagestyle{empty}');

   WriteLn(F, 'setlength{textheight}{27cm}');

   WriteLn(F, 'setlength{textwidth}{16cm}');

   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;

 {НОК}

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

  Begin

   NoK := X * Y Div NoD(X, Y)

  END;

  Var X1, I, X2, A, C, B : Integer;

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



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

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