Программное управление принтером при выводе знаковой информации

   Шрифты  отдельных записей (номера записей  на рис.7 указаны в скобках), интервалы между строками и отступы hi, пользовательский символ «C»  и графика «Г» должны соответствовать индивидуальному заданию, перечень которых приведен в табл.6.  Номер варианта определяется последними двумя цифрами номера зачетной книжки или задается преподавателем.

   В таблице 6 индивидуальных заданий отдельные параметры задаются в виде ссылок на соответствующие таблицы:

   Таблицы 3 шрифтов и режимов;

   Таблицы 4 пользовательских символов; пользовательский символ должен быть повторен не менее двадцати раз;

   Таблицы 5 графики; приведенный рисунок графики должен быть повторен не менее пяти раз.

   2. Выполнить прогон разработанной программы и распечатать Ваш титульный лист. 

   Пояснения к выполнению задания. 

   Перед выполнением индивидуального задания целесообразно ознакомиться с программой, приведенной на рис.8. Эта программа обеспечивает распечатку титульного листа – шаблона, приведенного на рис.7. Номера отдельных строк программы даны в виде комментариев в фигурных скобках.

   Строка 07и следующие за ней две строки обеспечивают сброс всех режимов печатающего устройства, задают шрифт «элит» и для одной строки расширенную печать.

   Строка  11 задает интервал между строками, равный 100/216 дюйма и устанавливает левое поле для начала очередной строки.

   В строке 12 задаются расширенная печать для одной строки и качественный  шрифт.

   Строка 15, строка 16 и строке 17 создают пользовательский символ.

   В строке 14 задается начало печати очередной строки и устанавливается интервалы между строками.

   Строка 18 обеспечивает многократную печать символа пользователя.

   Строке 19 задается левое поле.

   В строке 22 задается левое поле и шрифт «пайк».

   В строке 26 задается расширенная печать.

   В строке 28 задается абсолютная позиция печати слова «Проверил» в текущей строке.

   Строки 35 – 38 осуществляют вывод графики. 

   Форма представления отчета 

   Отчетом по данным работам является распечатка титульного листа согласно индивидуальному  заданию и листинг программы.  

   Защита  лабораторных работ осуществляется при явке в университет. 
 
 
 
 
 

                                                     Таблица 3

   Шрифты  и режимы

 
 
 
 

                                                                                                        Таблица 4 
 
 
 
 
 
 
 
 
 
 
 
 

                                                                                             Таблица 5 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

                                                                                                  Таблица 6

Индивидуальные  задания 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
 

h₁   МИНИСТЕРСТВО  ОБРАЗОВАНИЯ   РЕСПУБЛИКИ БЕЛАРУСЬ  (1) 

                                          БГУИР  (2)

  

              h₂

 

      C 

                                 О Т Ч Е Т (3)

 

             h₃

 

      ПО  ЛАБОРАТОРНОЙ РАБОТЕ N6 (4)

                             

      (5)         курс  -  ПУ ЭВМ     

 
 

             h₄

 

      Студент    (7) Проверил   (8)

      НИКОНОВ С.А.   (9) ФАДЕЕВ Е.П.(10) 
 
 

 h₆

 

 <><><><><><<>< 

 

      Г h₇

      М И Н С К  (11)

         2 9 8 9       (12)   

Рис. 7 
 
 
 

PROGRAM TITL2;

USES PRINTER;

VAR

I,N INTEGER;

BEGIN

WRITELN(LST,#27,’@’); {7}

WRITE(LST,#27,’M’);               

WRITE(LST,#27,#108,#10);

WRITELN(LST,’МИНИСТЕРСТВО НАРОДНОГО ОБРАЗОВАНИЯ БССР’);

WRITE(LST,#27,#51,#100);{ЗАДАНИЕ ИНТЕРВАЛА МЕЖДУ СТРОКАМИ (11)}

WRITELN(LST,#27,#14,#27,#108,#13,#27,’X’,’1’,’МРТИ’); {12}

WRITELN(LST,#27,’@’);{общий сброс}

WRITE(LST,#27,#51,#216); {ВЫБОР ИНТЕРВАЛА МЕЖДУ СТРОКАМИ}

WRITE(LST,#27,#58,#0,#0,#0); {КОПИРОВАНИЕ ПЗУ В ОЗУ}  {15}

WRITE(LST,#27,#38,#0,’!’,’!’);

{ОПРЕДЕЛЕНИЕ ЗНАКА ПОЛЬЗОВАТЕЛЯ} {16}

WRITE(LST,#0,#0,#36,#66,#129,#129,#255,#129,#129,#66,#36); {ЗАДАНИЕ КОНТУРА ЗНАКА ПОЛЬЗОВАТЕЛЯ} {17}

FOR I:=1 TO 50 DO WRITE(LST,#27,#37,#1,’!’);{18}

WRITELN(LST);

WRITE(LST,#27,#108,#19);{19}

WRITELN(LST,’О Т Ч Е Т’);   

WRITELN(LST,#27,#5,#30);    {21}

WRITE(LST,#27,’@’,#27,#108,#15,#27,’P’); {22}

WRITELN(LST,’ПО ЛАБОРАТОРНОЙ РАБОТЕ №6’); 

WRITE(LST,#27,#51,#216,’КУРС - ’);

WRITE(LST,#27,’X’,’1’,#27,#87,’1’,’ПУ ЭВМ’);  {26}

WRITELN(LST,#27,#51,#216);

WRITELN(LST,#27,’@’,’СТУДЕНТ’,#27,#36,#250,#0,’ПРОВЕРИЛ’);

{28}

WRITE(LST,#27,#51,#216,’X’,#1);

WRITE(LST,’НИКОНОВ С.А’#27,#36,#250,#0);

WRITELN(LST,#0,’ФАДЕЕВ Е.П.’);

WRITE(LST,#27,’@’);

WRITELN(LST,#27,’A’,#8);

WRITELN(LST,#27,#36,#30,#0); {АБСОЛЮТНОЕ ПОЛОЖЕНИЕ ПЕЧАТИ}

WRITE(LST,#27,’K’,#60,#0);      {35}

FOR N:=1 TO 5 DO BEGIN

WRITE(LST,#129,#66,#36,#24,#0,#74,#36,#66,#129,#255,#129,#129);

END;

WRITE(LST,#27,#51,#255);

WRITE(LST,#27,#51,#255,’’);      {38}

WRITELN(LST);

WRITE(LST,#27,#51,#40,#27,#108,#20);

WRITELN(LST,#27,’X’,#1,#14,’М И Н С К’);

WRITE(LST,#14,#27);

WRITE(LST,#27,#108,#41);

WRITELN(LST,’2989”);

WRITE(LST,#27,’@’);

END. 

Рис. 8