setcolor(0);

outtextxy(540,50,' _');

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);

Result;

end;

' ':begin

goto 2;

end;

end;

until (c='q');

end. { -= EOF =- }

В заключении хочу выразить благодарность доценту кафедры физики твёрдого тела Саратовского госуниверситета Скрипалю Александру Владимировичу и аспиранту той же кафедры Бабаяну Андрею Владимировичу за оказанную помощь и внимательное отношение к выполнению дипломной работы.

[1] Справочная информация: PВЫХ=10 мВт, IПИК=270 мА, RПОТ=3-20 Ом., L=1.7 нГн., UПСТ=8.5 В., f=13 ГГц.

[2] Справочная информация: UОБР=30 В., IОБР=10 мкА., UПР=2.5 В., IПР/ИМП=0.02/0.2 А., f=350 МГц.