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

setcolor(11); str(visir_f:5:3,s); outtextxy(540,50,s+' GHz');

setwritemode(COPYput);

Result; end;

'1': begin an2; setwritemode(XORput); setcolor(11);

line(visir_3,ygmin,visir_3,ygmax); visir_3:=visir_3-1;

line(visir_3,ygmin,visir_3,ygmax); visir_f:=(visir_3-xgmin)*(xmax- xmin)/(xgmax-xgmin);

setcolor(0); outtextxy(540,50,'___________');

setcolor(11); str(visir_f:5:3,s); outtextxy(540,50,s+' GHz');

setwritemode(COPYput);

Result;

end;

'.': begin an2; setwritemode(XORput); setcolor(14);

line(visir_4,ygmin,visir_4,ygmax); visir_4:=visir_4+1;

line(visir_4,ygmin,visir_4,ygmax); visir_f1:=(visir_4-xgmin)*(xmax- xmin)/(xgmax-xgmin);

setcolor(0); outtextxy(540,60,'___________');

setcolor(14); str(visir_f1:5:3,s); outtextxy(540,60,s+' GHz');

setwritemode(COPYput);

Result;

end;

'0': begin an2; setwritemode(XORput); setcolor(14);

line(visir_4,ygmin,visir_4,ygmax); visir_4:=visir_4-1;

line(visir_4,ygmin,visir_4,ygmax); visir_f1:=(visir_4-xgmin)*(xmax- xmin)/(xgmax-xgmin);

setcolor(0); outtextxy(540,60,'___________');

setcolor(14); str(visir_f1:5:3,s); outtextxy(540,60,s+' GHz');

setwritemode(COPYput);

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



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

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