循环结构练习

循环结构练习    热      【字体：小大】

循环结构练习

作者：仔仔    文章来源：本站原创    点击数：    更新时间：2006-9-26

循环结构练习

一、看程序写结果

1.

Var

S,I:ingeger;

Begin

S:=0;

For I:=1 to 100 do

If (I mod 3=0)and (I mod 4=0)

Then s:=s+i;

Writeln("s=",s)

End.

output:

2.

Var i:integer;

Begin

for i:=1 to 100 do

if i mod 2=0 then

Begin

write(i:4);

if i mod 5=0 then writeln;

End;

End.

output:

3.

VAR i,j：integer；
BEGIN
FoR i：＝1 TO 5 Do
BEGIN
FoR j：＝5 DOWNT0 i Do
Write("十’)；
Writeln
END
END．

4.

var n,i,a1,a2,a3:integer;
begin
readln(n);a1:=3;a2:=5;
write(a1:8,a2:8);
for i:=3 to n do
begin
a3:=a1+a2;
a1:=a2;
a2:=a3;
write(a3:8)
end;
end.
输入:10
输出:

　
　

5.

VAR i，j, k，sum1，sum2：Integer；
BEGIN
sum1：＝0；
sum2：＝0；
k：＝1；
while k＜＝10 DO
BEGIN
if (k MOD 2＝0)THEN
FOR i：＝1 To 5 D0
sum1：＝sum1十i
ELSE
FOR j：＝1 To 5 D0
sum2：＝sum2十i；
k：＝k十1；
END；
writeln(suml，sum2)
END．

　

6.

VAR n：Integer；
b，t：Real；
BEGIN
t：＝1；b：＝1；n：＝2；
REPEAT
b：＝b*n；
t：＝t十b；
n：＝n十1
UNTIL n＞8;
Writeln(t:3:0)
END．

二、编写程序

1、累加1到100；(for)

2、输入判错；(while,repeat)

3、求两个数a，b的最小公倍数和最大公约数；(while)

4、求水仙花数；所谓水仙花数，是指一个三位数abc，如果满足a^3+b^3+c^3=abc，则abc是水仙花数。(for, while)

1.输出20个“*”号。

2.输出100以内的偶数。

3.输出100以内能够被5整除余1的自然数。

4.根据输入的自然数n求1+1/2+1/3+1/4+…+1/n的和。

5.任意给定一个小数a，编程求不小于它的最小整数与不大于它的最大整数之和

6.编程将1-1000之间(含1000)所有能被7整除的数累加并输出结果.

7.编一个程序，将任意一个两位正整数平方后，取其百位数和十位数，构成一个新的两位整数。

8.*编程计算下列问题：有一天小猴摘下了若干个桃子，当即吃掉了一半，还觉不过瘾，又多吃了一个；第二天接着吃了剩下的桃子中的一半，仍不过瘾，又多吃了一个；以后每天都吃尚存桃子的一半零一个。到第N天早上吃完后就只剩下—个了，问小猴那天共摘下了多少个桃子?(1≤N≤30)

9.*编程实现输入一个字母，输出一个菱形。该菱形中间一行由此字母组成，其相邻的上下两行由它前面的一个字母组成，按此规律，直到字母A出现在第一行和最末行为止。
例如：输入字母D，输出如下：
A
B B B
C C C C C
D D D D D D D
C C C C C
B B B
A

10、打印如下图形：

&
& &
& & &

& & &
& & &
& & &

*
* * *
* * * * *

#         @     *
# #     @ @   * *
# # # @ @ @ * * *

文章录入：qinjun    责任编辑：qinjun

上一篇文章：数组练习

下一篇文章：分支结构练习

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

      最新热点       最新推荐       相关文章

没有相关文章

　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）