作业帮以“语文”为话题的记叙文如题一楼的……………………我迷茫
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 06:41:58
xTn@1,mC?$ba!cٴQrhFJ҂F.ZjI/6f_<@>6̙{9s;j-L^8 NSq~ޙug>E< OO:
o/.Ԃ'b (ERx}|PoP}<%/cc^3mzm4h{n{?ҞۣxY5RdoY,v:̤!bc,LzY$e @ 15| Y:(aRT")j#hg6 z>E
ݧ#J&͒ vAьPc%K 86Uʫ"83n /wt2`)h#`aKUdyryd>_V [ؔ@
5%JPwGlGʦxzvpU1` 08aR
V_ʵD@؋p,2$N&NyaT= -WvҢ7hK@1w&_tv
xo'zjkxp$ڋZRS6cO3
以“语文”为话题的记叙文如题一楼的……………………我迷茫
以“语文”为话题的记叙文
如题
一楼的
……………………我迷茫
以“语文”为话题的记叙文如题一楼的……………………我迷茫
我认为,语文整一个垃圾!不如学编程,比如,语文老师看得懂下面的东东吗?
var tianpan,tian:array[0..20,1..20]of integer;
zong,m,n,k,i1,j1,i,j,l:integer;
procedure find;
var i,j,s1,s2:integer;
begin
s1:=1;s2:=1;
for i:= 1 to m do
for j:= 1 to n do
if (tianpan[i,j]<>0)and(tian[i,j]>tian[s1,s2])then begin s1:=i;s2:=j;end;
i1:=s1;j1:=s2;
end;
begin
readln(m,n,k);
for i:= 1 to m do
begin
for j:= 1 to n do
begin tianpan[i,j]:=1;read(tian[i,j]);end;
readln;
end;
find;j:=j1;i:=i1;
k:=k-j;zong:=0;
zong:=zong+tian[i,j];tianpan[i,j]:=0;
find;
while (abs(j1-j)+abs(i1-i)+1+j1
k:=k-abs(j1-j)-abs(i1-i)-1;
zong:=zong+tian[i1,j1];
tianpan[i1,j1]:=0;
i:=i1;j:=j1;
find;
end;
write(zong);
readln;
end.（我写的,但通不过,高手检查一下）
但是电脑老师一定看得懂中文!