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



g1[k]:=s0*s0+s1*s1;

if g1[k]>Smax then Smax:=g1[k];

end;

ppp:=s0*s0+s1*s1;

f0:=0;

{ очистка поля и перерисовка визиров и цифр }

setfillstyle(0,0);

bar(xgmin+1,ygmin+1,xgmax-1,ygmax-1);

scal;

setwritemode(XORput);

if(d_visir<>0) then begin

line(trunc(visir_s),ygmin,trunc(visir_s),ygmax);

str((1e-9/d_visir):5:3,s);

outtextxy(540,35,s+' GHz');

end;

line(visir_3,ygmin,visir_3,ygmax);

setcolor(14);

line(visir_4,ygmin,visir_4,ygmax);

setwritemode(COPYput);

setcolor(11);

str(visir_f:5:3,s);

outtextxy(540,50,s+' GHz');

setcolor(14);

str(visir_f1:5:3,s);

outtextxy(540,60,s+' GHz');

Result;

{ рисование спектра }

moveto(xgmin,ygmax);setcolor(10);

for k:=1 to 200 do begin

xg:=xgmax-trunc((xmax-f0/1e9)*(xgmax-xgmin)/(xmax-xmin));

yg:=ygmin-trunc((ymax-100*g1[k]/SMAX)*(ygmin-ygmax)/(ymax-ymin));

lineto(xg,yg);

f0:=f0+2e8;

end;

{ конец спектра }

repeat

c:=readkey;

case c of

{ перемещение визиров }

'9': begin

an3;

setwritemode(XORput);

setcolor(15);

line(visir_1,ygmin,visir_1,ygmax);

Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, доклад по обж.

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

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