,共12分)5vars:string;len,i:integer;functiondelnum(vars:string):integer;VarI,j:Integer;beginj:=1;fori:=1tolength(s)doif(s[i]<'0')(1)(s[i]>'9')thenbegins[j]:=s[i];(2);end;exit((3));end;beginreadln(s);len:=delnum(s);fori:=1tolendowrite((14));writeln;end.2.(最大子矩阵和)给出m行n列的整数矩阵,求最大的子矩阵和(子矩阵不能为空)。输入第一行包含两个整数m和n,即矩阵的行数和列数。之后m行,每行n个整数,描述整个矩阵。程序最终输出最大的子矩阵和。(最后一空4分,其余3分,共16分)constSIZE=100;varmatrix:array[1..SIZE,1..SIZE]ofinteger;rowsum:array[1..SIZE,0..SIZE]ofinteger;//rowsum[i,j]记录前i行前j个数的和M,n,i,j,first,last,area,ans:integer;beginread(m,n);fori:=1tomdoforj:=1tondoread(matrix[i,j]);ans:=matrix(1);6fori:=1tomdo(2);fori:=1tomdoforj:=1tondorowsum[i,j]:=_(3);forfirst:=1tondoforlast:=firsttondobegin(4);fori:=1tomdobeginarea:=area+(5);if(area>ans)thenans:=area;if(area<0)thenarea:=0;end;end;writeln(ans);end.
全文预览
