编程C,C ++,Java,PHP,Ruby,图灵,VB
计算机科学加拿大 
编程C,C ++,Java,PHP,Ruby,图灵,VB  

用户名:   Password: 
 登记登记   
 图灵比赛255chr max - 更换为20线max
指数 -> 竞赛
转到页面 以前的  1, 2, 3, 4, 5  下一页
查看上一个主题 可打印的版本下载主题订阅本主题私人信息刷新页面 查看下一个主题

最终获胜者是 :
(投票已关闭)
不是buzpodder的图形
28%
 28%  [ 2 ]
Zylum的图形
0%
 0%  [ 0 ]
催化剂的图形
0%
 0%  [ 0 ]
Globetrotter的图形
0%
 0%  [ 0 ]
Beard0的图形
0%
 0%  [ 0 ]
delos的二十一点
14%
 14%  [ 1 ]
Zylum的图形(2)
0%
 0%  [ 0 ]
Beard0的Tictactoe.
28%
 28%  [ 2 ]
delos的华丽乒乓球
0%
 0%  [ 0 ]
Zylum的绿色屏幕
14%
 14%  [ 1 ]
催化剂的PONG.
0%
 0%  [ 0 ]
托尼的蛇
14%
 14%  [ 1 ]
Theferret的图形
0%
 0%  [ 0 ]
总投票:7

作者 信息
Hikaru79.




邮政发布: THU 11月11日,2004年11:09下午  帖子主题:(没有主题)

震惊 震惊 震惊 震惊

碉堡了! Beard0,为民意调查添加Homer,我为他投票! 很高兴

男人,是荷马在这里无可争议的3D大师吗? =)
赞助
赞助
赞助
赞助
Apbom.




邮政发布: 星期五2014年11月12日1:23  帖子主题:(没有主题)

嘿,我之前没有看到这个,我可以把我的参数程序放在这里......

好吧,我修改它,很短,催化剂:做你的诅咒让它变得更好......我认真,请

代码:
setscreen ("graphics:200; 200,nobuttonbar,offscreenonly,标题:please wait")
var a1,a:= 800
var spacing1:= 1800
var间距:= 1
环形
    colorback (7)
    cls
    for i :1 .. 1800通过间距
        drawline (maxx div 2 + round (a1 / sqrt (i) * cosd (i)),Maxy Div 2 +圆形(a1 / sqrt (i) * sind (i)),maxx div 2 +圆形(a1 / sqrt (i + spacing) * cosd (i + spacing)),Maxy Div 2 +圆形(a1 / sqrt (i + spacing) * sind (i + spacing)), 0)
        drawline (maxx div 2 - round (a1 / sqrt (i) * cosd (i)),Maxy Div 2 - 轮(a1 / sqrt (i) * sind (i)),maxx div 2 - 圆形(a1 / sqrt (i + spacing) * cosd (i + spacing)),Maxy Div 2 - 轮(a1 / sqrt (i + spacing) * sind (i + spacing)), 0)
        drawline (maxx div 2 + round (a1 / sqrt (i) * sind (i)),Maxy Div 2 - 轮(a1 / sqrt (i) * cosd (i)),maxx div 2 +圆形(a1 / sqrt (i + spacing) * sind (i + spacing)),Maxy Div 2 - 轮(a1 / sqrt (i + spacing) * cosd (i + spacing)), 0)
        drawline (maxx div 2 - round (a1 / sqrt (i) * sind (i)),Maxy Div 2 +圆形(a1 / sqrt (i) * cosd (i)),maxx div 2 - 圆形(a1 / sqrt (i + spacing) * sind (i + spacing)),Maxy Div 2 +圆形(a1 / sqrt (i + spacing) * cosd (i + spacing)), 0)
        delay (2)
    end for
    exit when (spacing = 901)
    spacing += 2
    Text.Locate (1, 1)
    View.Update
结束循环


哈!只有19行 微笑
塞万提斯




邮政发布: 孙11月21日,2004年7:46 AM  帖子主题:(没有主题)

哈!您的计划是13行 非难

编辑:Woops,忘记代码 笑
代码:
套路("graphics:200; 200,nobuttonbar,offscreenonly,标题:please wait")
用于间距: 1 .. 901 by 2
    colorback (7)
    cls
    for i :1 .. 1800通过间距
        drawline (maxx div 2 + round (800 / sqrt (i) * cosd (i)),Maxy Div 2 +圆形(800 / sqrt (i) * sind (i)),maxx div 2 +圆形(800 / sqrt (i + spacing) * cosd (i + spacing)), maxy div 2 +
            round (800 / sqrt (i + spacing) * sind (i + spacing)), 0)
        drawline (maxx div 2 - round (800 / sqrt (i) * cosd (i)),Maxy Div 2 - 轮(800 / sqrt (i) * sind (i)),maxx div 2 - 圆形(800 / sqrt (i + spacing) * cosd (i + spacing)), maxy div 2 -
            round (800 / sqrt (i + spacing) * sind (i + spacing)), 0)
        drawline (maxx div 2 + round (800 / sqrt (i) * sind (i)),Maxy Div 2 - 轮(800 / sqrt (i) * cosd (i)),maxx div 2 +圆形(800 / sqrt (i + spacing) * sind (i + spacing)), maxy div 2 -
            round (800 / sqrt (i + spacing) * cosd (i + spacing)), 0)
        drawline (maxx div 2 - round (800 / sqrt (i) * sind (i)),Maxy Div 2 +圆形(800 / sqrt (i) * cosd (i)),maxx div 2 - 圆形(800 / sqrt (i + spacing) * sind (i + spacing)), maxy div 2 +
            round (800 / sqrt (i + spacing) * cosd (i + spacing)), 0)
        delay (2)
    end for
    View.Update
结束
Apbom.




邮政发布: 2004年11月22日12:47 PM  帖子主题:(没有主题)

哇!我知道它可能是更简单的......现在让它变得越来越多......在不到20行!

这就是一些漂亮的编码塞万提斯......只是一些循环 尴尬 我有多愚蠢地没有意识到他们的力量!
mypistolsin3d.




邮政发布: 2004年11月23日星期二6:53  帖子主题:(没有主题)

哇,Lotsa甜蜜的节目。我喜欢Catalyst的那个波浪出来最好的。
托尼




邮政发布: 孙11月28日,2004年11:56 PM  帖子主题:(没有主题)

塞万提斯的重力已经滑到 这里
最新来自compsci.ca/blog: Tony's 编程博客。 DWite - A. 编程竞赛.
Thezsterbunny.




邮政发布: FRI FEB 04,2005 6:21 AM  帖子主题:(没有主题)

雪貂,你是治愈的。我已经将代码缩小到19行

代码:

Travis Barker - ZB编辑%金字塔
套路("graphics:400;400")
var p,r,col: int := 0
r := 400
col:= 1
环形
    for i : 1 .. 400
        delay (1)
        p += 1
        r -= 1
        col += 2
        if col >= 255 then
            col := 1
        end if
        drawbox (p, p, r, r, col) %< - 尝试在这里放星或椭圆形
        p += 1
        r -= 1
        drawbox (p, p, r, r, 33) %< - 尝试在这里放星或椭圆形
    end for
结束循环
马丁




邮政发布: FRI FEB 04,2005 1:29 PM  帖子主题:(没有主题)

代码:

Travis Barker - ZB编辑%金字塔
套路("graphics:400;400")
var p,r: int := 0
r := 400
环形
    for i : 1 .. 400
        delay (1)
        drawbox (p+1, p+1, r-1, r-1, (2*i + 1) mod 255) %< - 尝试在这里放星或椭圆形
        drawbox (p, p, r, r, 33) %< - 尝试在这里放星或椭圆形
    end for
结束循环


甚至更短。 11行
赞助
赞助
赞助
赞助
Thezsterbunny.




邮政发布: FRI FEB 04,2005 11:33 PM  帖子主题:(没有主题)

/我鞠躬。


嗯......

代码:

套路("graphics:400;400")Travis Barker的%金字塔 - ZB编辑-MK编辑
var p,r: int := 0
r := 400
环形
    for i : 1 .. 400
        delay (1)
        drawbox (p+1, p+1, r-1, r-1, (2*i + 1) mod 255) %< - 尝试在这里放星或椭圆形
        drawbox (p, p, r, r, 33) %< - 尝试在这里放星或椭圆形
    end for
结束循环

10 lines.

-Z.
Apbom.




邮政发布: 2005年2月5日星期六6:26 PM  帖子主题:(没有主题)

思维 似乎你们在尝试代码之前发布了......那段代码不起作用。它只绘制一个蓝色轮廓 眨眼
乔什




邮政发布: 2005年2月5日星期六:下午11:24  帖子主题:(没有主题)

我想知道这也.....
Thezsterbunny.




邮政发布: Sun 06,2005 4:16 PM  帖子主题:(没有主题)

哈哈。我从未尝试过。正确的。

无论如何;

代码:

套路("graphics:400;400")Travis Barker - ZB编辑%金字塔
为我: 1 .. 400 by 2
    delay (1)
    drawbox (我,我,400 - 我,400 - 我,(i - 1) mod 256)     %< - 尝试在这里放星或椭圆形
    drawbox (i + 1, i + 1, 400 - (i + 1), 400 - (i + 1), 33)     %< - 尝试在这里放星或椭圆形
结束

6 线条,相同的效果,相同的数字。

击败那个马丁。

-Z.
托尼




邮政发布: FRI FEB 11,2005 10:41 PM  帖子主题:(没有主题)

约翰提供了一个有趣的挑战绘制棋盘..
图灵:

view.set. ("图形:500;500")
为了 i : 0 .. 109
    draw.fillbox. (i * 50 摩擦 550, 地面 (一世 / 11) * 50, 一世 * 50 摩擦 550 + 50, 地面 (一世 / 11) * 50 + 50, 一世 摩擦 2 * 黑色的)
结尾 为了

在这里发布这一点只是为了将来的参考文献
Zylum.




邮政发布: 2005年2月12日星期六下午1:35  帖子主题:(没有主题)

您可以随时使用FillPolygon与单行进行 笑 但后来,你不会轻易控制尺寸
Apbom.




邮政发布: 2005年2月16日星期三上午11:30  帖子主题:(没有主题)

只需将“框”更改为“mapleaf”和“黑色”到“12”,你让自己一个漂亮的爱国班丹娜......如果使用“明星”和“黄色”(蓝色)\ n Cls“为我们的美国朋友 眨眼 和朋友们,我的意思是杰克斯
从上一个显示帖子:   
   指数 -> 竞赛
查看上一个主题 告诉一个朋友可打印的版本下载主题订阅本主题私人信息刷新页面 查看下一个主题

45  [ 62 Posts ]
转到页面 以前的  1, 2, 3, 4, 5  下一页
跳到:   


Style:  
搜索: