Реферат: Напряженность поля радиотелецентров

j:=j+round(80/ln(3.8));

outtextxy(j,445,'9');

j:=j+round(80/ln(4.8));

outtextxy(j,445,'12');

j:=j+round(80/ln(5.8));

outtextxy(j,445,'15');

j:=j+round(80/ln(6.8));

outtextxy(j,445,'18');

end;

{ Построение графика }

procedure drawgrafic;

var dlt:integer;

x1,x2,y1,y2:integer;

begin

setcolor(choice+1);

x1:=100-round(2/ln(1.91));;

for i:=1 to col do

begin

y1:=440-round(400*ord[i]/em);

y2:=440-round(400*ord[i+1]/em);

if (i>=1)and(i<40) then begin

x1:=x1+round(2/ln(1.91));

x2:=x1+round(2/ln(1.91));

end;

if (i>=40)and(i<80) then begin

x1:=x1+round(2/ln(3.71));

x2:=x1+round(2/ln(3.71));

end;

if (i>=80)and(i<120) then begin