7.16数的处理-1-1.pptVIP

引例： 输入2个数进行相加并输出结果。 Var a,b:integer; Begin Read(a,b); Write(a+b); End. Str1=‘3210’ Str2=‘98765’ a数组 0 1 2 3 b数组 5 6 7 8 9 5 7 9 1 1 0 1 j 对位 相加 进位 1、数的加法 对位（数字分离及反向保存） readln(str1); l1:=length(str1); k:=0; for i:=l1 downto 1 do begin k:=k+1; a[k]:=ord(str1[i])-ord(0); end; 或 readln(str1); l1:=length(str1); For i:=1 to l1 do a[i]:=ord(str1[l1-i+1])-ord(‘0’); 我们用字符串来读取，然后将字符串的数据存到整型数组中。 相加处理 for i:=1 to j do begin a[i]:=a[i]+b[i]; {相加} a[I+1]:=a[[I+1] + a[I] div 10; {进位处理} a[I]:=a[I] mod 10; {保留余数} end; if a[j+1]0 then j:=j+1; for i:=j downto 1 do write(a[i]); 位数判定 前提：已把数存放到a,b两个数组中 var str1,str2:string; a,b:array[1..100] of integer; l1,l2,i,j,k:integer; begin readln(str1); readln(str2); l1:=length(str1); l2:=length(str2); if l1l2 then j:=l1 else j:=l2; k:=0; for i:=l1 downto 1 do begin k:=k+1; a[k]:=ord(str1[i])-ord(0); end; k:=0; for i:=l2 downto 1 do begin k:=k+1; b[k]:=ord(str2[i])-ord(0); end; for i:=1 to j do begin a[i]:=a[i]+b[i]; a[i+1]:=a[[i+1] + a[i] div 10; a[i]:=a[i] mod 10; end; if a[j+1]0 then j:=j+1; for i:=j downto 1 do write(a[i]); end. 处理进位 从低位到高位依次将各位数相加 用字符串形式输入加数和被加数 a[i]-10 a[i+1]+1 体会： 1.数是怎样从键盘中读取？ 2.数据保存在哪里？ 3.加法是怎样处理的？ Str1=‘3210’ Str2=‘98765’ a数组 0 1 2 3 b数组 5 6 7 8 9 5 7 9 1 1 0 1 for i:=1 to j do begin a[i]:=a[i]+b[i]; a[i+1]:=a[[i+1] + a[i] div 10; a[i]:=a[i] mod 10; end; 加法语句写法对比： 1.边加边进位 2.一次性加，再一次性进位 For i:=1 to j do a[i]:=a[i]+b[i]; For i:=2 to j+1 do begin a[i]:=a[i-1} div 10+a[i]; a[i-1]:=a[i-1] mod 10; end; 对进位的优化处理 For i:=2 to j+1 do if a[i-1] 10 then begin a[i]:=a[i-1} div 10+a[i]; a[i-1]:=a[i-1] mod 1