03阅读程序写结果.docVIP

青少年信息学奥林匹克初级竞赛辅导 §3阅读程序，写出正确的程序运行结果 08-1. var i,a,b,c,d:integer; f:array[0..3] of integer; begin for i:=0 to 3 do read(f[i]); a := f[0] + f[1] + f[2] + f[3]; a := a div f[0]; b := f[0] + f[2] + f[3]; b := b div a; c := (b * f[1] + a) div f[2]; d := f[(b div c) mod 4]; if (f[(a + b + c + d) mod 4] f[2]) then begin a := a + b; writeln(a); end else begin c := c + d; writeln(c); end; end. 输入：9 19 29 39 输出：_______________ 08-2．procedure foo(a,b,c:integer); begin if ab then foo(c,a,b) else writeln(a, ,, b, ,, c); end; var a,b,c:integer; begin read(a, b, c); foo(a,b,c); end. 输入: 3 1 2 输出: __________ 08-3．type TT= array[0..20]of integer; procedure func(var ary:TT; n:integer); var i,j,x:integer; begin i:=0;j:=n-1; while ij do begin while (ij) and (ary[i]0) do inc(i); while (ij) and (ary[j]0) do dec(j); if ij then begin x:=ary[i]; ary[i]:=ary[j]; ary[j]:=x; inc(i); dec(j); end; end; end; var a:TT; i,m:integer; begin m:=10; for i:=0 to m-1 do read(a[i]); func(a,m); for i:=0 to m-1 do write(a[i], ); writeln; end. 输入：5 4 -6 -11 6 -59 22 -6 1 10 输出：____________________________________ 08-4. procedure solve(first:string; spos_f,epos_f:integer; mid:string;spos_m,epos_m:integer); var i,root_m:integer; begin if spos_f epos_f then exit; for i:=spos_m to epos_m do if first[spos_f] = mid[i] then begin root_m:=i; break; end; solve(first,spos_f+1,spos_f+(root_m-spos_m),mid,spos_m,root_m-1); solve(first,spos_f+(root_m-spos_m)+1,epos_f,mid,root_m+1,epos_m); write(first[spos_f]); end; var first,mid:string; len:integer; b