一级棒(Eachfun)
一级棒 - 教学经纬 - 奥赛辅导 - 三十五课:长达三十位数的运算
RSS订阅
三十五课:长达三十位数的运算
发表时间:2003-01-06 00:00:00 关键词:奥赛,PASCAL,编程,源码

program long;
var i,j,l,m,jinwei,benwei:integer;s:string;a,b:array [1..30] of integer;
    c:array [1..61] of integer;
begin
  for i:=1 to 30 do begin a[i]:=0;b[i]:=0;end;
  for i:=1 to 61 do begin c[i]:=0;end;
  readln(s);l:=length(s);i:=0;
  if l>30 then begin writeln('Too long!');exit;end;
  for j:=l downto 1 do begin
                         i:=i+1;
                         a[i]:=ord(s[j])-ord('0');
                       end;
  readln(s);l:=length(s);i:=0;
  if l>30 then begin writeln('Too long!');exit;end;
  for j:=l downto 1 do begin
                         i:=i+1;
                         b[i]:=ord(s[j])-ord('0');
                       end;
  for i:=1 to 30 do begin
                      if a[i]<b[i] then begin
                                          a[i+1]:=a[i+1]-1;
                                          c[i]:=a[i]+10-b[i];
                                        end
                                   else c[i]:=a[i]-b[i];
                    end;
{*******Cheng Fa*******
  for i:=1 to 30 do
     for j:=1 to 30 do
       begin
         m:=a[i]*b[j];
         jinwei:=m div 10;benwei:=m mod 10;
         c[i+j-1]:=benwei+c[i+j-1];
         c[i+j]:=jinwei+c[i+j];
       end;
  for i:=1 to 60 do begin c[i+1]:=c[i+1]+c[i] div 10;c[i]:=c[i] mod 10;end;
}
{ *******Jia Fa*******
  for i:=1 to 30 do begin
                      j:=a[i]+b[i]+c[i];
                      if j>9 then begin
                                    c[i+1]:=1;c[i]:=j-10;
                                  end
                             else begin
                                    c[i]:=j;
                                  end;
                    end;
}
  writeln('a+b=c:');
{  write('a=');for i:=30 downto 1 do write(a[i]);writeln;
  write('b=');for i:=30 downto 1 do write(b[i]);writeln;
}  write('c=');for i:=61 downto 1 do write(c[i]);writeln;

end.

本站特约顾问律师常州东晟律师事务所朱立律师(电话13915029670,QQ646146109)提醒您:
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
发表评论
称呼:
QQ:
邮箱:
链接:
内容:
搜索: 百度搜索 Google搜索
Copyright©2000 - 2008 Eachfun.Com, All Rights Reserved 一级棒网络
苏ICP备05080156号
一级棒建站系统 http://www.eachfun.com 一级棒版权所有,未经许可不得商用!