数学建模社区-数学中国

标题: 画图，学用rectangle画方形。参考. [打印本页]
作者: solucky    时间: 2004-6-6 18:57
标题: 画图，学用rectangle画方形。参考.
<>程序分析：利用for循环控制100-999个数，每个数分解出个位，十位，百位。/ t: a- r" o8 C; R3 q% Y: `
</P># }/ f0 J9 W3 Y5 r
<>#include "graphics.h"$ z) d7 i* a8 v' S! n
main()
! X9 ?; W+ A0 x  F+ q{int x0,y0,y1,x1,driver,mode,i;% ]+ g1 j" H$ {
driver=VGA;mode=VGAHI;! K$ u% k4 R5 k/ h
initgraph(&amp;driver,&amp;mode,"");
( o! ]7 t* t. D2 z3 u7 Vsetbkcolor(YELLOW);' w. o5 M0 [* z1 b% w" m) s5 i
x0=263;y0=263;y1=275;x1=275;
: P: L/ g7 k& [: o4 e( m# ^4 D' tfor(i=0;i&lt;=18;i++)
( d3 o0 T# i8 l- ~{" l0 y0 H- L" y! n6 u
setcolor(1);1 [+ C/ ?! N6 g9 N: d
rectangle(x0,y0,x1,y1);2 _9 \! P+ x0 y/ o0 M8 C2 w6 h
x0=x0-5;5 x4 ~4 u. _# C, t' w
y0=y0-5;
5 W; q9 A: @* x) |x1=x1+5;* Z0 y9 @: \. m9 V; d) {, K! f
y1=y1+5;3 f% p6 N( k# ~' z  l% R
}
, Z1 ~2 b2 f% g# O# j! g5 dsettextstyle(DEFAULT_FONT,HORIZ_DIR,2);
  Z0 d& {3 G0 @' E9 L) W% Q  vouttextxy(150,40,"How beautiful it is!");3 J7 e6 X# ~! ]: ~9 D1 t+ ]- [6 H1 P
line(130,60,480,60);; h/ e$ z, J5 ?2 |6 m
setcolor(2);, w$ t/ J% Z3 F! h/ o* J& H5 N
circle(269,269,137);! M# }7 P6 u. z" t( i% J  f
getch() ;</P>/ u! K8 d: e9 I4 \4 w& n
<>}</P>+ [+ X" [& l0 w4 n. Z" F: u
<>欢迎大家多多发帖呀！</P>
4 S7 O- C9 f! z0 H  e
[此贴子已经被作者于2004-6-6 19:02:29编辑过]
作者: pride    时间: 2004-6-7 12:29
<>有关图形的，在Win-tc运行总是出现如下的错误：</P><>Graphics not initialized (use 'initgraph') </P><>请问该如何解决</P>
作者: solucky    时间: 2004-6-7 18:51
<>可以呀！</P><>我也是用Win-tc下运行呀</P><>你是不是拷错了，可以运行的。</P>
作者: pride    时间: 2004-6-8 19:35
<>编译是成功的，问题是图象出不来，总是提示</P><>Graphics not initialized (use 'initgraph') </P>
作者: Matrix_windy    时间: 2004-6-8 23:05
<>我看看!!</P>



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5