楼上的你终于来了！

你两个多月没来了。

你去问那些能用PASCAL编游戏的人吧！

问问斑竹大牛或者游侠UFO大牛....

turbo pascal的应用与开发:
http://hi.baidu.com/wywy/blog/item/d3b250e7f557332eb9382081.html

Turbo Pascal图形编程教程:
http://hi.baidu.com/wywy/blog/item/b38ba96ec4d54dda81cb4a0b.html

graph单元常用函数过程大全:
http://hi.baidu.com/wywy/blog/item/9da4e2cd863ddb510eb34577.html

你来的正是时候， 请看这里:
[url]http://www.programfan.com/club/post-244520.html[/url]

这就是了。给我打分。
program df;
  uses crt,graph;
  var  g1,g2,i,j,r,l,n:integer;

  begin
    writeln('yangchangshijian=');
    readln(n);
    g1:=detect;
    initgraph(g1,g2,'d:\tp\bgi');
    setcolor(green);

          textbackground(green);
    for j:=1  to round(2*100*3.141592653589794) do
      begin
        l:=round(100*(COS(j/20)))+100;
        i:=l;if j<l-200 then r:=j else r:=abs(l-200);
             while (r>0) do
      begin
       ellipse(J+50,L+50,180,360,r,i);
        r:=r-6;
        i:=i+6;
        end;delay(n);
        clrscr;
        end;
        readkey;
    end.
[em1][em1][em1][em1][em1][em1][em1][color=808000][/color][em1][em1][em1][em1]

我只会CRT单元里面的一些东西，用不同颜色的字符来拼出很粗糙的图象。。。。没什么技术含量的。。。