1樓：匿名使用者
type
shuzu=array[0..10000]of int64;
vars:ansistring;
s1:string;
a,b:shuzu;
i:longint;
procedure mul(var a:shuzu;b:shuzu);
vari,j:longint;
begin
for i:=a[0] downto 1 dobegin
for j:=b[0] downto 2 doinc(a[i+j-1],a[i]*b[j]);
a[i]:=a[i]*b[1];
end;
a[0]:=a[0]+b[0];
while (a[a[0]]=0)and(a[0]>0) doa[0]:=a[0]-1;
for i:=1 to a[0]-1 dobegin
a[i+1]:=a[i+1]+(a[i] div 10000);
a[i]:=a[i] mod 10000;
end;
while a[a[0]]>10000 dobegin
a[a[0]+1]:=a[a[0]+1]+(a[a[0]] div 10000);
a[a[0]]:=a[a[0]] mod 10000;
a[0]:=a[0]+1;
end;
end;
begin
readln(s);
a[0]:=length(s)div 4;
for i:=1 to a[0] do
begin
s1:=copy(s,length(s)-3,4);
val(s1,a[i]);
delete(s,length(s)-3,4);
end;
if s<>'' then
begin
inc(a[0]);
val(s,a[a[0]]);
end;
readln(s);
b[0]:=length(s)div 4;
for i:=1 to b[0] do
begin
s1:=copy(s,length(s)-3,4);
val(s1,b[i]);
delete(s,length(s)-3,4);
end;
if s<>'' then
begin
inc(b[0]);
val(s,b[b[0]]);
end;
mul(a,b);
write(a[a[0]]);
for i:=a[0]-1 downto 1 dobegin
if (a[i]>=1000) then write(a[i])else
if a[i]>=100 then write('0',a[i])else
if a[i]>=10 then write('00',a[i])else write('000',a[i]);
end;
writeln;
readln;
readln;
end.
不懂可追問
歡迎加入資訊學qq群：283079795
2樓：匿名使用者
var st:ansistring;
x,y:array[0..1001]of integer;
i,j,l1,l2:integer;
begin
write('x='); readln(st);
l1:=length(st);
fillchar(x,sizeof(x),0);
fillchar(y,sizeof(y),0);
for i:=l1 downto 1 dox[l1-i]:=ord(st[i])-ord('0');
write('y='); readln(st);
l2:=length(st);
for i:=l2 downto 1 doy[l2-i]:=ord(st[i])-ord('0');
if l1for i:=0 to l1 do
begin
x[i]:=x[i]+y[i];
x[i+1]:=x[i+1]+x[i] div 10;
x[i]:=x[i] mod 10;
end;
write('x+y=');
j:=1001;
while x[j]=0 do j:=j-1;
for i:=j downto 0 do write(x[i]);
readln;
end.
計重秤是怎麼做到高精度的？
這個主要取決於感測器和adc了，現在有專用的稱重感測器的adc。你上邊舉的例子是30kg精度，我不知道這個是0.5g是誤差 還是說精度是，30kg範圍精度0.5g，也就是6萬分之一，也就是16位的adc的解析度。稱重感測器一般都是24位的adc，也就是說在最理想的情況下感測器的量程和adc的測量範圍...
求問高精度皮帶秤質量最好的是哪家
高精度懸浮式稱架，具有高精度性和穩定性本公司生產的高精度皮帶秤質量過硬，是皮帶秤行業中屈指可數的生產廠家。高精度皮帶秤結構主要包括皮帶秤輸送及驅動元件，但是有的皮帶秤廠家一般不予提供其中的輸送和驅 動元件，因為現在的皮帶秤公司主要以套裝為多，一般不生產這兩個元件，但是沒有它配料皮帶秤又無法工作，本公...
無錫江南高精度冷拔管有限公司怎麼樣？
無錫江南高精度冷拔管 是1997 01 28在江蘇省無錫市惠山區註冊成立的有限責任公司，註冊地址位於無錫市惠山區錢橋街道溪南社群金山北路88號。無錫江南高精度冷拔管 的統一社會信用 註冊號是91320206250215637x，企業法人支向軍，目前企業處於開業狀態。無錫江南高精度冷拔管 的經營範圍是...