プチコン4 まとめWiki

Sample の変更点

パンくずリスト


#title(サンプルプログラム集)

初心者にも役に立つかもしれないサンプル的、および部品的なプログラムをここに集積しましょう。

#contentsx(depth=1:2)

* BASIC の基本 [#ka0b9a22]

** こんにちは、世界 [#y1a6f30b]
最初の一歩。文字列を表示する場合はダブルクォーテーションで囲む必要があります。&br;
なお、ダブルクォーテーションはコンソールに表示されません。
#basic{{
PRINT "Hello, プチコン4 world!"
}}

** ダブルクォーテーションの表示 [#s0ce9da3]
ダブルクォーテーションをコンソールに表示する場合は&basic{CHR$()};関数を使用する必要があります。
#basic{{
PRINT CHR$(34)
}}

** 個人情報を抽出 [#s592fbdf]
プチコンが個人情報を抽出して喜ぶプログラムです。
#basic{{
INPUT "あなたの なまえは" ; NAME$
INPUT "おとしは いくつですか" ; AGE
PRINT "あなたの なまえは " ; NAME$ ; " で"
PRINT "おとしは " ; AGE ; " さい ですね"
PRINT "こじんじょうほうを おいしく いただきました、 ククク"
WAIT 30
}}

* 無限ループ [#a66f9c67]
** 数え上げ [#ff61bf53]
#basic{{
A=0
@COUNT
 PRINT A
 A=A+1
GOTO@COUNT
}}

** コンソール時計 [#cdf8b3c5]
#basic{{
CLS
@TIME
 LOCATE 0,0
 PRINT "Р";TIME$
 VSYNC 60
GOTO@TIME
}}

** BGMが終わるまで待つ [#g2fe091e]
#basic{{
@LOOP
VSVNC 1
IF BGMCHK()==0 THEN @OUT
GOTO @LOOP
@OUT
}}

* 再帰 [#w5ce1685]
** 階乗 [#w3870aeb]
#basic{{
DEF F(N)
 IF N<=0 THEN
  RETURN 1
 ELSE
  RETURN N*F(N-1)
 ENDIF
END

PRINT F(10) '3628800
}}

#basic{{
DEF FIB(L)
 IF L<=0 THEN RETURN 1
 RETURN FIB(L-1)+FIB(L-2)
END
PRINT FIB(1) '2
}}

* Twitter に投稿されたサンプル [#y21de6ae]
#tweet(https://twitter.com/p4petitcom/status/1134132715597455362)
#tweet(https://twitter.com/kenshiro31141/status/1134124111288868864)
#tweet(https://twitter.com/keigame5/status/1133799351774470144)
#tweet(https://twitter.com/keigame5/status/1134135092475916288)
#tweet(https://twitter.com/SeyfertSlade/status/1133986276523139072)
#tweet(https://twitter.com/Bug_taro/status/1132093499489153026)
#tweet(https://twitter.com/otemoto_stinger/status/1136599760075280385)
#tweet(https://twitter.com/UTUCKN/status/1137008535156301824)
#tweet(https://twitter.com/SeyfertSlade/status/1137914927107039232)
#tweet(https://twitter.com/ryumago/status/1138563416388382720)
#tweet(https://twitter.com/Ackieee/status/1138593495801745410)
#tweet(https://twitter.com/hosiken/status/1139026649159065600)
#tweet(https://twitter.com/ryumago/status/1139271500005965824)
#tweet(https://twitter.com/UTUCKN/status/1139690401051185152)
#tweet(https://twitter.com/hosiken/status/1140927983768571904)
#tweet(https://twitter.com/UTUCKN/status/1142597307474382848)
#tweet(https://twitter.com/hosiken/status/1142691327747866625)

* コメント [#l6d4d804]
ページを編集するまでもないものの、もし何か一言コメントがありましたら以下へどうぞ。
- ''ひかり'' : んんん (&new{2020/05/27 (水) 08:44:08};)

#comment

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.005 秒 | ログイン
Copyright(C) 2011-2019 プチコンまとめWiki