{"id":76,"date":"2009-11-23T00:00:19","date_gmt":"2009-11-22T15:00:19","guid":{"rendered":"http:\/\/www.kuroneko-square.net\/articles\/?p=76"},"modified":"2009-11-23T08:59:50","modified_gmt":"2009-11-22T23:59:50","slug":"20091123","status":"publish","type":"post","link":"https:\/\/www.kuroneko-square.net\/articles\/20091123","title":{"rendered":"1990\u5e74\u4ee3\u306e\u3042\u307f\u3060\u304f\u3058"},"content":{"rendered":"

\u304b\u306a\u308a\u524d\u306b\u4f5c\u3063\u305f\u3042\u307f\u3060\u304f\u3058\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u30b3\u30fc\u30c9\u3067\u3057\u305f\u3002<\/p>\n\n

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
<\/div><\/td>
'\/for QuickBASIC<\/span>
\n'$lang: "qb"<\/span>
\n
\nDIM<\/span> a(<\/span>20<\/span>)<\/span>,<\/span> b(<\/span>10<\/span>)<\/span>
\n
\nta$ =<\/span> RIGHT$<\/span>(<\/span>TIME$<\/span>,<\/span> 2<\/span>)<\/span>
\nRANDOMIZE<\/span> (<\/span>ASC<\/span>(<\/span>ta$)<\/span>)<\/span>
\nFOR<\/span> y =<\/span> 1<\/span> TO<\/span> 8<\/span>: b(<\/span>y)<\/span> =<\/span> INT<\/span>(<\/span>RND<\/span> *<\/span> 6<\/span>)<\/span> +<\/span> 1<\/span>: NEXT<\/span> y
\n
\nCLS<\/span>
\nLOCATE<\/span> 5<\/span>,<\/span> 10<\/span>: PRINT<\/span> "\uff11\u3000\uff12\u3000\uff13\u3000\uff14\u3000\uff15\u3000\uff16\u3000\uff17\u3000\uff18"<\/span>
\nLOCATE<\/span> 15<\/span>,<\/span>10<\/span>: INPUT<\/span> "\u756a\u53f7\u3092\u9078\u3093\u3067\u304f\u3060\u3055\u3044\u3000"<\/span>,<\/span> k
\nFOR<\/span> x =<\/span> 1<\/span> TO<\/span> 8<\/span>: a(<\/span>x)<\/span> =<\/span> x: NEXT<\/span> x
\nFOR<\/span> y =<\/span> 1<\/span> TO<\/span> 7<\/span>
\n    n =<\/span> b(<\/span>y)<\/span>: GOSUB<\/span> write_line
\n    c =<\/span> a(<\/span>n)<\/span>: a(<\/span>n)<\/span> =<\/span> a(<\/span>n +<\/span> 1<\/span>)<\/span>: a(<\/span>n +<\/span> 1<\/span>)<\/span> =<\/span> c
\nNEXT<\/span> y
\n
\nLOCATE<\/span> 5<\/span> +<\/span> y,<\/span> 10<\/span>
\nIF<\/span> c =<\/span> 1<\/span> THEN<\/span> PRINT<\/span> "\u25cb\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7"<\/span>: z =<\/span> 1<\/span>
\nIF<\/span> c =<\/span> 2<\/span> THEN<\/span> PRINT<\/span> "\u00d7\u3000\u25cb\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7"<\/span>: z =<\/span> 2<\/span>
\nIF<\/span> c =<\/span> 3<\/span> THEN<\/span> PRINT<\/span> "\u00d7\u3000\u00d7\u3000\u25cb\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7"<\/span>: z =<\/span> 3<\/span>
\nIF<\/span> c =<\/span> 4<\/span> THEN<\/span> PRINT<\/span> "\u00d7\u3000\u00d7\u3000\u00d7\u3000\u25cb\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7"<\/span>: z =<\/span> 4<\/span>
\nIF<\/span> c =<\/span> 5<\/span> THEN<\/span> PRINT<\/span> "\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u25cb\u3000\u00d7\u3000\u00d7\u3000\u00d7"<\/span>: z =<\/span> 5<\/span>
\nIF<\/span> c =<\/span> 6<\/span> THEN<\/span> PRINT<\/span> "\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u25cb\u3000\u00d7\u3000\u00d7"<\/span>: z =<\/span> 6<\/span>
\nIF<\/span> c =<\/span> 7<\/span> THEN<\/span> PRINT<\/span> "\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u25cb\u3000\u00d7"<\/span>: z =<\/span> 7<\/span>
\nIF<\/span> c =<\/span> 8<\/span> THEN<\/span> PRINT<\/span> "\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u25cb"<\/span>: z =<\/span> 8<\/span>
\n
\nLOCATE<\/span> 5<\/span> +<\/span> y +<\/span> 2<\/span>,<\/span> 10<\/span>
\nIF<\/span> a(<\/span>z)<\/span> =<\/span> k THEN<\/span> PRINT<\/span> k; "\u306f\u3042\u305f\u308a\u3067\u3059          "<\/span>: END<\/span>
\nPRINT<\/span> k; "\u306f\u306f\u305a\u308c\u3067\u3059          "<\/span>: END<\/span>
\n
\nwrite_line:
\nLOCATE<\/span> 5<\/span> +<\/span> y,<\/span> 10<\/span>
\nIF<\/span> n =<\/span> 1<\/span> THEN<\/span> PRINT<\/span> "|---|   |   |   |   |   |   |"<\/span>: RETURN<\/span>
\nIF<\/span> n =<\/span> 2<\/span> THEN<\/span> PRINT<\/span> "|   |---|   |   |   |   |   |"<\/span>: RETURN<\/span>
\nIF<\/span> n =<\/span> 3<\/span> THEN<\/span> PRINT<\/span> "|   |   |---|   |   |   |   |"<\/span>: RETURN<\/span>
\nIF<\/span> n =<\/span> 4<\/span> THEN<\/span> PRINT<\/span> "|   |   |   |---|   |   |   |"<\/span>: RETURN<\/span>
\nIF<\/span> n =<\/span> 5<\/span> THEN<\/span> PRINT<\/span> "|   |   |   |   |---|   |   |"<\/span>: RETURN<\/span>
\nIF<\/span> n =<\/span> 6<\/span> THEN<\/span> PRINT<\/span> "|   |   |   |   |   |---|   |"<\/span>: RETURN<\/span>
\nIF<\/span> n =<\/span> 7<\/span> THEN<\/span> PRINT<\/span> "|   |   |   |   |   |   |---|"<\/span>: RETURN<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n\n

\u4eca\u3084\u6614\u306eQuickBASIC\u304b\u3068\u601d\u3044\u304d\u3084\u30012004\u5e74\u306b\u767b\u5834\u3057\u305fFreeBASIC<\/a>\u3067\u306f\u3001lang\u6307\u5b9a\u3055\u3048\u3059\u308c\u3070\u3001\u3053\u306e\u307e\u307e\u30b3\u30f3\u30d1\u30a4\u30eb\u3067\u304d\u308b\u306e\u3067\u3059\u3002\u30de\u30eb\u30c1\u30d0\u30a4\u30c8\u3082\u7279\u306b\u554f\u984c\u306a\u3057\u3002FreeBASIC\u306a\u3089GPL\u3067\u30af\u30ed\u30b9\u30d7\u30e9\u30c3\u30c8\u30db\u30fc\u30e0\u3067\u3059\u3057\u3001\u904e\u53bb\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3082\u305d\u308c\u306a\u308a\u306b\u6d3b\u7528\u3067\u304d\u307e\u3059\u306d\u3002<\/p>\r\n

\u3055\u3089\u306b\u3001FreeBASIC\u306a\u3089\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u6307\u5411\u98a8\u306b\u3082\u66f8\u3051\u307e\u3059\u3002<\/p>\n\n

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
<\/div><\/td>
'\/for FreeBASIC<\/span>
\nType<\/span> Amida
\n    Dim<\/span> a(<\/span>20<\/span>)<\/span> as<\/span> Byte<\/span>
\n    Dim<\/span> b(<\/span>10<\/span>)<\/span> as<\/span> Byte<\/span>
\n    Declare<\/span> Constructor(<\/span>)<\/span>
\n    Declare<\/span> Sub<\/span> wrLine (<\/span>n as<\/span> Byte<\/span>)<\/span>
\n    Declare<\/span> Function<\/span> get_result (<\/span>c as<\/span> Byte<\/span>)<\/span> as<\/span> Byte<\/span>
\n    Declare<\/span> Function<\/span> judge (<\/span>a(<\/span>)<\/span> as<\/span> Byte<\/span>, k as<\/span> Byte<\/span>, z as<\/span> Byte<\/span>)<\/span> as<\/span> Byte<\/span>
\nEnd<\/span> Type<\/span>
\n'-----------<\/span>
\nConstructor Amida(<\/span>)<\/span>
\n    Dim<\/span> ta as<\/span> String<\/span>
\n    Dim<\/span> as<\/span> Byte<\/span> c, k, n, x, y, z
\n    ta = Right<\/span>(<\/span>Time<\/span>, 2<\/span>)<\/span>
\n    Randomize<\/span> (<\/span>Asc<\/span>(<\/span>ta)<\/span>)<\/span>
\n    For<\/span> y = 1<\/span> To<\/span> 8<\/span>: b(<\/span>y)<\/span> = Int<\/span>(<\/span>Rnd<\/span> * 6<\/span>)<\/span> + 1<\/span>: Next<\/span> y
\n    Cls<\/span>
\n    Locate<\/span> 5<\/span>, 10<\/span>: Print<\/span> "\uff11\u3000\uff12\u3000\uff13\u3000\uff14\u3000\uff15\u3000\uff16\u3000\uff17\u3000\uff18"<\/span>
\n    Locate<\/span> 15<\/span>,10<\/span>: Input<\/span> "\u756a\u53f7\u3092\u9078\u3093\u3067\u304f\u3060\u3055\u3044\u3000"<\/span>, k
\n    For<\/span> x = 1<\/span> To<\/span> 8<\/span>: a(<\/span>x)<\/span> = x: Next<\/span> x
\n    For<\/span> y = 1<\/span> To<\/span> 7<\/span>
\n        n = b(<\/span>y)<\/span>
\n        Locate<\/span> 5<\/span> + y, 10<\/span>
\n        This.wrLine<\/span>(<\/span>n)<\/span>
\n        c = a(<\/span>n)<\/span>: a(<\/span>n)<\/span> = a(<\/span>n + 1<\/span>)<\/span>: a(<\/span>n + 1<\/span>)<\/span> = c
\n    Next<\/span> y
\n
\n    Locate<\/span> 5<\/span> + y, 10<\/span>
\n    z = This.get_result<\/span>(<\/span>c)<\/span>
\n   
\n    Locate<\/span> 5<\/span> + y + 2<\/span>, 10<\/span>
\n    If<\/span> This.judge<\/span>(<\/span>a(<\/span>)<\/span>,k,z)<\/span> = 1<\/span> Then<\/span>
\n        Print<\/span> k; "\u306f\u3042\u305f\u308a\u3067\u3059          "<\/span>
\n    Else<\/span>
\n        Print<\/span> k; "\u306f\u306f\u305a\u308c\u3067\u3059          "<\/span>
\n    End<\/span> If<\/span>
\nEnd<\/span> Constructor
\n'-----------<\/span>
\nFunction<\/span> Amida.get_result<\/span>(<\/span>c as<\/span> Byte<\/span>)<\/span> as<\/span> Byte<\/span>
\n    Dim<\/span> z as<\/span> Byte<\/span>
\n    If<\/span> c = 1<\/span> Then<\/span> Print<\/span> "\u25cb\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7"<\/span>: z = 1<\/span>
\n    If<\/span> c = 2<\/span> Then<\/span> Print<\/span> "\u00d7\u3000\u25cb\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7"<\/span>: z = 2<\/span>
\n    If<\/span> c = 3<\/span> Then<\/span> Print<\/span> "\u00d7\u3000\u00d7\u3000\u25cb\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7"<\/span>: z = 3<\/span>
\n    If<\/span> c = 4<\/span> Then<\/span> Print<\/span> "\u00d7\u3000\u00d7\u3000\u00d7\u3000\u25cb\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7"<\/span>: z = 4<\/span>
\n    If<\/span> c = 5<\/span> Then<\/span> Print<\/span> "\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u25cb\u3000\u00d7\u3000\u00d7\u3000\u00d7"<\/span>: z = 5<\/span>
\n    If<\/span> c = 6<\/span> Then<\/span> Print<\/span> "\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u25cb\u3000\u00d7\u3000\u00d7"<\/span>: z = 6<\/span>
\n    If<\/span> c = 7<\/span> Then<\/span> Print<\/span> "\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u25cb\u3000\u00d7"<\/span>: z = 7<\/span>
\n    If<\/span> c = 8<\/span> Then<\/span> Print<\/span> "\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u00d7\u3000\u25cb"<\/span>: z = 8<\/span>
\n    Return<\/span> z
\nEnd<\/span> Function<\/span>
\n'-----------<\/span>
\nSub<\/span> Amida.wrLine<\/span>(<\/span>n as<\/span> Byte<\/span>)<\/span>
\n    If<\/span> n = 1<\/span> Then<\/span> Print<\/span> "|---|   |   |   |   |   |   |"<\/span>
\n    If<\/span> n = 2<\/span> Then<\/span> Print<\/span> "|   |---|   |   |   |   |   |"<\/span>
\n    If<\/span> n = 3<\/span> Then<\/span> Print<\/span> "|   |   |---|   |   |   |   |"<\/span>
\n    If<\/span> n = 4<\/span> Then<\/span> Print<\/span> "|   |   |   |---|   |   |   |"<\/span>
\n    If<\/span> n = 5<\/span> Then<\/span> Print<\/span> "|   |   |   |   |---|   |   |"<\/span>
\n    If<\/span> n = 6<\/span> Then<\/span> Print<\/span> "|   |   |   |   |   |---|   |"<\/span>
\n    If<\/span> n = 7<\/span> Then<\/span> Print<\/span> "|   |   |   |   |   |   |---|"<\/span>
\nEnd<\/span> Sub<\/span>
\n'-----------<\/span>
\nFunction<\/span> Amida.judge<\/span>(<\/span>a(<\/span>)<\/span> as<\/span> Byte<\/span>, k as<\/span> Byte<\/span>, z as<\/span>  Byte<\/span>)<\/span> as<\/span> Byte<\/span>
\n    If<\/span> a(<\/span>z)<\/span> = k Then<\/span>
\n        Return<\/span> 1<\/span>
\n    Else<\/span>
\n        Return<\/span> 0<\/span>
\n    End<\/span> If<\/span>
\nEnd<\/span> Function<\/span>
\n'-----------<\/span>
\nDim<\/span> ObjAMD as<\/span> Amida
\nEnd<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n\n

\u306a\u304b\u306a\u304b\u767b\u5834\u6a5f\u4f1a\u306e\u5c11\u306a\u3044BASIC\u3067\u3059\u304c\u3001\u3053\u306e\u624b\u8efd\u3055\u3068\u751f\u7523\u6027\u306e\u9ad8\u3055\u306b\u306f\u3084\u306f\u308a\u6839\u5f37\u3044\u9700\u8981\u304c\u3042\u308b\u3088\u3046\u306a\u6c17\u304c\u3057\u307e\u3059\u3002<\/p>","protected":false},"excerpt":{"rendered":"\u304b\u306a\u308a\u524d\u306b\u4f5c\u3063\u305f\u3042\u307f\u3060\u304f\u3058\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u3001QuickBASIC\u3067\u3057\u305f\u3002\u4eca\u3084\u6614\u304b\u3068\u601d\u3044\u304d\u3084\u30012004\u5e74\u306b\u767b\u5834\u3057\u305fFreeBASIC\u3067\u306f\u3001lang\u6307\u5b9a\u3055\u3048\u3059\u308c\u3070\u3001\u3053\u306e\u307e\u307e\u30b3\u30f3\u30d1\u30a4\u30eb\u3067\u304d\u308b\u306e\u3067\u3059\u3002","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[53,55,54],"class_list":["post-76","post","type-post","status-publish","format-standard","hentry","category-blog","tag-basic","tag-freebasic","tag-54"],"_links":{"self":[{"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/posts\/76","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/comments?post=76"}],"version-history":[{"count":0,"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/posts\/76\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/media?parent=76"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/categories?post=76"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/tags?post=76"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}