|
|
|
循环结构练习 |
|
一、看程序写结果
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、打印如下图形：
&
& &
& & &
& & &
& & &
& & &
*
* * *
* * * * *
# @
*
# # @ @ * *
# # # @ @ @ * * *
|
|
