Freepascal初级培训选编.ppt

Pascal 语言 （小学版）;编程需要好算法;求100以内所有偶数的和;Program oushuhe; Var s:integer; Begin S:=(2+100)*25; Writeln(‘s=‘,s); End.;已知某等差数列的第一个数为a1,最后个数为an,相邻两个数的差值为b,求这个数列的和s。;怎样表述算法;输入两个整数，输出其中较大的数;顺序结构程序设计;;;算法： （1）用readln（a,b）语句输入长和宽的值。 （2）用赋值语句计算面积s; （3）用赋值语句计算周长c; （4）用writeln(s,c)语句输出面积和周长。;问题：已知一个圆的半径为3.5cm,求该圆的面积和周长。;问题：输出右边的图形;算法： （1）用readln（ch）语句输入字符。 （2）输出ch的序号; （3）输出ch的前导值; （4）输出ch的后导值。;选择结构程序设计;程序：输入一个整数，判断它是奇数还是偶数。;复合语句;程序：输入两个数，将其中大数存入变量a，小数存入变量b。;输入三个数，将其中最大数值输出;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)语句嵌套;n为考生成绩，输出成绩对应的等级。90—100为优秀，60—89为合格，0-59为不合格;（2）else 后面接if 语句 格式： if 条件1为真 then 语句1 else if 条件2为真 then语句2(1) else 语句2(2) ;n为考生成绩，输出成绩对应的等级。90—100为优秀，60—89为合格，0-59为不合格;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）语句;输入某个月份，输出该月的节日。;输入考试成绩，输出考试等级。;格式2: Case 表达式 of 数值1：语句1； 数值2：语句2； . . 数值n：语句n； else 语句n+1; end;;输入某个月份，输出该月的节日。;输入考试成绩，输出考试等级。;输入年月，输出该月天数。;写出程序??行结果;循环结构程序设计;计数循环（for）语句;写出程序运行结果;写出程序运行结果;写出程序运行结果;写出程序运行结果;输出a..z的所有小写字母;求1+2+3+…+100 的和s;do的后面可带复合语句;循环结构程序设计;递减型for循环;Var i,j:integer; Begin For i:= 15 downto 1 do if i mod 3=0 then Write ( i:4); End.;Var i,j,s:integer;;求水仙花数a3+b3+c3=abc;当型(while)循环;求s=2+6+10+..+98;Var i,j,k:integer;