Freepascal入門培訓(xùn)

1、三齊王點兵：三三數(shù)余a，五數(shù)余b，七七數(shù)余c，求士兵總?cè)藬?shù)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.求兩個自然數(shù)M、N的最小公倍數(shù)分析：設(shè)k為最小公倍數(shù)，先讓k取m值的1倍，當(dāng)k不能整除n時，再讓k取m值的兩倍、三倍.直到k能整除n。這時，k就是m和n的最小公倍數(shù)。kmn12129624364896求兩個自然數(shù)M、N的最小公倍數(shù)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.求兩個自然數(shù)m和n的最大公因數(shù)分析：設(shè)k為最大公因數(shù)，先讓k取m的值,當(dāng)k不能同時被m和n整除時，讓k每次減少1，直到k能同時被m和n整除。這時，k就是m和n的最大公因數(shù)。kmn6645432求兩個自然數(shù)M、N的最大公因數(shù)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.直到型循環(huán)（repeat）語句格式：repeat語句1; 語句2；:語句n；Until 布爾表達(dá)式值為真;求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.求兩個自然數(shù)M、N的最小公

4、倍數(shù)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;求兩個自然數(shù)M、N的最大公因數(shù)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 ) 寫出程序運(yùn)行結(jié)果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多重循環(huán)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.多重循環(huán)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.求水仙花數(shù)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支，求雞和兔的數(shù)量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)判斷某個數(shù)是不是質(zhì)數(shù)分析 查找1至n之間因數(shù)的個數(shù)，如果只有2個，就輸出“是質(zhì)數(shù)”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, 是質(zhì)數(shù));End.x:=x+1輸出100以內(nèi)所有的質(zhì)數(shù) 分析： 雙重循環(huán)。外循環(huán)列舉質(zhì)數(shù)的范圍。內(nèi)循環(huán)判斷是不質(zhì)數(shù);如果是質(zhì)數(shù)就輸出。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;轉(zhuǎn)向（goto）語句 作用：使程序中途轉(zhuǎn)向標(biāo)號，執(zhí)行標(biāo)號后面的語句。 格式： goto 標(biāo)號 標(biāo)號說明的格式： lable 標(biāo)號1，標(biāo)號2.如:lable one,2,

11、a; 表達(dá)的意思：程序中會用到標(biāo)號one，標(biāo)號2，標(biāo)號a。轉(zhuǎn)向（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.轉(zhuǎn)向（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個數(shù)，按升序（從小到大）進(jìn)行排序，并輸出結(jié)果。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；字符串函數(shù)：測量長度： 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機(jī)，到pos上打個詳單，查找誰把我銀行卡里的錢刷光了。聯(lián)想到查詢部分字符在子符串中首次出現(xiàn)的位置。 Pos(s1 ,s);Copy諧音：搓皮，用手指從皮上搓點東西下來，聯(lián)想到在字符串的某個位置上復(fù)制某個長度的子串。Copy (s,n,m);Length諧音：龍死。龍死了，肯定很長，所在length測量字符串的長度。Length(s);復(fù)習(xí)字符串函數(shù)：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復(fù)習(xí)字符串過程：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子符串可以看做數(shù)組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輸入一段英文，以？結(jié)束，分別統(tǒng)計其中字母e、l出現(xiàn)的次數(shù)。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