编程 free pascal

回答即可得2分经验值第三章 循环程序
在编程中经常遇到需要多次规律相同的重复处理，这就是循环问题。Turbo Pascal采用不同的循环方式来实现，常用的环循有三种: for、repeat、while.

第一节 for 循环
for循环是一种自动计数型循环。

[例3.1] 试打印出1~20的自然数。

解：① 用a代表1~20各数，同时也用a兼作计数，以控制循环次数；

② 让a从1开始；

③ 输出a；

④ a自动计数（加1），如果未超越所规定的循环范围则重复步骤③，否则结束循环。

Pascal程序:

Program Exam12；

Var a: byte；

Begin

for a:=1 to 20 do

Writeln (a)；

Readln

End.

程序中 for a:=1 to 20 do Writeln (a)； 是for循环语句。

for 循环语句有两种格式:

(1) for 循环变量:=初值 To 终值 do 语句；

(2) for 循环变量:=初值 downto 终值 do 语句；

第(1)种格式的初值小于等于终值，循环变量值按自动加1递增变化；

第(2)种格式的初值大于或等于终值，循环变量值按自动减1递减变化。for 循环是 (以递增1或以递减1) 计数型循环。

比如: 若将[例3.1]程序改为倒计数(递减)循环，则输出20～1的自然数数:

Program Exam31；

Var a: byte；

Begin

for a:=20 downto 1 do

Writeln(a) ；

Readln

End.

[例3.2]打印出30至60的偶数。]

解：

方法一：

= 1 \* GB3 ①设a表示30至60的所有的数，可用for循环列出；

= 2 \* GB3 ②用式子 a mod 2=0 筛选出其中的偶数并输出。

Pascal程序：

Program ex32;

Var a : integer;

Begin

For a := 30 to 60 do

If (a mod 2=0) then writeln(a);

Readln;

End.

在这个程序中，for循环后的循环语句是一个条件分支语句。

方法二：我们知道，在式子a=2*n中，若n取自然数1、2、3、…，时，则a依次得到偶数2、4、6、…。因此要想得到30至60的偶数，就可以让上面式子中的n取15至30的自然数就可以了。所以本题还可以按以下步骤处理：

= 1 \* GB3 ①设n表示15至30的所有自然数，可用for循环列出；

= 2 \* GB3 ②用式子 a := 2*n 求出其中的偶数；

= 3 \* GB3 ③将结果输出至屏幕。

Pascal程序：

Program ex32;

Begin

For n := 15 to 30 do

Begin

a := 2*n;

Writeln(a);

End;

Readln;

End.

[例3.3]自然数求和：编一个程序，求从1至100的自然数的和。

解：① 令S＝0；

② 令a表示1至100的自然数，用循环列出；

③ 将这些自然数用公式S:=S+a 逐一累加到S中去；

= 4 \* GB3 ④ 循环结束后，S即为1至100的自然数的和，输出即可。

Pascal程序：

Program ex33;

var s,a : integer;

Begin

S := 0;

For a := 1 to 100 do

S := S+a;

Writeln(‘S=’,S);

Readln;

End.

[例3.4]一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x大36，请编程求出所有这样的两位数。

解：① 用for循环列举出所有的两位数，x为循环变量；

② 用公式a:= x div 10分离出x的十位数字；

③ 用公式b:= x mod 10分离出x的个位数字；

④ 用公式y:= b*10+a合成新数y；

= 5 \* GB3 ⑤ 用式子y-x=36筛选出符合条件的数x并输出。

Pascal程序：

Program ex34;

Begin

For x := 10 to 99 do

Begin

a := x div 10;

b := x mod 10;

y := b*10+a;

if y-x=36 then writeln(x);

End;

Readln;

End.

[例3.5] 把整数3025从中剪开分为30和25两个数，此时再将这两数之和平方，(30+25)2=3025计算结果又等于原数。求所有符合这样条件的四位数。

解:设符合条件的四位数为N，它应当是一个完全平方数，用(a*a)表示。

① 为了确保N=(a*a)在四位数（1000～9999）范围内，可确定a在32～99循环；

② 计算N=a*a；将四位数N拆分为两个数n1和n2；

③ 若满足条件(n1+n2)*(n1+n2)＝N 就输出 N 。

Pascal程序:

Program Exam35；

Var N，a， x，n1，n2: Integer；

Begin

for a:=32 to 99 do

begin

N:=a*a；

n1:= N div 100； ｛拆取四位数的前两位数｝

n2:= N-n1*100； ｛拆取四位数的后两位数｝

X:=n1+n2；

if x*x=N then writeln (N)；

end；

Readln

End.

[例3.6]用“*”号打印出如下的长方形图案。

*********

*********

*********

*********

解：① 上面给出的图例共有4行，我们可以用一个循环控制行的变化；

② 在每行中又有9列，我们可以在前面控制行的循环中再套一个循环来控制列的变化。

Pascal程序：

Program ex36;

Begin

For a := 1 to 4 do

Begin

For b := 1 to 9 do

write(‘*’);

Writeln;

End;

Readln;

End.

程序中的循环对于a的每个值都包含着一个b=(1～9)次的内循环。外循环for a 将内循环for b 包含在里面，称为for循环的嵌套。嵌套形式如:

for a:=n1 to n2 do

for b:=m1 to m2 do 循环体语句；

[例3.7] 打印出九九乘法表:

解:设a为被乘数，范围为1～9；b为乘数，范围为1～a；乘式为a*b=(a,b的乘积)，则

a=1: b=1～a 1*1=1

a=2: b=1～a 2*1=2 2*2=4

a=3: b=1～a 3*1=3 3*2=6 3*3=9

a=4: b=1～a 4*1=4 4*2=8 4*3=13 4*4=16

： ：

a=9 b=1～a 9*1=9 9*2=18 … 9*9=81

⑴从上面分解的横行中看到共有9行，这里的“行”数变化与a的变化从1～9相同，可用a控制“行”的循环；

⑵每“行”里面相乘的次数与b的范围相关，由b控制每“行”里面的“内部”循环；

⑶内循环被包含在最里层，执行完每“行”的内部循环，就到下一“行”去执行新“行”里面的循环，每“行”都拥有形式相同的（ b=1～a ）内循环。

即每到一“行”都要执行该“行”的内循环。这里所指的“行”可以理解成抽象的行，不一定是实际上具体对应的行，可以是一个处理“块”。

Pascal程序:

Program Exam37；

Var a，b: byte；

Begin

for a:=1 to 9 do

begin

for b:=1 to a do

write(a，’* ’，b，’= ’，a*b，’ ’:3)；

writeln

end；

Readln

End.

根据这种格式还可以实现多层循环嵌套,例如：

for a:=n1 to n2 do

for b:=m1 to m2 do

for c:=k1 to k2 do 循环体语句；

[例3.8]从七张扑克牌中任取三张，有几种组合方法？请编程输出所有组合形式。

解：设每次取出三张分别为a,b,c。用三重循环分别从1～7的范围里取值；为了排除取到重号，用(a-b)*(b-c)*(a-c) < >0进行判断。

Pascal程序：

program Exam38;

const n=7;

var a,b,c,t: integer;

Begin

t:=0;

for a:=1 to n do

for b:=1 to n do

for c:=1 to n do

if (a-b) * (b-c) * (a-c) < >0 then

Begin

inc (t);

writeln (a:3, b:3, c:3)

End;

writeln ( total:, t :5);

readln

End.

[例3.9] 数学上把除了1和它本身，没有别的数能够整除它的自然数叫做素数(或质数)。现在由键盘输入一个自然数N，编程判断N是否是素数，是则输出“Yes”，否则输出“No”。

解：根据定义，对于给定的自然数N，只需判断除1和它本身外，还有没有第三个自然数即可。

① 令K从1循环至N；

② 根据N mod K是否为0可统计K的约数的个数；

③ 若N的约数的个数超过2个，则判定N不是素数。

Pascal程序:

Program Exam39；

Var n，m，k，t: integer；

Begin

write(‘N=’);

ReadLn(N);

t:=0；

for k:=1 to N do

if N mod k=0 then t := t+1;

if t>2 then writeln(‘No’)

else writeln(‘Yes’);

Readln;

End.

程序中的变量yse为布尔(或逻辑)类型(Boolean)。布尔值只有两个：

True(真) False(假)

布尔值与条件判断结果为真(条件成立)或为假(条件不成立)的作用相同，常用于条件语句和循环语句中。

上面程序中用 if yes and (t mod 7=0) then writeln；实现每行打印七个素数换行，程序中布尔变量yes为真，在逻辑上表示是素数；关系式（t mod 7=0) 的值为真时，表示该行输出素数巳是7个；用and将这两个“条件”连起来是作一种布尔(逻辑)运算。

Pascal 共有四种逻辑运算符：

① and (与) 两条件都为True时，其结果值为True；否则为False；

② or (或) 两条件中只要有一个为True ；其结果值为True；否则为False；

③ xor (异或) 两条件的逻辑值不相同时，其结果值为True；否则为False；

④ not (非) 条件为True时，其结果值为False；否则为True；(取反)

习题3.1:

1.打印出1至20的平方数表。

2.打印出100至200之间的奇数。

3. 鸡兔同笼(用for循环程序完成)

4.一辆快车和一辆慢车开往同一地点，快车票价为18元，慢车票价为13. 5元，共售出400张，共计5940元，求快车票和慢车票各多少张?.

5.求出能被5整除的所有四位数的和。

6.在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。

□3*6528=3□*8256

7.有一个三位数，它的各位数字之和的11倍恰好等于它自身，请编程求出这个三位数。

8.在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。如:153=13+53+33，所以153是一个水仙花数。求所有的水仙花数。

9.编程序打印出下列图案：

平行四边形 等腰三解形 菱形

****** * *

****** *** ***

****** ***** *****

****** ******* ***

****** ********* *

10.编程打印出如下图案：

1

222

33333

4444444

555555555

11.有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元； 第三种每套9张，售价2元。现用100元钱要买100张明信片，要求每种明信片至少要买一套，问三种明信片应各买几套？请输出全部购买方案。

12.某人想把一元钱换成伍分、贰分、壹分这样的零钱， 在这三种零钱中每种零钱都至少各有一个的情况下，共有多少种兑换方案。并打出这些方案。

13.

14. 输出100 以内的全部素数，要求每行显示5 个。

15.A、B两个自然数的和、差、积、商四个数加起来等于243，求A、B两数。

16.百钱买百鸡：今有钱100元，要买100只鸡，公鸡3元一只，母鸡1元一只，小鸡1元3只，若公鸡、母鸡和小鸡都至少要买1只，请编程求出恰好用完100元钱的所有的买鸡方案。

，回答被采纳可同步增加经验值和财富值

var
a:array[1..5,0..5]of byte;{a[x,y]表示第x个人在第y次变化后的糖数}
i,j:byte;
begin
for i:=1 to 5 do a[i,5]:=32;
for i:=4 downto 0 do
begin
for j:=1 to 5 do
a[j,i]:=a[j,i]div 2;
a[i+1,i]:=a[i+1,i+1];
for j:=1 to 5 do
if j<>i then inc(a[i+1,i],a[j,i]);
end;
for i:=1 to 5do write(a[i,0]:3);
end.

递推。用数组储存五人的糖数，然后设置一个分糖函数，按题目运行分糖函数即可
Type
a:array[1..5]of integer;
Var
i:integer;
Procedure haha;
Var
j:integer;
Begin
For j:=1 to 5 do
If j<>i then
a[i]:=a[i]-a[j];
For j:=1 to 5 do
If j<>i then
a[j]:=a[j]*2;
End;
Begin
For i:=5 downto 1 do
haha;
For i:=1 to 5 do
Write(a[i],' ');
End.

procedure zuo;
begin
a[5]:=32; a[1]:=32; a[2]:=32; a[3]:=32; a[4]:=32;
for i:=5 downto 1 do
for j:=1 to 5 do
if j<>i do begin a[j]:=a[j] div 2; a[i]:=a[j]+a[i]; end;
for i:=1 to 5 do
writeln(i,':',a[i]);
end;