Не понятен текст проги на TP.

← →
Жека (2004-05-20 00:32) [0]

Это что-то вроде драйвера на принтер, выводит на печать рисунки...

program one_and_two;
uses printer;
const
s1 : Array [1..87] Of Byte =
(0,0,0{1},0,0,0{2},0,0,0{3},0,24,0{4},0,60,0{5},0,102,0{6},0,195,0{7},1,129,128{8},
3,0,192{9},6,0,96{10},12,48,48{11},24,96,24{12},48,192,12{13},97,128,6{14},
195,255,227{15},103,255,231{16},48,0,12{17},24,0,24{18},12,0,48{19},6,0,96{20},
3,0,192{21},1,129,128{22},0,195,0{23},0,102,0{24},0,60,0{25},0,24,0{26},0,0,0{27},
0,0,0{28},0,0,0{29});

var
s2 : Array [1..87] Of Byte;
j : integer;
begin

rewrite(lst);

write(lst,CHR(27), "x1", chr(27), "&", chr(0), chr(63), chr(63));
{Что делает эта строка?
write(lst,chr(4));{здесь идут отступы слева, вроде}
write(lst,chr(29));{размер символа, наверно}
write(lst,chr(3)); {отступ справа, только от чего?}
for j:= 1 to 29*3 do write(lst,chr(s1[j]));
write(lst,chr(27),"h",chr(0)); {И вот эти 4 строки не понятны}
write(lst,chr(27),"k",chr(0));
write(lst,chr(27),"%1");
write(lst,chr(9));
write(lst," One_romb: ");writeln(lst,chr(63));
......
end.

← →
TUser © (2004-05-20 07:09) [1]

chr дает символ с указанным номером. write выводит, в данном случае в файл lst. Картинок не рисует.

ESC последовательности всегда были управляющими командами для принтера, например переключение в графич.печать, инициализация, переключение шрифтов, прогоны страниц, возвраты...., были и другие однобайтные команды, так #13 перревод строки (всем известный, и в файлах используется) #10 возврат каретки, что такое #9 х.з. (вернее действие для принтера) такто это табулятор, а вот что он по нему делает уже не помню толи отступ толи еще что.
все остальные подчеркнутые строки это ESC последовательности. (начинается с #27)
тебе нужно найти описание команд принтера, и там посмотреть что именно обозначают твои команды.

Не понятен текст проги на TP. Найти похожие ветки