顺序分支测试.pptVIP

养成良好的编程习惯： 1、拼写无误,程序结构清晰． 2、变量名定义为自已熟悉的名称，以免写注释； 3、注意变量的类型与取值范围。 4、注意输入与输出与题目要求的一致性。 var a,b,c,d:integer; m,n:integer; begin readln(m); a:=m div 1000; b:=(m div 100) mod 10; c:=(m div 10) mod 10; d:=m mod 10; n:=d*1000+c*100+b*10+a; writeln(n); end. 测试题2：读三个数，找出和打印最大数。如：输入：12 35 25.5输出：35.000（输出保留三位小数） 算法分析： 　1、读入数据X、Y、Z 　2、找出三个数中最大的数 　3、输出最大的数 二级求精 　2-1、先找出X、Y两数中较大的数Max 　2-2、max与z比较取最大的数 算法 1、输入a,b,c的值 5 2 3 2、判断是否能组成三角形 3、　　能组成三角形则做进一步的处理 4、　　否则输出出错信息 第三步求精 　　3-1、求p的值 　　3-2、求s的值 　　3-3、输出s的值 input error 输入5 5 5 输出 10.83 * 1、首先建立E:\01xihuan (班级姓名用英文) 2、改变FreePascal属性中的起始位置为E:\01xihuan 3、养成快捷键应用 F2——保存程序（“file”菜单——“save”） Ctrl+f9——运行程序（“Run”菜单——“Run”） Alt+f5——切换到屏幕状态（“Debug”菜单——“use screen”） 4、将E盘下的“你的班级学号姓名”文件夹下课前交到/用户名与密码为xxjs下 1s 1s 1s 1s Time Limit 16MB 16MB 16MB 16MB Memory Limit trade.out spy.out max.out fz.out OutputFile trade.in spy.in max.in fz.in Input File trade.pas spy.pas max.pas fz.pas Program File (pas) 测试题4 测试题3 测试题2 测试题1 Problem 测试题1： 输入一个四位整数，将它反向输出。 （1）读入一个四位整数 如：3584 （2）将它分解 （3）重新组合 （4）输出反向的数 如：4853 如输入3500，输出35 样程： var a,b,c,m:real; begin write(input 3 number:); read(a,b,c); if ab then m:=a else m:=b; if cm then m:=c; writeln (m=,m:0:3); end. 样程： S= P(P-A)(P-B)(P-C) 其中P=(A+B+C) /2 写一程序读入A，B，C的值，如果能组成三角形则计算并打印S值，否则输出信息“Input error”。 测试题3：  已知三角形的三条边A，B，C ，求三角形面积的公式为： *