高中信息技术 信息学奥赛_PASCAL语言 选择结构课件2.ppt

《高中信息技术 信息学奥赛_PASCAL语言 选择结构课件2.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Pascal软件的安装1、将tp7.exe解压到D:2、进入D:TP7BIN，将TURBO.EXE发送到桌面快捷方式3、双击桌面的快捷方式PROGRAMex31(input,output);VARx,y:real;BEGINreadln(x);IFx<=2.5THENz:=x*x+1ELSEz:=x*x-1;writeln(‘x=’,x:6:2,‘y=’,y:6:2)END.PROGRAMex31(input,output);VARx,y:real;BEGINreadln(x);IFx<=2.5THENz:=x*x+1;IFx>2.5THENz:=x*x-1;wri

2、teln(‘x=’,x:6:2,‘y=’,y:6:2)END.PROGRAMex32(input,output);VARx,pay:real;BEGINreadln(x);IFx>=10000THENpay:=x*0.05;IF(x<10000)AND(x>=5000)THENpay:=x*0.03;IF(x<5000)AND(x>=1000)THENpay:=x*0.02;IFx<1000THENpay:=0;writeln(‘x=’,x,‘pay=’,pay)END.PROGRAMex33(input,output);VAR  d:real;BEGINwrite(‘p

3、leaseinputyourscore’);readln(d);if(d>85)thenwriteln(‘verygood’);if(d>=60)and(d<=85)thenwriteln(‘good’);if(d<60)thenwriteln(‘nogood’)END.PROGRAMex34(input,output);VARa,b,c,min:real;BEGINwriteln(‘Pleaseinputa,b,c:’);readln(a,b,c);IFa

4、estnumberis’,min)END.PROGRAMex34(input,output);VARa,b,c,min:real;BEGINwriteln(‘Pleaseinputa,b,c:’);readln(a,b,c);IF(a

5、F〈条件〉THEN〈语句1〉ELSE〈语句2〉;条件语句1真假IF〈条件〉THEN〈语句1〉;或IF〈条件〉THEN〈语句1〉;2.复合语句BEGIN〈语句1〉;〈语句2〉;…〈语句n〉END3.复合IF语句（IF语句的嵌套）IF〈条件1〉THEN〈语句1〉ELSEIF〈条件2〉THEN〈语句2〉ELSE〈语句3〉;语句2条件1语句1真假条件2真假语句3例1：求y=f(x)的值。2x>0y=0x=0-2x<0IFx>0THENy:=2ELSEIFx=0THENy:=0ELSEy:=-2IFx>0THENy:=2IFx=0THENy:=0IFx<0THENy:=-2练习：3

6、.2对一批货物征收税金。价格在1万元以上的货物征税5%，在5000元以上，1万元以下的货物征税3%，在1000元以上，5000元以下的货物征税2%，1000元以下的货物免税。编写一程序，读入货物价格，计算并输出税金。（价格x，税金pay）要求：用复合IF语句编写程序PROGRAMex32(input,output);VARx,pay:real;BEGINreadln(x);IFx>=10000THENpay:=x*0.05ELSEIFx>=5000THENpay:=x*0.03ELSEIFx>=1000THENpay:=x*0.02ELSEpay:=0;writeln(‘

7、x=’,x,‘pay=’,pay)END.练习：3.3输入某学生成绩，若成绩在85分以上，输出verygood，若成绩在60分到85分之间，输出good，若成绩低于60分，输出nogood。(d成绩)要求：用复合IF语句编写程序PROGRAMex33(input,output);VAR  d:real;BEGINwrite(‘pleaseinputyourscore’);readln(d);IFd>85THENwriteln(‘verygood’)ELSEIFd>=60THENwriteln(‘good’)ELSEwritel