- 在线时间
- 0 小时
- 最后登录
- 2006-3-12
- 注册时间
- 2004-5-30
- 听众数
- 1
- 收听数
- 0
- 能力
- 0 分
- 体力
- 262 点
- 威望
- 0 点
- 阅读权限
- 30
- 积分
- 109
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 27
- 主题
- 17
- 精华
- 1
- 分享
- 0
- 好友
- 0
升级   4.5% 该用户从未签到
 |
< >程序分析:利用for循环控制100-999个数,每个数分解出个位,十位,百位。7 [- w. D; a0 d! v4 x" k9 f- v
</P>
+ x7 @9 O; y0 ]* ]1 e; m3 I0 u< >#include "graphics.h"% C& B% A/ S% l* t- e
main()
$ N( p- R) ]7 j2 l{int x0,y0,y1,x1,driver,mode,i;5 n5 N& k; ?4 C( |+ ~
driver=VGA;mode=VGAHI;
" P( ]# B; n6 }$ L; Dinitgraph(&driver,&mode,"");% W+ R! S) D: N0 C
setbkcolor(YELLOW);
; z/ f2 a6 g$ {/ n } cx0=263;y0=263;y1=275;x1=275;
+ d4 q8 J# L* j& Mfor(i=0;i<=18;i++), ]& q K N( G) q' M1 K
{
0 Q7 N4 f& T$ csetcolor(1);0 b% y9 _& F& S
rectangle(x0,y0,x1,y1);
1 c# F# D* }( E \x0=x0-5;
+ C' m( Q( l! C9 my0=y0-5;
( Y' Q! F W8 J/ l) r! [# `x1=x1+5;
) d- N6 _: q) Ay1=y1+5;6 V2 y' y4 }+ p: w1 i8 x6 m
}
, A$ D. H' l, r7 y" ?$ _settextstyle(DEFAULT_FONT,HORIZ_DIR,2);
' E7 p7 S) C0 ^+ V' U0 Fouttextxy(150,40,"How beautiful it is!"); P1 t2 V* o) _" ^6 F
line(130,60,480,60);' z( I& i: L/ D
setcolor(2);8 H: C2 c- E+ \, O n
circle(269,269,137);
- D, b9 J" A9 `. c) F. Bgetch() ;</P>5 l9 F- n7 g) e7 p1 p
< >}</P>" _* ^" }; z/ c2 A1 C# O
< >欢迎大家多多发帖呀!</P>0 R& g. _& C! p. S) G
[此贴子已经被作者于2004-6-6 19:02:29编辑过] |
zan
|