Free pascal 初级培训.ppt

输入三个数，将其中最大数值输出 Var a,b,c,zdz:integer; begin readln(a,b,c); if ab then zdz:=a else zdz:=b; if czdz then zdz:=c; Writeln(zdz); End. 条件(if)语句嵌套 （1）then 后面接if 语句 格式： if 条件1为真 then if 条件2为真 then语句1(1) else 语句1(2) else 语句2 n为考生成绩，输出成绩对应的等级。90—100为优秀，60—89为合格，0-59为不合格 Var n:real; begin readln(n); if n =60 then if n=90 then writeln(‘youxiu’) else writeln(‘hege’) else writeln(‘buhege’); end. n为考生成绩，输出成绩对应的等级。90—100为优秀，60—89为合格，0-59为不合格 Var n:real; Begin readln(n); if n =60 then writeln(‘buhege’) else if n=90 then writeln(‘youxiu’) else writeln(‘hege’) end. Var n:integer; begin readln(n); if n mod 2 =0 then if n mod 5=0 then n:=n div10 else n:=n mod 10 else n:=n +2; Writeln(n); end. Var n:integer; begin readln(n); if n =10 then writeln(n+10) else if n=20 then writeln(n) else writeln(n-5) end. 分情况（case）语句 在同时出现多个条件时，根据具体情况从中选择一个条件运行的语句。 格式1： case 表达式 of 数值1：语句1； 数值2：语句2； . . 数值n:语句n； end; 输入某个月份，输出该月的节日。 Var n:integer; begin readln(n); Case n of 1: writeln(’元旦‘）； 3：writeln(‘妇女节‘）； 5：writeln(‘劳动节‘）； 6：writeln(‘儿童节’）； 9：writeln(‘教师节’）； 10：writeln(‘国庆节’）； 2，4，7，8，11，12：writeln(‘没有节日’) end; end. 输入考试成绩，输出考试等级。 Var n:real; begin readln(n); Case trunc(n) of 0..59: writeln(’不及格‘）； 60..84：writeln(‘合格‘）； 85..100：writeln(‘优秀‘）； end; end. 格式2: Case 表达式 of 数值1：语句1； 数值2：语句2； . . 数值n：语句n； else 语句n+1; end; 输入某个月份，输出该月的节日。 Var n:integer; begin readln(n); Case n of 1: writeln(’元旦‘）； 3：writeln(‘妇女节‘）； 5：writeln(‘劳动节‘）； 6：writeln