< >程序分析:利用for循环控制100-999个数,每个数分解出个位,十位,百位。
! Y3 s" v7 ^0 V. _( T b</P> r: c+ P7 L$ j: V: {
< >#include "graphics.h"
8 b7 j$ X; T3 W4 L# Xmain()
3 _: P+ ~1 h3 h! K( d! i{int x0,y0,y1,x1,driver,mode,i;
8 B# k/ o/ i Q* Ldriver=VGA;mode=VGAHI;
/ ^0 N0 W; h3 F4 Oinitgraph(&driver,&mode,"");
; \4 _6 }' M# k1 ^. m) f3 Hsetbkcolor(YELLOW);
5 a% [6 V+ J: Vx0=263;y0=263;y1=275;x1=275;! X- C" b5 O6 B5 S% ?4 @
for(i=0;i<=18;i++)
- r, @3 U7 [* A. z: d# O! S{
, k- l! F; }5 x4 lsetcolor(1);/ j3 D3 C2 @7 T0 Z* p* Z
rectangle(x0,y0,x1,y1);! n) E4 C' y) `! X; ~5 I% `8 h
x0=x0-5;) \8 ~7 I( ]& h" {2 k6 f0 u
y0=y0-5;0 J6 n" y1 y- v$ D
x1=x1+5;
' B( t* M& o+ U% @5 x5 My1=y1+5;2 Z2 z3 Z* k1 L* F8 y5 w
}$ a ~7 h' Z$ ]2 V9 y
settextstyle(DEFAULT_FONT,HORIZ_DIR,2);
: R( l9 n0 M: ? douttextxy(150,40,"How beautiful it is!");; q4 O9 f& f$ L# E4 X& l
line(130,60,480,60);
( A$ h# Q% T5 X u2 Y( N6 V2 xsetcolor(2);
* N; }: D0 H% F4 g4 e( f& Y2 dcircle(269,269,137);$ Q9 |" L0 j! |1 Y3 u5 y
getch() ;</P>9 L/ f( p4 B2 v4 B8 N8 ^' q
< >}</P>1 |# L. V1 ]2 B* v. H
< >欢迎大家多多发帖呀!</P>
, [. G6 x7 N8 S/ w1 w# k[此贴子已经被作者于2004-6-6 19:02:29编辑过] |