数学建模社区-数学中国

标题: 画图，学用rectangle画方形。参考. [打印本页]
作者: solucky    时间: 2004-6-6 18:57
标题: 画图，学用rectangle画方形。参考.
<>程序分析：利用for循环控制100-999个数，每个数分解出个位，十位，百位。8 _" O# b  x6 t/ q2 b
</P>1 s% y# Q/ ~  I$ k$ v' w
<>#include "graphics.h"
7 }) q. R4 t0 I* S* J  ^  jmain()
% K% B) p, _% q3 `8 t% M{int x0,y0,y1,x1,driver,mode,i;5 ?: |3 z, }% C9 o
driver=VGA;mode=VGAHI;5 N8 O8 ^4 b( [3 n8 N! }" p- A9 M
initgraph(&amp;driver,&amp;mode,"");% j, }6 H2 k5 N
setbkcolor(YELLOW);! S+ h8 G$ F; l% \
x0=263;y0=263;y1=275;x1=275;
8 k$ E- a; U' T9 Ufor(i=0;i&lt;=18;i++)6 P0 A* J- i) ~' ?* C
{
% }  R7 p3 t8 c, {: `( }setcolor(1);
8 _  ~' A8 b8 Y8 ?$ crectangle(x0,y0,x1,y1);) m, i0 b; A/ n; i3 G9 _( Y: v
x0=x0-5;
( N6 P9 b* }" f$ qy0=y0-5;' ]: X; R/ w0 g( O" V" l' W; |
x1=x1+5;+ o& K' B/ i3 |" U! h8 A
y1=y1+5;4 H! c7 k' k! E7 N9 w& N
}# @/ O1 h, i! O
settextstyle(DEFAULT_FONT,HORIZ_DIR,2);# x  z6 X+ \+ F$ H
outtextxy(150,40,"How beautiful it is!");  E: G) l5 v* B0 K( W9 d
line(130,60,480,60);: R' Q" `6 r6 @1 k
setcolor(2);
+ ^6 c2 r6 @4 X6 h  [8 vcircle(269,269,137);
! g" y0 r' H: V: i$ b6 E  Ggetch() ;</P>
5 o. I) d$ m# e1 O" }6 O<>}</P>
' o  p2 g4 S, Z! g. q+ h<>欢迎大家多多发帖呀！</P>
7 Z' Q' i! V7 s' U9 ?
[此贴子已经被作者于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