《测试报告 - READ》由会员分享，可在线阅读，更多相关《测试报告 - READ（9页珍藏版）》请在金锄头文库上搜索。
1、测试报告360606222 陈海赞1测试程序及测试结果测试程序：const z=0;var head,foot,cock,rabbit,n:integer;beginn:=z;read(head,foot);cock:=1;cock:=cock+1;for cock:= 1 downto 1 dobeginwriteln(0)end;cock:=1;while cock0 do beginswap;moddend;g:=y;m:=a*b div g;writeln(g,m);write(100 * 200);end.测试结果：测试程序var i,j:integer;beginfor i:=1
2、to 9 dobeginfor j:=1 to 9 dobeginwrite(j);write(i);write(i*j);end;writeln;end;readln;end.测试结果：测试程序：var a:integer;beginwhile a=2 dobegin write(2);if n=2 then pf:=true;m:=3;while m=n dobegincall prime;m:=m+2end;read(n)end;if pf=false then write(0)end.测试结果：测试程序：var oil,help:char;kg,total:real;beginwrit
3、e(Enter the amount in kilograms(kg):);readln(kg);write(Enter type of the gasonline (a,b,c):);readln(oil);write(Enter type for service (f,m,e):);readln(help);case oil ofa:total:=1.50*kg;b:total:=1.35*kg;c:total:=1.18*kg;else writeln(Input Error !);end;case help off:;m:total:=total*(1-0.05);e:total:=t
4、otal*(1-0.10);else writeln(Input Error !);end;writeln; writeln(Total is ,total:10:2);end.测试结果：测试程序：var day, y, m, d:integer;begin y := 1m := 0;d := 0;day := (1461*y) div 4 + (153*m + 2) div 5 + d;end.测试结果：2测试结果分析编译器基本功能可以实现，但是不能识别字符串（未能实现此功能） 。测试程序开头不能带有 program cpstud1;此语句；不能做类是除 0 的非法操作；不能有类似遗漏分号等语法错误；等等。
