Freepascal入门培训

1、三齐王点兵：三三数余a，五数余b，七七数余c，求士兵总人数n。Var a,b,c:integer;beginreadln(a,b,c);For n:=1 to 100 do if (n mod 3=a) and (n mod 5=b) and (n mod 7=c) then write(n:5);end.求两个自然数M、N的最小公倍数分析：设k为最小公倍数，先让k取m值的1倍，当k不能整除n时，再让k取m值的两倍、三倍.直到k能整除n。这时，k就是m和n的最小公倍数。kmn12129624364896求两个自然数M、N的最小公倍数Var k,m,n,i:integer;Beginreadln

2、(m,n);K:=m; i:=1;While k mod n0 doBegini:=i+1;K:=m*i;End;Writeln(k);End.Var k,m,n,i:integer;Beginreadln(m,n);K:=m;While k mod n0 doK:=k+m;Writeln(k);End.求两个自然数m和n的最大公因数分析：设k为最大公因数，先让k取m的值,当k不能同时被m和n整除时，让k每次减少1，直到k能同时被m和n整除。这时，k就是m和n的最大公因数。kmn6645432求两个自然数M、N的最大公因数Var k,m,n:integer;Beginreadln(m,n);K

3、:=m;While (m mod k0 )or (n mod k0 ) doK:=k-1;Writeln(k);End.直到型循环（repeat）语句格式：repeat语句1; 语句2；:语句n；Until 布尔表达式值为真;求s=1+2+3+.+100Var i,s:integer;begini:=1;s:=0;RepeatS:=s+i;i:=i+1;Until i100;Writeln(s);end.Var i,s:integer;begini:=1;s:=0;While i=100 dobeginS:=s+i;i:=i+1;End;Writeln(s);end.求两个自然数M、N的最小公

4、倍数Var k,m,n,i:integer;Beginreadln(m,n);K:=m; While k mod n0 doBeginK:=K+m;End;Writeln(k);End.Var k,m,n,i:integer;Beginreadln(m,n);K:=m; i:=1；Writeln(k);End.repeati:=i+1;K:=m*i;Until k mod n=0;求两个自然数M、N的最大公因数Var k,m,n:integer;Beginreadln(m,n);K:=m;While (m mod k0 )or (n mod k0 ) doK:=k-1;Writeln(k);E

5、nd.Var k,m,n:integer;Beginreadln(m,n);K:=m;Writeln(k);End.RepeatK:=k-1;Until (m mod k=0 )and (n mod k=0 ) 写出程序运行结果Var n,a,b,i:integer;Beginreadln(n); readln(a);repeatreadln(b)if ba then a:=b;i:=i+1;Until i=n-1;Writeln(a);End.6458078596048完善程序：查找一个班中考试最高分。Var zrs,cj,zg,i:integer;BeginZg:=0;readln(zrs

6、);repeatreadln(cj)if cjzg then _;i:=i+1;Until _;Writeln(zg);End.Zg:=cji=zrs多重循环Var i,j:integer;BeginFor i:=1 to 5 doFor j:=1 to 3 doWrite(#);end.Var i,j:integer;BeginFor i:=1 to 5 doFor j:=1 to 3 doWrite(#); Writeln;end.多重循环Var i,j,k:integer;Begini:=1; k:=0;While i5 doBeginFor j:=1 to i do K:=k+j;i:

7、=i+1;End;writeln(i,j：4,k：4);End.Var i,j,k:integer;Begini:=1; k:=0;repeatFor j:=1 to i do k:=k+j;i:=i+1;Until i=5;writeln(i,j,k);End.求水仙花数abc=a3+b3+c3Var a,b,c:integer;BeginFor a:=1 to 9 doFor b:=0 to 9 doFor c:=0 to 9 doif then write( )End. a*a*a+b*b*b+c*c*c=a*100+b*10+c*1a*100+b*10+c*1:10Var i,j,k:

8、integer;BeginFor i:=1 to 5 doBeginfor j:=1 to i do write( ); For k:= 1 to 2*(6-i) do write(*);Writeln;End;End.*鸡兔同笼问题：已知头有27个，脚有82支，求鸡和兔的数量Var j ,t :integer;Begin for j:= to do for t:= to do if then writeln(j,t:4);End. 27 1 20(j*2+t*4=82)and(j+t=27)“用百元钱买百只鸡”：3元钱买1只公鸡，2元钱买1只母鸡，1元钱可买3只小鸡。问买了多少只公鸡？多少只

9、母鸡?多少只小鸡?Var g,m,x:integer;BeginFor g:= 1 to 33 do for m:= 1 to 50 do for x:= 1 to 100 do if then writeln(g, ,m, ,x);End.(g*3+m*2+x div 3=100 )and (g+m+x=100)判断某个数是不是质数分析 查找1至n之间因数的个数，如果只有2个，就输出“是质数”1,2,3,4. . n-1,nVar n,i,x:integer;beginreadln(n);for i:= 1 to n do if n mod i=0 then ; if x=2 then wr

10、iteln(n, 是质数);End.x:=x+1输出100以内所有的质数 分析： 双重循环。外循环列举质数的范围。内循环判断是不质数;如果是质数就输出。Var i,j,x:integer;beginFor i:=2 to 100 do for j:= 1 to i do begin if i mod j =0 then x:=x+1 ; if x=2 then ； end;End.write(i:4)X:=0;Beginend;转向（goto）语句 作用：使程序中途转向标号，执行标号后面的语句。 格式： goto 标号 标号说明的格式： lable 标号1，标号2.如:lable one,2,

11、a; 表达的意思：程序中会用到标号one，标号2，标号a。转向（goto）语句举例Lable 1,one;Var x,y:integer;beginreadln(x);If x=2 then goto 1 else y:=x-1;Writeln(y);goto one;1:y:=x+3;Writeln(y);one;End. X+3 x2Lable 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.转向（goto）语句1 3 6 10 15 21 28 362

12、3 4 5 6 7 8 9Lable 1,2,3;Var x,y,z:real;beginreadln(x,y);if xaj then 交换ai和ai的值。97531从键盘上输入5个数，按升序（从小到大）进行排序，并输出结果。Var a:array1.5 of integer;i,j,t:integer;Begin for i:=1 to 5 do _ ; For i:=1 to 4 do for j:= _ to _ doIf aiac; ababc；字符串函数：测量长度： length(s); length(abc)=32、求子串：copy(s,n,m); 从第n位开始，长度为m S:=

13、abcde ; copy (s,2,3)=bcd;3、查找子串：pos(s1,s); 求s1在s中起始位置 s:=this is a pen; s1:=is; pos (s1,s)=3; Pos 谐音：pos机，到pos上打个详单，查找谁把我银行卡里的钱刷光了。联想到查询部分字符在子符串中首次出现的位置。 Pos(s1 ,s);Copy谐音：搓皮，用手指从皮上搓点东西下来，联想到在字符串的某个位置上复制某个长度的子串。Copy (s,n,m);Length谐音：龙死。龙死了，肯定很长，所在length测量字符串的长度。Length(s);复习字符串函数：pos copy lengthVar s

14、,s1,s2:string; t:integer;beginreadln(s1,s2);s:=s1+s2;t:=pos (s2,s);s1:=copy(s,t,5);s:=s2+s1;t:=length(s);Write(t);End.This isAn appleThis isAn apple8An apAn appleAn ap1313字符串过程 插入字符串：insert(s1,s,n); 把s1插到s第n个字符的位置，改变s的值s:=abcd; s1:= 12; insert (s1,s, 3); s=ab12cd 删除过程：delete(s,n,m);删除字符串s中第n位置开始的m个字

15、符,改变s的值S:=abcde; delete(s,2,3); s=ae复习字符串过程：delete,insert delete 谐音：堆了特别多的e，要删除一些。所以delete的作用是从字符串中的n个字符位置开始删除m个字符。Delete(s,n,m); insert 谐音：用（东西）塞在人的嘴里，特别难受。所以insert 的作用是将字符串，插入另一个字符串的某个位置。insert(s1,s,n);Var s,s1:string; t:integer;beginreadln(s);t:=length(s) div 2+2;s1:=Copy(s,t,4);insert(s1,s,1);de

16、lete(s,t,4);Writeln(s);end.Thank you very much11Very VeryThank you very muchveryThank very muchveryThank very much子符串可以看做数组Var s:string; i,x:integer;Beginreadln(s);for i:=length (s) downto 1 doWrite(si);Writeln;For i:=1 to length(s) doif si=y then x:=x+1;Writeln(x);End;Thank you very muchhcum yrev uoy knahT2输入一段英文，以？结束，分别统计其中字母e、l出现的次数。Var a:array1.500 of string; n:char; j, len, l,e:integer;beginread(n);While n? dobegin len:=len+1; alen:=n; read(n); end;For j:=1 to len dobegin if aj=e then e:=e+1; if aj=l then l:=l+1; end;Writeln( e=,e