DouKaku?beta

解答・コメントを送る方法

コメントを送るには2つの方法があります。
  • 匿名でコメントを書く
    ログインせずにコメントを書くことができます。 名前は「匿名」となります。
  • アカウントを作成してコメントを書く
    アカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
どちらの場合も投稿後の修正・削除はできないので、 投稿前によくご確認下さい。

投稿ボタンを押す前に以下の文章を確認してください

  • 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
    Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]
  • あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
  • 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
  • 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
  • これらのことにあなたはあらかじめ同意したものとみなされます。

Post comment

Post a comment to the following challenge: 自由意志をプログラムする (Nested Flatten)

As a reply to the following comment: ジオ: 自由意志をプログラムしたプログラムを作っ...(#5843) [show]

[hide] 
自由意志をプログラムしたプログラムを作ってください。

自由とは何でしょう？
意志とは何でしょう？

三つの四角の内、自由意志を持った四角はあるでしょうか？
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
    WinSizeX = 600 : WinSizeY = 480
    screen 0, WinSizeX, WinSizeY, 0, (ginfo_dispx - WinSizeX) / 2, (ginfo_dispy - WinSizeY) / 2
    title "" : font "", 40 : randomize

    #const NUM 3
    #const SIZEX 100
    #const SIZEY 100

    dim Number, NUM : GoNum = 0
    dim PosX, NUM : dim PosY, NUM
    PosXIdx = (ginfo_winx - SIZEX * (NUM * 2 - 1)) / 2


*main

    //数値を決める

        NowSec = gettime(6)

        if NowSec ! PreSec {    //1秒毎の処理

            if GoNum = 0 : Number(GoNum) = Number(1) * 2
            if GoNum = 1 : Number(GoNum) = rnd(100)
            if GoNum = 2 : Number(GoNum) = rnd(10) * 10

            GoNum ++ : if GoNum = NUM : GoNum = 0

        }

        PreSec = gettime(6)


    //描画

        redraw 0

        color 255, 0, 128
        repeat NUM
            _cnt = cnt * 2
            PosX(cnt) = _cnt * SIZEX + PosXIdx : PosY(cnt) = (ginfo_winy - SIZEY) / 2
            boxf PosX(cnt), PosY(cnt), PosX(cnt) + SIZEX, PosY(cnt) + SIZEY
        loop

        color 255, 255, 128
        repeat NUM
            pos PosX(cnt) + 30, PosY(cnt) + 30 : mes Number(cnt)
        loop

        redraw 1


    await : goto *main
コメント本文
 形式 [?]
コード
 言語
タグ
半角スペースで区切って複数のタグを入力できます。
参考ページタイトル

参考ページURL
利用規約を読んで同意する必要があります。
by guest

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]