测试报告 - READ.docxVIP

测试报告360606222 陈海赞1．测试程序及测试结果测试程序：const z=0;var head,foot,cock,rabbit,n:integer;begin n:=z; read(head,foot); cock:=1; cock:=cock+1; for cock:= 1 downto 1 do begin writeln(0) end; cock:=1; while cock=head do begin rabbit:=head-cock; if cock*2+rabbit*4=foot then begin write(cock,rabbit); n:=n+1 end; cock:=cock+1; end; if n=0 then write(0,0)end.测试结果：测试程序：var day, y, m, d:integer;begin y := 1; m := 0; d := 0; day := (1461*y) div 4 + (153*m + 2) div 5 + d;end.测试结果：测试程序：const a=45;b=27;var x,y,g,m:integer; boo:boolean;procedure swap;var temp: