数学建模社区-数学中国

标题: 画图，学用rectangle画方形。参考. [打印本页]
作者: solucky    时间: 2004-6-6 18:57
标题: 画图，学用rectangle画方形。参考.
<>程序分析：利用for循环控制100-999个数，每个数分解出个位，十位，百位。
1 f4 l. \/ f$ l* |/ Y! n( ]</P>
! A/ ?* q$ F. k" }<>#include "graphics.h"
# p- [. G8 J$ D" ?# J8 jmain()
' g' f2 H+ i8 c& r{int x0,y0,y1,x1,driver,mode,i;$ T3 E# b# Z  f: T4 O! _9 F/ e
driver=VGA;mode=VGAHI;- G1 f  z" b3 i' I; q$ N9 f
initgraph(&amp;driver,&amp;mode,"");. B: H9 f- H( M" s* j! w- e$ v' X
setbkcolor(YELLOW);+ [, ^8 x6 f% W1 m. _; V$ P
x0=263;y0=263;y1=275;x1=275;
: a, c* T8 U( O+ Q, bfor(i=0;i&lt;=18;i++)0 Q5 D8 K0 S3 H# K+ X% D. n9 T( `
{
8 U2 |& u$ i( I8 k) |; qsetcolor(1);& C+ o3 }/ X' }8 ^6 T) @0 H
rectangle(x0,y0,x1,y1);
' Y$ m4 H2 ]) dx0=x0-5;/ D; W9 S- z- V2 I& ^: T8 ]
y0=y0-5;
3 S( w- Q: W/ y' d" Fx1=x1+5;
. E7 @; ^4 ]3 R9 M9 [! A3 my1=y1+5;
$ ]4 d! F: k+ x: Y; y}9 I9 V: M. i5 ~' e( V; b# n
settextstyle(DEFAULT_FONT,HORIZ_DIR,2);
2 Q3 s0 X; A& `/ p( l. Z2 ?5 Mouttextxy(150,40,"How beautiful it is!");
0 |/ ^( V8 ^$ u+ N! f$ Y% Yline(130,60,480,60);
' X$ g+ w  |, k* isetcolor(2);
3 ?  V& e- a9 P* ]1 G( }! jcircle(269,269,137);1 S, g: c3 ^5 ]* S9 p2 X8 r0 _  h
getch() ;</P>
  X9 ~8 O( X6 q+ X* x<>}</P>
$ a# ~9 C/ a2 e% z1 U; L1 O: e1 p7 x<>欢迎大家多多发帖呀！</P>  n/ K, }0 a' @3 d. o2 C
[此贴子已经被作者于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