Модуль PRINTER

         Самый маленький модуль. Он описывает переменную текстового файла lst  (listing) и связывает его с логическим устройством PRN (LPT1), т.е. с принтером. Использование этой переменной в списке процедуры вывода приводит к выводу информации на печать.

     Пример 20.1.   Для заданного значения  x вычислить  и вывести результат на экран и на принтер.

 Program Pech;

     Uses CRT, PRINTER;

    Var x,y          :real;

     Begin

         ClrScr;

          Readln(x);          

          y:=cos(x);   Writeln(‘y=’,y:10);   Writeln(lst, ‘y=’,y:10);

      End.