顺序结构精选练习题（题目）

顺序结构精选练习题:

1. 小明的妈妈给小明100元钱，让他去文具商店买他自己所需要的文具，他买了10元1支的钢笔2支，花5元买了一瓶蓝色墨水，批发了23元的作业本，最后，走的时候又买了1支1元的冰糕吃着走了，现在问小明最后还剩多少钱？ 提示： program k204; var

s,a,b:integer; begin

b:= ; a:=10*2+5+23+1; s:= ; writeln(s); end.

2：试编一程序,输入一梯形的上底、下底、高, 求该梯形的面积。

3：某仓库5月1日有粮食100吨，5月2日又调进20吨，5月3日卖出库存的3分之二，5月4日又调进库存的3倍粮食，问该仓库从5月1日到5月4日期间每天的粮食分别是多少吨？(输出每天的库存量)

4：有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？

5：某幼儿园里，有5个小朋友编号为1、2、3、4、5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果，现在他们做一个分糖果游戏。从1号小朋友开始，将他的糖果均分三份（如果有多余的，则他将多余的糖果吃掉），自己留一份，其余两份分给他的相邻的两个小朋友。接着2号、3号、4号、5号小朋友也这如果做。问一轮后，每个小朋友手上分别有多少糖果？

顺序结构精选练习题:( 参考答案)

1. 小明的妈妈给小明100元钱，让他去文具商店买他自己所需要的文具，他买了10元1支的钢笔2支，花5元买了一瓶蓝色墨水，批发了23元的作业本，最后，走的时候又买了1支1元的冰糕吃着走了，现在问小明最后还剩多少钱？ 提示： program k204; var

s,a,b:integer; begin

b:= 100 ; a:=10*2+5+23+1; s:= b-a ; writeln(s); end.

2：试编一程序,输入一梯形的上底、下底、高, 求该梯形的面积。

分析：整个程序分为三段:输入、计算、输出。程序中用a,b,h三个变量分别存放梯形的上、下底与高，S存放面积；要而使用这些变量都要先说明，程序的执行部分中先输入上、下底与高，接着求面积S，最后输出结果S 源程序如下：

program Tixing; {程序首部} var

a,b,h,s:real; {程序说明部分} begin

write('Input a,b,h:'); readln(a,b,h); {程序执行部分} s:=(a+b)*h/2; write('s=',s:10:3); end.

3：某仓库5月1日有粮食100吨，5月2日又调进20吨，5月3日卖出库存的3分之二，5月4日又调进库存的3倍粮食，问该仓库从5月1日到5月4日期间每天的粮食分别是多少吨？(输出每天的库存量)

分析：在这个问题中，主要要描述从5月1日到5月4日期间仓库的粮食库存量，且易知它是不断变化的。因此我们可以用一个变量A来描述仓库的粮食库存量 程序可写如下： Program ex1; Var

A : integer; Begin A:=100;

Writeln('5/1:',A); A:=A+20;

Writeln('5/2:',A); A:=A div 3; writeln('5/3:',A); A:=A *4;

writeln('5/4:',A); Readln; End.

4：有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？ 分析：这个问题中我们关心的是在游戏过程中每个小朋友的糖果个数，且他们所拥有的糖果数是在变化的。因此可用a,b,c三个变量分别存放甲乙丙三个小朋友在某一时刻所拥有的糖果数。对于每人，分糖后，他的糖果数一定为原来的糖果数 div 3（因为分糖过程糖果的数目不一定都刚好分完，用整除恰恰可以表示多余的糖自己吃掉）。而其他两人则增加与这个小朋友现在拥有的一样的糖果。 程序可写如下： program ex2; var

A,B,C:integer; begin

A:=50;B:=43;C:=13; {初始时每个小朋友所拥有的糖果数}

A:=A div 3; B:=B+A;C:=C+A;{甲小朋友分糖果后，每个人拥有的糖果数变化情况} B:=B div 3; A:=A+B;C:=C+B; {乙小朋友分糖果后，每个人拥有的糖果数变化情况} C:=C div 3; A:=A+C;B:=B+C; {丙小朋友分糖果后，每个人拥有的糖果数变化情况}

writeln('A=',A,'B=',B,'C=',C); {输出结果} readln; end.

注：上程序中倒数第三行中'A='表示一个字符串（即用一对单引号括起来的一串字符），对于字符串，输出字符串的内容（即引号内的所得字符，而引号不输出）。 以上程序的运行结果为： A=51B=35C=16

5：某幼儿园里，有5个小朋友编号为1、2、3、4、5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果，现在他们做一个分糖果游戏。从1号小朋友开始，将他的糖果均分三份（如果有多余的，则他将多余的糖果吃掉），自己留一份，其余两份分给他的相邻的两个小朋友。接着2号、3号、4号、5号小朋友也这如果做。问一轮后，每个小朋友手上分别有多少糖果？

分析：这道问题与第二课中的例2基本一样，只不过这里有5位小朋友，且他们初始时糖果的数目不确定。这里用a,b,c,d,e分别存放5个小朋友的糖果。初始时它们的值改为由键盘输入。其它都与第二课中的例2类似。 参考程序如下: program fentang; var

a,b,c,d,e:integer; begin

write('Please Enter init numbers ');readln(a,b,c,d,e);

a:=a div 3;b:=b+a;e:=e+a;{1号均分后，1、2、5号的糖果数变化情况} b:=b div 3;c:=c+b;a:=a+b;{2号均分后，1、2、3号的糖果数变化情况} c:=c div 3;b:=b+c;d:=d+c;{3号均分后，2、3、4号的糖果数变化情况} d:=d div 3;c:=c+d;e:=e+d;{4号均分后，3、4、5号的糖果数变化情况} e:=e div 3;d:=d+e;a:=a+e;{5号均分后，4、5、1号的糖果数变化情况} {输出结果} writeln('a=',a); writeln('b=',b); writeln('c=',c); writeln('d=',d); writeln('e=',e); readln;｛暂停｝

end.

本文来源：https://www.bwwdw.com/article/z8lv.html