数学建模社区-数学中国

标题: 画图,学用rectangle画方形。参考. [打印本页]

作者: solucky    时间: 2004-6-6 18:57
标题: 画图,学用rectangle画方形。参考.
<>程序分析:利用for循环控制100-999个数,每个数分解出个位,十位,百位。
+ f' `9 c+ G. ?5 A; P- @</P>/ O( w, e( O$ c
<>#include "graphics.h"* Y" E) \, R- r( U
main()  n; c4 g6 D, s
{int x0,y0,y1,x1,driver,mode,i;
- o( v! H  |, j! @/ `* Zdriver=VGA;mode=VGAHI;* ^- R9 D5 O3 q; d5 {
initgraph(&amp;driver,&amp;mode,"");
* W3 H* w- `7 |; Q. h3 \# ^- hsetbkcolor(YELLOW);/ U/ R; ~, W. `- [$ u
x0=263;y0=263;y1=275;x1=275;; q0 ^$ g9 }% N3 N
for(i=0;i&lt;=18;i++)
% s6 r9 j- c, A3 X! R{4 ?" S9 N1 {$ V/ w
setcolor(1);7 w* J6 C9 |( O7 D1 w7 @+ X; u
rectangle(x0,y0,x1,y1);
3 x& q0 `4 h7 D$ D- {x0=x0-5;3 u+ R1 \, t5 u  B+ [; ]
y0=y0-5;
) B2 q* W' H$ E0 {; a& [x1=x1+5;
* t" F+ h9 P: B  ^+ W) Ay1=y1+5;
$ l! i' z; ?. S* O. C/ s  k7 G}
7 @1 V/ C* \/ A* Csettextstyle(DEFAULT_FONT,HORIZ_DIR,2);- h) T3 F1 y' p' B9 {" U8 F" y# Q
outtextxy(150,40,"How beautiful it is!");6 O; J7 L, T$ _5 D9 [( D
line(130,60,480,60);, M4 {9 s" ~+ C# W
setcolor(2);
( T, q; h( x  f: u! J2 ]5 ycircle(269,269,137);
7 v8 v1 ?9 X1 k, zgetch() ;</P>
$ \( m8 j; Q" p4 \) Y8 N8 D2 H6 [- V<>}</P>5 ^1 x7 g. H0 Z  J6 F
<>欢迎大家多多发帖呀!</P>6 \. b* |! m7 V7 Z
[此贴子已经被作者于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