DIM (変数名) AS 変数型 |
|
|
サイズ |
|
整数型 | INTEGER | 2バイト | -32,768 〜 32,767 |
倍精度整数型 | LONG | 4バイト | -2,147,483,648 〜 2,147,483,647 |
単精度浮動小数点型 | SINGLE | 4バイト | -3.402823E38 〜 -1.401298E-45 (負の値)
1.401298E-45 〜 3.402823E38 (正の値) |
倍精度浮動小数点型 | DOUBLE | 8バイト | 1.79769313486232E308 〜 -4.94065645841247E-324 (負の値)
4.94065645841247E-324 〜 1.79769313486232E308 (正の値) |
文字列型 | STRING | 固定長
可変長 |
最大32767文字 |
変数名の決まり
INPUT [メッセージ;] 変数 [,変数・・・] [ ]は省略可 |
PRINT [メッセージ;] 変数 [,変数・・・あるいは;変数] |
この場合,何の入力を求めており,何の出力をしているのかがわかりづらい.
そこで,例1)を以下のように変える.
コード2-2
DIM NAME1 AS STRING
INPUT "INPUT YOUR NAME";NAME1
PRINT "YOUR NAME IS "; NAME1
END
コード2-3 和・積の結果を求めるプログラム
DIM A, B AS INTEGER
INPUT "A=";A
INPUT "B=";B
PRINT "A+B=";A+B
PRINT "A*B=";A*B
END
注)この場合,A,Bの入力において数値以外を入力するとエラーが発生し,再入力を要求する.
FOR ループ変数=初期値 TO 最終値 [STEP きざみ値]
実行文 NEXT [カウンタ変数] |
コンピュータに同じ処理を決められた回数だけ繰り返したい場合に用いる.
コード3-2 繰り返し過程におけるループ変数Nの値を確認する.
DIM N AS INTEGER
FOR N = 1 TO 10
PRINT "HELLO BASIC WORLD";N
NEXT
END
コード3-3 ループ変数Nの値を利用する.
DIM N AS INTEGER
FOR N = 1 TO 10
COLOR N
PRINT "HELLO BASIC WORLD";N
NEXT
END
注)QBASICでは0から15までの整数で色を指定できる.
コード3-4) 10回3を足した合計を求めるとすれば,
DIM N AS INTEGER
DIM SUM AS INTEGER
SUM = 0
'変数SUMの初期化
FOR N = 1 TO 10
SUM = SUM + 3
PRINT SUM
NEXT
END
最終的な計算値のみを表示する場合には,
(略)
FOR N = 1 TO 10
SUM = SUM + 3
NEXT
PRINT SUM
END
コード3-6) 表示を改良した場合
DIM N as integer
DIM SUM AS INTEGER
SUM = 0
PRINT SUM;
FOR N = 1 TO 10
SUM = SUM + N
PRINT "+";N
NEXT
PRINT "=";SUM
END
(演習)
1) 1からキーボードによって入力した数値までの和を求めるプログラムを書きなさい. 2) 0+2+4+・・・・+1000の値を表示するプログラムを書きなさい. (注意:変数宣言を変える必要がある) (応用問題)
2)コード3-6において表示される1+2+・・・=において,それぞれの色を変えて表示するため
|
補足)
1)無限ループに陥った場合あるいは処理を強制停止させたい場合