用键槽铣刀加工平坑，孔的直径尺寸是没有问题的，可以保证在0.02mm，孔的深度精度，要看你所使用的是什么机床了。如果使用的是数控铣床的话，深度精度应该没问题。如果使用的是钻床的话，孔的深度应该可以控制在0.1mm。
盲孔位于印刷线路板的顶层和底层表面，具有一定深度，用于表层线路和下面的内层线路的连接，孔的深度通常不超过一定的比率（孔径）。
盲孔就是连接表层和内层而不贯通整版的导通孔。
埋孔是指连接内层之间而在成品板表层不可见的导通孔。上述两类孔都位于线路板的内层，层压前利用通孔成型工艺完成，在过孔形成过程中可能还会重叠做好几个内层。
高精度减法
高精度减法程序如下：
Program HighPrecision2_Subtract;
const
fn_inp='hp2.inp';
fn_out='hp2.out';
maxlen=100; { 数的最大长度 }
type
hp=record
len:integer; { 数的长度 }
s:array[1..maxlen] of integer
{ s[1]为最低位，s[len]为最高位 }
end;
var
x:array[1..2] of hp;
y:hp; { x:输入 ; y:输出 }
positive:boolean;
procedure PrintHP(const p:hp);
var i:integer;
begin
for i:=p.len downto 1 do write(p.s[i]);
end;
procedure init;
var
st:string;
j,i:integer;
begin
assign(input,fn_inp);
reset(input);
for j:=1 to 2 do
begin
readln(st);
x[j].len:=length(st);
for i:=1 to x[j].len do { change string to HP }
x[j].s[i]:=ord(st[x[j].len+1-i])-ord('0');
end;
close(input);
end;
procedure Subtract(a,b:hp;var c:hp); { c:=a-b, suppose a>=b }
var i,len:integer;
begin
fillchar(c,sizeof(c),0);
if a.len>b.len then len:=a.len { get the bigger length of a,b }
else len:=b.len;
for i:=1 to len do { subtract from low to high }
begin
inc(c.s[i],a.s[i]-b.s[i]);
if c.s[i]<0 then
begin
inc(c.s[i],10);
dec(c.s[i+1]); { add 1 to a higher position }
end;
end;
while(len>1) and (c.s[len]=0) do dec(len);
c.len:=len;
end;
function Compare(const a,b:hp):integer;
{
1 if a>b
0 if a=b
-1 if a < b
}
var len:integer;
begin
if a.len>b.len then len:=a.len { get the bigger length of a,b }
else len:=b.len;
while(len>0) and (a.s[len]=b.s[len]) do dec(len);
{ find a position which have a different digit }
if len=0 then pare:=0 { no difference }
else pare:=a.s[len]-b.s[len];
end;
procedure main;
begin
if pare(x[1],x[2])<0 then positive:=false
else positive:=true;
if positive then Subtract(x[1],x[2],y)
else Subtract(x[2],x[1],y);
end;
procedure out;
begin
assign(output,fn_out);
rewrite(output);
if not positive then write('-');
PrintHP(y);
writeln;
close
(output);
end;
begin
init;
main;
out;
end.
高精度乘高精度
程序如下:
Program HighPrecision4_Multiply2;
const
fn_inp='hp4.inp';
fn_out='hp4.out';
maxlen=100; { max length of the number }
type
hp=record
len:integer; { length of the number }
s:array[1..maxlen] of integer
{ s[1] is the lowest position
s[len] is the highest position }
end;
var
x:array[1..2] of hp;
y:hp; { x:input ; y:output }
procedure PrintHP(const p:hp);
var i:integer;
begin
for i:=p.len downto 1 do write(p.s[i]);
end;
procedure init;
var
st:string;
j,i:integer;
begin
assign(input,fn_inp);
reset(input);
for j:=1 to 2 do
begin
readln(st);
x[j].len:=length(st);
for i:=1 to x[j].len do { change string to HP }
x[j].s[i]:=ord(st[x[j].len+1-i])-ord('0');
end;
close(input);
end;
procedure Multiply(a,b:hp;var c:hp); { c:=a+b }
var i,j,len:integer;
begin
fillchar(c,sizeof(c),0);
for i:=1 to a.len do
for j:=1 to b.len do
begin
inc(c.s[i+j-1],a.s[i]*b.s[j]);
inc(c.s[i+j],c.s[i+j-1] div 10);
c.s[i+j-1]:=c.s[i+j-1] mod 10;
end;
len:=a.len+b.len+1;
{
the product of a number with i digits and a number with j digits
can only have at most i+j+1 digits
}
while(len>1)and(c.s[len]=0) do dec(len);
c.len:=len;
end;
procedure main;
begin
Multiply(x[1],x[2],y);
end;
procedure out;
begin
assign(output,fn_out);
rewrite(output);
PrintHP(y);
writeln;
close(output);
end;
begin
init;
main;
out;
end.
至于1到N相加很明显就是N(N+1)/2，除法嘛……
.高精度除以整型数据(integer);
程序如下:
Program HighPrecision3_Multiply1;
const
fn_inp='hp5.inp';
fn_out='hp5.out';
maxlen=100; { max length of the number }
type
hp=record
len:integer; { length of the number }
s:array[1..maxlen] of integer
{ s[1] is the lowest position
s[len] is the highest position }
end;
var
x,y:hp;
z,w:integer;
procedure PrintHP(const p:hp);
var i:integer;
begin
for i:=p.len downto 1 do write(p.s[i]);
end;
procedure init;
var
st:string;
i:integer;
begin
assign(input,fn_inp);
reset(input);
readln(st);
x.len:=length(st);
for i:=1 to x.len do { change string to HP }
x.s[i]:=ord(st[x.len+1-i])-ord('0');
readln(z);
close(input);
end;
procedure Divide(a:hp;b:integer;var c:hp;var d:integer);
{ c:=a div b ; d:=a mod b }
var i,len:integer;
begin
fillchar(c,sizeof(c),0);
len:=a.len;
d:=0;
for i:=len downto 1 do { from high to low }
begin
d:=d*10+a.s[i];
c.s[i]:=d div b;
d:=d mod b;
end;
while(len>1) and (c.s[len]=0) do dec(len);
c.len:=len;
end;
procedure main;
begin
Divide(x,z,y,w);
end;
procedure out;
begin
assign(output,fn_out);
rewrite(output);
PrintHP(y);
writeln;
writeln(w);
close(output);
end;
begin
init;
main;
out;
end.
除以一个整型的2就行了
就是这样
高精度除法就是高精度减法的深一层次，其实高精度的思想就是我们平时算题时列竖式一样，比如加法从右到左一位一位的算大于10就进位，减法一样，只是如果碰到了不够减的情况把加法的进位的变量变成借位的变量（例如t为此变量，加法在执行时,a,b两个变量为两个数的同一位上的两个数，若a+b>10 则t-->1 如果是减法 若a-b<0 t--> -1 每一次运算都要加上t当然做了判断后要把哪一位相加得到的答案进行处理（加法－10 减法 a+10-b）。
至于你的这道题我也不知道应该怎么处理，但是我认为用高精度会不会太复杂了，一般的求最大公约数和最小公倍数用辗转相除法，我想这道题应该是这种方法的改进形式是最好的方法。
高精度数的定义：
type
hp=array[0..maxlen] of integer;
1．高精度加法
procedure plus(a, b: hp; var c: hp);
var
i, Len: Integer;
begin
FillChar(c, SizeOf(c), 0);
if a[0] > b[0] then
Len := a[0]
else
Len := b[0];
for i := 1 to Len do
begin
Inc(c[i], a[i] + b[i]);
if c[i] >= 10 then
begin
Dec(c[i], 10);
Inc(c[i + 1]);
end;
end;
if c[Len + 1] > 0 then
Inc(Len);
c[0] := Len;
end;
2．高精度减法
procedure substract(a, b: hp; var c: hp);
var
i, Len: Integer;
begin
FillChar(c, SizeOf(c), 0);
if a[0] > b[0] then
Len := a[0]
else
Len := b[0];
for i := 1 to Len do
begin
Inc(c[i], a[i] - b[i]);
if c[i] < 0 then
begin
Inc(c[i], 10);
Dec(c[i + 1]);
end;
end;
while (Len > 1) and (c[Len] = 0) do
Dec(Len);
c[0] := Len;
end;
3．高精度乘以低精度
procedure multiply(a: hp; b: Longint; var c: hp);
var
i, Len: Integer;
begin
FillChar(c, SizeOf(c), 0);
Len := a[0];
for i := 1 to Len do
begin
Inc(c[i], a[i] * b);
Inc(c[i + 1], c[i] div 10);
c[i] := c[i] mod 10;
end;
Inc(Len);
while (c[Len] >= 10) do
begin
c[Len + 1] := c[Len] div 10;
c[Len] := c[Len] mod 10;
Inc(Len);
end;
while (Len > 1) and (c[Len] = 0) do
Dec(Len);
c[0] := Len;
end;
4．高精度乘以高精度
procedure high_multiply(a, b: hp; var c: hp)
var
i, j, Len: Integer;
begin
FillChar(c, SizeOf(c), 0);
for i := 1 to a[0] do
for j := 1 to b[0] do
begin
Inc(c[i + j - 1], a[i] * b[j]);
Inc(c[i + j], c[i + j - 1] div 10);
c[i + j - 1] := c[i + j - 1] mod 10;
end;
Len := a[0] + b[0] + 1;
while (Len > 1) and (c[Len] = 0) do
Dec(Len);
c[0] := Len;
end;
5．高精度除以低精度
procedure devide(a: hp; b: Longint; var c: hp; var d: Longint);
var
i, Len: Integer;
begin
FillChar(c, SizeOf(c), 0);
Len := a[0];
d := 0;
for i := Len downto 1 do
begin
d := d * 10 + a[i];
c[i] := d div b;
d := d mod b;
end;
while (Len > 1) and (c[Len] = 0) then
Dec(Len);
c[0] := Len;
end;
6．高精度除以高精度
procedure high_devide(a, b: hp; var c, d: hp);
var
i, Len: Integer;
begin
FillChar(c, SizeOf(c), 0);
FillChar(d, SizeOf(d), 0);
Len := a[0];
d[0] := 1;
for i := Len downto 1 do
begin
multiply(d, 10, d);
d[1] := a[i];
while (pare(d, b) >= 0) do
begin
Subtract(d, b, d);
Inc(c[i]);
end;
end;
while (Len > 1) and (c.s[Len] = 0) do
Dec(Len);
c.Len := Len;
end;
比较就先比长度再从低位向高位一位位比大小，此处不再赘述
啊啊啊啊啊啊啊早说啊，高精度数与普通数相加就是你吧普通数也转化个高精度就解决了
高精度圆孔的加工方法：1.铰孔。2.磨孔。3.镗孔。4.研磨孔。5.拉镗孔。6.挤压。7.激光切割。
一般精度圆孔加工的方法：1.钻孔。2.线切割。3.水刀切割。
低精度圆孔加工的方法：1.乙炔氧气切割。
1. 质量是企业永恒的主题。
2. 市场是海，质量是船，品牌是帆。
3. 今日的质量，明日的市场。
4. 筑质量长城，兴中华经济。
5. ISO9000—效率、效益之源。
6. 构造“质量、环境、安全”—— 一体化的管理体系。
7. 建有质量文化的质量体系，创造有魅力、有灵魂的质量。
8. 未来的成功属于质量领先者的世纪。
9. 21 世纪——质量领先者的世纪。
10. 铸造辉煌，唯有质量。
11. 品质的优劣比成本更重要。
12. 以质量求生存，以质量求发展，向质量要效益。
13. 以质量求生存，以改革求发展。
14. 品质合格是尽社会的义务，品质卓越是对社会的贡献。
15. 质量是成功的伙伴，贯标是质量的保障。
16. 和传统的昨天告别，向规范的未来迈进。
17. 只有步入国际标准的轨道，才有无限延伸的空间。
18. 用户是企业发展的源泉。
19. 正视危机、增强信心、艰苦奋斗、再创辉煌。
20. 增强紧迫感、加强责任心、全力抢市场、打好翻身仗。
21. 能上能下，能进能出，唯才是举，唯能是用。
22. 转变观念，转变作风，创新机制，创新局面。
23. 把生命注入到产品中去，产品就会在市场上活起来。
24. 制造须靠低成本，竞争依赖高品质。
25. 用心血融铸经营理念，让企业文化生生不息。
26. 树立核心价值观，而且要善于学习，更要善于创造。
27. 质量是企业的生命。
28. 品质—企业致胜的关键。
可以找北京伊斯来福
只能加工八级以下，七级以上的达不到，高精度的只能用数控插齿机YK58125A
精确度为0.1欧姆的电阻箱的等级是多少
是4级
-----------
如果你的问题真的是问怎么获得0.1欧姆的电阻，
那实际不用买：
0.1欧电阻如何自己制作
用直经为0.1cm的铜丝,20cm就差不多了.