Free pascal入门培训课件.ppt

三齐王点兵：三三数余a，五数余b，七七数余c，求士兵总人数n。;求两个自然数M、N的最小公倍数;求两个自然数M、N的最小公倍数;求两个自然数m和n的最大公因数;求两个自然数M、N的最大公因数;直到型循环（repeat）语句;求s=1+2+3+..+100;求两个自然数M、N的最小公倍数;求两个自然数M、N的最大公因数;写出程序运行结果;完善程序：查找一个班中考试最高分。;多重循环;多重循环;求水仙花数abc=a3+b3+c3;Var i,j,k:integer;;鸡兔同笼问题：已知头有27个，脚有82支，求鸡和兔的数量;“用百元钱买百只鸡”：3元钱买1只公鸡，2元钱买1只母鸡，1元钱可买3只小鸡。问买了多少只公鸡？多少只母鸡?多少只小鸡?;判断某个数是不是质数;输出100以内所有的质数;转向（goto）语句;转向（goto）语句举例;Lable 1; Var i,t:integer; begin i:=1; 1:if i=8 then begin t:=t+i; i:=i+1; goto1; End; Write(‘t=‘,t); end.;Lable 1,2,3; Var x,y,z:real; begin readln(x,y); if xy then goto 1 else if x=y then goto 2 else goto 3; 1: begin z:=x; x:=y;y:=z;end; 2: x:=x+y; 3; Writeln(x:0:1,y:0:1); end.;自定数据类型：（枚举类型,子界类型);自定义枚举类型;自定义枚举类型;只能进行赋值运算和关系运算 不能用read或readln语句进行赋值 不能用write或writeln语句输出变量或元素的值。 不能把元素当作变量。;不允许直接输出枚举变量的值，一般通过case语句间接地输出。;子界类型;定义子界类型要注意：;区分枚举类型与子界类型;六个朋友相聚时握手致意，请用A~F表示6个小朋友，输出6个人相互握手的各种情况，并统计握手的次数。;数组的分类;数组;定义数组类型的格式;定义数组;数组的操作;先输入5个数据，然后同时输出这些数据。;写出输出结果;Var a:array[101..105] of integer; i:integer; Begin For i:=101 to 105 do a[i]:=i+2; For i:=101 to 105 do write(a[i]:4); End.;利用一维数组，生成菲波那契数列的前10项：1 1 2 3 5 8 13 21 34 55;写出程序输出结果;Var a:array[1..10] of integer; i,j:integer; Begin For i:=1 to 5 do Begin a[i]:=a[i]+i; For j:=1 to i do a[j]:=a[j] +j; End; For i:=1 to 5 do write(a[i]:4); End.;从键盘上输入5??数，按升序（从小到大）进行排序，并输出结果。;9 7 5 3 1 7 9 5 3 1 7 5 9 3 1 7 5 3 9 1 7 5 3 1 9;从键盘上输入5个数，按升序（从小到大）进行排序，并输出结果。;二维数组;给二维数组赋值;输出二维数组的值;Var a:array[1..3,1..5] of real; i,j:integer;;Var a:array[1..3,1..5] of real; i,j:integer;;2;2;2;字符串：用’ ’引起的一串字符;对字符串的操作;Pos 谐音：pos机，到pos上打个详单，查找谁把我银行卡里的钱刷光了。联想到查询部分字符在子符串中首次出现的位置。 Pos(s1 ,s); Copy 谐音：搓皮，用手指从皮上搓点东西下来，联想到在字符串的某个位置上复制某个长度的子串。 Copy (s,n,m); Length 谐音：龙死。龙死了，肯定很长，所在length测量字符串的长度。 Length(s); ;Var s,s1,s2:string; t:integer; begin readln(s1,s2); s:=s1+s2; t:=pos (s2,s); s1:=copy(s,t,5); s:=s2+s1; t:=length(s);