Free pascal入门培训.ppt

三齐王点兵：三三数余a，五数余b，七七数余c，求士兵总人数n。 Var a,b,c:integer; begin readln(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的最小公倍数。 求两个自然数M、N的最小公倍数 Var k,m,n,i:integer; Begin readln(m,n); K:=m; i:=1; While k mod n0 do Begin i:=i+1; K:=m*i; End; Writeln(k); End. 求两个自然数m和n的最大公因数 求两个自然数M、N的最大公因数 直到型循环（repeat）语句 格式： repeat 语句1; 语句2； : 语句n； Until 布尔表达式值为真; 求s=1+2+3+..+100 Var i,s:integer; begin i:=1;s:=0; Repeat S:=s+i; i:=i+1; Until i100; Writeln(s); end. 求两个自然数M、N的最小公倍数 Var k,m,n,i:integer; Begin readln(m,n); K:=m; While k mod n0 do Begin K:=K+m; End; Writeln(k); End. 求两个自然数M、N的最大公因数 写出程序运行结果 Var n,a,b,i:integer; Begin readln(n); readln(a); repeat readln(b) if ba then a:=b; i:=i+1; Until i=n-1; Writeln(a); End. 完善程序：查找一个班中考试最高分。 Var zrs,cj,zg,i:integer; Begin Zg:=0; readln(zrs); repeat readln(cj) if cjzg then _________; i:=i+1; Until _______; Writeln(zg); End. 多重循环 Var i,j:integer; Begin ①For i:=1 to 5 do ②For j:=1 to 3 do Write(‘#’); end. 多重循环 Var i,j,k:integer; Begin i:=1; k:=0; While i5 do Begin ①For j:=1 to i do K:=k+j; ②i:=i+1; End; writeln(i,j：4,k：4); End. 求水仙花数abc=a3+b3+c3 Var a,b,c:integer; Begin For a:=1 to 9 do For b:=0 to 9 do For c:=0 to 9 do if then write( ) End. Var i,j,k:integer; Begin For i:=1 to 5 do Begin ①for 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. “用百元钱买百只鸡”：3元钱买1只公鸡，2元钱买1只母鸡，1元钱可买3只小鸡。问买了多少只公鸡？多少只母鸡?多少只小鸡? Var g,m,x:integer; Begin For g:= 1 to 33 do for m:= 1 to 50 do for x:= 1 to 100 do if