新しく発言する EXIT インデックスへ

論理演算や集合演算の計算して、その結果を...

　　論理演算や集合演算の計算して、その結果を真理値表やベン図で表す 山中和義 2008/03/08 14:38:52  (修正1回)
　　├つづき（真理値表、ベン図） 山中和義 2008/03/08 14:41:15 
　　│└つづき（式の評価eval） 山中和義 2008/03/08 14:43:25  (修正1回)
　　│　└つづき 山中和義 2008/03/08 14:44:12  (修正1回)
　　│　　└つづき 山中和義 2008/03/08 14:44:53
Re: つづき 返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/03/08 14:44:53
つづき


!下位の共通ルーチン
FUNCTION token$(s$) !１文字読み込む
CALL EatSpace(s$)

LET token$=""
IF p<=LEN(s$) THEN LET token$=s$(p:p)
END FUNCTION

SUB EatSpace(s$) !空白を読み飛ばす
DO WHILE s$(p:p)=" " AND p<=LEN(s$)
LET p=p+1
LOOP
END SUB

SUB CheckToken(s$,L$) !文字を確認する
CALL EatSpace(s$)
IF UCASE$(s$(p:p+LEN(L$)-1))<>L$ THEN CALL Error(L$&" がありません。")
LET p=p+LEN(L$) !eat it
END SUB

SUB Error(x$) !エラーメッセージを表示する
PRINT
PRINT x$,p

STOP
END SUB


!スタック関連
SUB push(stack(),sp, v) !スタックに保存する
IF sp<UBOUND(stack) THEN
LET sp=sp+1
LET stack(sp)=v
ELSE
CALL Error("スタックがオーバーフローです。")
END IF
END SUB
SUB pop(stack(),sp, v) !スタックから取り出す
IF sp<1 THEN
CALL Error("スタックが空です。")
ELSE
LET v=stack(sp)
LET sp=sp-1
END IF
END SUB
!------------------------------ ここまでがサブルーチン

 
　　│　　　└つづき（メイン） 山中和義 2008/03/08 14:46:11  (修正1回)
　　├真理値表（truthtable）から論理式（論理関... 山中和義 2008/03/10 10:55:33 
　　└!真理値表から多変数多項式をつくる 山中和義 2008/04/08 14:22:27

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。