BASICの宿題はお前にまかせた

**BASIC** · 2006/01/09(月) 15:35:00

N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する

**デフォルトの名無しさん** · 2006/01/23(月) 11:02:03

Basic課題11（2005/12/08）

１．5行5列の行列[A]を作成し、値を表示しなさい。
行列に見えるように表示する。
データは「read文」を使用して代入する。
5行5列の行列[A]の転置行列を表示しなさい。
プログラムと結果を提出する。

２．2次元配列を使用して以下の計算をしなさい。
プログラムと結果を提出する。

（図は元の図を参照してください）
――――――――――――――→
01 02 03 04 05 06 07 08 09 10｜055　｜
11 12 13 14 15 16 17 18 19 20｜155　↓
21
：
：
91
---------------------------
460 470 ・・・　　　　　　　　　550｜5050↓

**デフォルトの名無しさん** · 2006/01/23(月) 11:03:28

課題11図省略
ttp://www.imgup.org/iup151447.gif
ttp://www.imgup.org/iup151450.gif
を参照（全部で3つ）

**デフォルトの名無しさん** · 2006/01/23(月) 11:06:38

Basic課題１２（2005/1/11）

問　以下の処理を1つのプログラムで記述します。プログラムは1つです。

１．5行5列の行列[A]にデータを入力し、表示しなさい。
データは不規則な値とする。
２．行列[A]の転置行列を行列[B]に代入し表示しなさい。
３．行列[A]＋行列[B]の計算をして表示しなさい。
４．行列[A]－行列[B]の計算をして表示しなさい。
５．行列[A]＊行列[B]の計算をして表示しなさい。
プログラムと結果を提出します。

**デフォルトの名無しさん** · 2006/01/23(月) 11:08:13

秋田。あとよろしく

**デフォルトの名無しさん** · 2006/01/23(月) 11:44:35

せめて
どこまでできたのか、何が分からないのか、
を書けよ。
ほんとに全部まる投げか？

**デフォルトの名無しさん** · 2006/01/23(月) 15:07:27

>>40
1

5 dim a$(1)
10 a$(0)=" 111+112+113+114+115+116+117+118+119+120+121=?"
20 print a$(0)
30 print 111+112+113+114+115+116+117+118+119+120+121

2
5 dim a$(1)
10 a$(0)="0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0"
20 print a$(0)
30 print 0
40 print 0
50 print 0
60 print a$(0)

**デフォルトの名無しさん** · 2006/01/23(月) 19:33:09

ごめんなさい・・・(；ω；)
全然わからないんです・・・orz　(・ー・）ｵﾜｯﾀﾅ･･･
皆さん、ご迷惑をおかけして申し訳ございませんでした・・・(´つω-`)

**BASIC** · 2006/01/23(月) 22:05:08

N人分のデータ（氏名、住所、電話番号）がＤＡＴＡ文で入力されているプログラムが
ある。
氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成
しなさい

**デフォルトの名無しさん** · 2006/01/24(火) 00:16:13

良スレハケーン
Microsoft Visual Studio .NETなんですが
よくある３×３マスの○×ゲームのソースをお願いできないでしょうか

**デフォルトの名無しさん** · 2006/01/24(火) 01:11:58

>>49
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Debug.WriteLine("×|○|○")
Debug.WriteLine("--+--+--")
Debug.WriteLine("○|×|　")
Debug.WriteLine("--+--+--")
Debug.WriteLine("　|　|×")
Debug.WriteLine("俺の勝ち")
End
End Sub

49 · 2006/01/24(火) 01:29:11

>>50
サンクス
助かりました

**デフォルトの名無しさん** · 2006/01/24(火) 11:32:45

宿題スレだろ？いじわるなやつばっかだなｗってか、おまえらわからないんだろ？あ？俺はしらね

**デフォルトの名無しさん** · 2006/01/24(火) 11:42:55

宿題ってのは自分でやるもんだ。

**BASI** · 2006/01/25(水) 11:01:03

N人分のデータ（氏名、住所、電話番号）がＤＡＴＡ文で入力されているプログラムが
ある。
氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成
しなさい

期日が迫っているので、だれか早くこたえてくれ！！

**デフォルトの名無しさん** · 2006/01/25(水) 11:17:34

問題は DATA 文が65536 行あるって点だな。

**デフォルトの名無しさん** · 2006/01/26(木) 18:29:37

>>54
110 N=5
120 INPUT "氏名：";S$
130 FOR I=1 TO N
140 READ A$,B$,C$
150 IF S$="氏名" THEN PRINT "住所と電話番号":END
160 NEXT
170 END
180 DATA "鈴木","北海道","AAAA-BB-CCCC"
190 DATA "佐藤","埼玉県","DDD-EEE-FFFF"
200 DATA "伊藤","奈良県","GGG-HHH-IIII"
210 DATA "田中","福岡県","JJJJ-KK-LLLL"
220 DATA "山田","沖縄県","MMMM-NN-OOOO"

**ＢＡＳＩＣ** · 2006/02/04(土) 13:46:27

三角関数の値を０度から１８０度まで計算するプログラム
を作成しなさい（ＦＯＲーＮＥＸＴを用いて）
ただし、Ｒ＝３．１４１５９/180とすると、sin(R*30)でsin30度の
値を求めることができる。

値を

**デフォルトの名無しさん** · 2006/02/04(土) 13:59:11

>値を
sin(R*30) = 0.499999616987256

**デフォルトの名無しさん** · 2006/02/04(土) 19:21:23

ﾌﾟﾛｸﾞﾗﾐﾝｸﾞの勉強をしようと思って、ｲﾝﾀｰﾈｯﾄを使っていろいろ試してみた。
それで最終的にTinyBASICに落ち着いた。
他にもVB.NET・ActiveBasic・REALbasicがあるのを知っている。
その中からTinyBASICを選んだ俺の選択は正しかったですか？

**デフォルトの名無しさん** · 2006/02/05(日) 06:54:57

>>57
10 goto 20
20 for i=0 to 180:print sin(3.1415926535897932384626433832795028841971693993751/180*i):next
30 rem sin関数ってラジアンなんですか？

**デフォルトの名無しさん** · 2006/02/07(火) 18:42:41

お願いします。

1.SQR(N)を用いて、2から10までの自然数について、
Nとその平方根を表示するプログラムつくれ
ヒント：fo　～　next

2.自然数Nを入力すると、
1+2+3・・・+Nを計算するプログラムつくれ

3.関数sin(X)とsin(180-x)の値を0度から180度まで
表示するプログラムつくれ

**デフォルトの名無しさん** · 2006/02/07(火) 19:28:57

>>61
仕様の不明な部分については俺のｴｽﾊﾟｰ能力で補完しといてやった。

100 ' 1.
110 FOR N=2 TO 10: PRINT N, SQR(N): NEXT
120 ' 2.
130 INPUT "N=";N: S=0: FOR I=1 TO N: S=S+I: NEXT: PRINT S, N*(N+1)/2
140 ' 3.
150 S=10: FOR D=0 TO 180 STEP S: PRINT D, SIN(D*3.14/180), SIN((180-D)*3.14/180): NEXT

61 · 2006/02/07(火) 19:53:48

>>62
ありがとうございました。

**デフォルトの名無しさん** · 2006/02/08(水) 14:39:42

>>59
There are a lot of roads that can be chosen.
However, the aimed top is one.

**デフォルトの名無しさん** · 2006/02/10(金) 02:05:17

ぬるぽ

**デフォルトの名無しさん** · 2006/02/14(火) 02:02:30

　　　　　　＿
┌――─┴┴─――┐
│　セルフサービス　.│
└―――┬┬─――┘
　　　　 ││　　 .／
　　　　　゛゛'゛'゛　／
　　　　　　　　／
　　　　 | ＼／
　　　　＼　＼
　　　　　　＼ノ

ｶﾞｯはセルフサービスになりました。

使用方法は以下のようになります
　　　　 ∧
　　ｶﾞｯ< 　>＿∧
＝　()二)Ｖ｀Д´）＜ぬるぽ
　　　　＼ヽﾉ　）
　　　　ﾉ(○´ノ
　　　（＿ﾉ（_＿）

尚、使用方法を誤ると、最悪の場合、命を落とす危険性がございますので、
初めてご使用される方は、各都道府県に設置してある専門の窓口に相談下さい。

財団法人全日本ぬるぽｶﾞｯセルフ振興会

**BASIC** · 2006/03/14(火) 20:50:41

予約語ってなんですか？

**デフォルトの名無しさん** · 2006/03/14(火) 22:15:10

使用が予約された言葉

**http://www.vector.co.jp/soft/win95/util/se072729.html** · 2006/03/18(土) 20:25:48

TextSS　のWindowsXP(Professional)64bit化おながいします

もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？

**デフォルトの名無しさん** · 2006/05/16(火) 23:29:02

Visual Basicで3つの数の最小公倍数を表示するプログラムをお願いします。

**デフォルトの名無しさん** · 2006/05/17(水) 00:10:27

>>70
MsgBox "2, 3, 4の最小公倍数は12です。"

**デフォルトの名無しさん** · 2006/05/17(水) 00:19:36

「3つの数の最小公倍数」のような数を列挙する時、
3 つの数が全て等しい場合なども考慮して良ければ自然数全体になるから、
1 から始めて 1 ずつ増やしながらコンピュータの限界まで数を表示し続ければ
良いでしょう。

もし異なるとすると厄介ですね。
一つの数が 1 でよいなら素数と素数の二乗を除いた全ての数になりますが、
これはちょっと難しいかも。
1 を許さないとするとかなり複雑になりますね。

**デフォルトの名無しさん** · 2006/05/17(水) 21:54:45

四則演算の電卓を作るプログラムなんですけど、ここからわかりません。
ご指摘お願いします。

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim tasu As Integer
Dim hiku As Integer
Dim kakeru As Integer
Dim waru As Integer

**デフォルトの名無しさん** · 2006/05/17(水) 21:55:41

--------------------------
Private Sub Command1_Click()
Text1.Text = "0
End Sub
--------------------------
Private Sub Command10_Click()
Text1.Text = "9"
End Sub
--------------------------
Private Sub Command11_Click()
a = Val(Text1.Text)
b = Val(Text1.Text)
c = Val(Text1.Text)
d = Val(Text1.Text)
e = Val(Text1.Text)
f = Val(Text1.Text)
g = Val(Text1.Text
h = Val(Text1.Text
i = Val(Text1.Text)
j = Val(Text1.Text)
Text1.Text = ""
End Sub

**デフォルトの名無しさん** · 2006/05/17(水) 21:56:43

--------------------------
Private Sub Command12_Click()
tasu = Val(Text1.Text)
hiku = Val(Text1.Text)
kakeru = Val(Text1.Text)
waru = Val(Text1.Text)

Select Case Val(Text1.Text)

Case 1
Select Case Val(Text1.Text)

Case 1
tasu = tasu + a
Text1.Text = tasu

Case 2
tasu = tasu + b
Text1.Text = tasu

Case 3
tasu = tasu + c
Text1.Text = tasu

Case 4
tasu = tasu + d
Text1.Text = tasu

Case 5
tasu = tasu + e
Text1.Text = tasu

**デフォルトの名無しさん** · 2006/05/17(水) 21:57:22

Case 6
tasu = tasu + f
Text1.Text = tasu

Case 7
tasu = tasu + g
Text1.Text = tasu

Case 8
tasu = tasu + h
Text1.Text = tasu

Case Else
tasu = tasu + i
Text1.Text = tasu

70 · 2006/05/19(金) 00:56:45

やはり難しいのでしょうかね
弟の高校の課題っぽいんですが、Cで作ったら全然違うとのこと
資料を送ってもらったらBASICっぽいのですが、BASICなんて分からないです…
gcmとかlcmで一発で動いてくれるようなコマンドはないのでしょうかね…

**デフォルトの名無しさん** · 2006/05/20(土) 03:36:37

>>77
なあなあ、お前完全に>>72に騙されてるんだが。

**デフォルトの名無しさん** · 2006/05/20(土) 11:13:57

>>78
誰も書いてくれないので難しいものなのかなと思いましたが
そんなわけないですよね。

まあ>>72は読んですぐスルーしましたけど。

**デフォルトの名無しさん** · 2006/05/20(土) 11:23:59

一応Cで書くとこんな感じになると思うのですが
これをVisualBasicに書き直すのがうまくいきません。

#include <stdio.h>
int lcm(int x,int y,int z);
main()
{
int a,b,c,d;
printf("整数aを入力 ");
scanf("%d",&a);
printf("整数bを入力 ");
scanf("%d",&b);
printf("整数cを入力 ");
scanf("%d",&c);
d = lcm(a,b,c);
printf("%d と %d と %d の最小公倍数は %d です。\n",a,b ,c,d);
}
int lcm(int x,int y,int z)
{
int answer;
answer = x;
while(1){
if(answer % y == 0 && answer % z == 0)
break;
answer += x;
}
return answer;
}

**デフォルトの名無しさん** · 2006/05/20(土) 12:39:42

>>80
残りのUI関係は自分でやっとくれ。

Function lcm(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
Dim answer As Integer
answer = x
Do
If ((answer Mod y = 0) And (answer Mod z = 0)) Then Exit Do
answer = answer + x
Loop
lcm = answer
End Function

**デフォルトの名無しさん** · 2006/05/20(土) 12:43:19

おまけ：ユークリッドの互除法を使った場合

Function gcd(ByVal a As Integer, ByVal b As Integer) As Integer
Dim c As Integer
Do While b <> 0
c = a Mod b
a = b
b = c
Loop
gcd = a
End Function

Function lcm(ByVal a As Integer, ByVal b As Integer) As Integer
lcm = a * b / gcd(a, b)
End Function

Function lcm3(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As Integer
Dim d As Integer
d = lcm(a, b)
lcm3 = lcm(c, d)
End Function

**デフォルトの名無しさん** · 2006/05/20(土) 15:41:02

>>81-82
ありがとうございました。

**デフォルトの名無しさん** · 2006/05/25(木) 23:18:38

ピクチャーボックスにrgbを使って上から順に明るい色から暗い色の
グラディエーションを表示するプログラムの作成お願いします。

**デフォルトの名無しさん** · 2006/05/25(木) 23:59:32

嫌です。

**デフォルトの名無しさん** · 2006/05/29(月) 20:32:36

好きな数字を入力して、その1部や全体が連続して居ないか調べて、
もしあればその部分を知らせるプログラムお願いしますｍ_ _ｍ

たとえば、

**デフォルトの名無しさん** · 2006/05/29(月) 20:33:49

「2112」なら、1が連続してるので1を
「19529523」なら952が連続してるので952をといった風です

すみません。切れましたorz

**デフォルトの名無しさん** · 2006/05/29(月) 21:12:46

>>86
(仮称)十進BASIC

INPUT s$
LET m=LEN(s$)
FOR n=1 TO INT(m/2)
FOR i=1 TO m-n+1
IF s$(i:i+n-1) = s$(i+n:i+2*n-1) THEN
PRINT s$(i:i+n-1)
END IF
NEXT i
NEXT n
END

86 · 2006/05/29(月) 23:02:07

>>88
ありがとうございます

**デフォルトの名無しさん** · 2006/06/12(月) 15:39:03

>>50
腹抱えてワロタ

**デフォルトの名無しさん** · 2006/06/15(木) 22:56:25

プログラムに時間の間を与えるにはどうすればいいんでしょうか？
たとえば実行してから１秒後に"１秒経過しました"と表示させる場合とか。

**デフォルトの名無しさん** · 2006/06/16(金) 00:20:11

>>91
つ TIME$

**デフォルトの名無しさん** · 2006/06/16(金) 18:00:01

>>91
1 sleep(1000)
2 print "１秒経過しました"

91 · 2006/06/17(土) 00:14:03

>>93
サーンクス！！

**デフォルトの名無しさん** · 2006/06/18(日) 16:40:09

beep音て変えれないの？

**デフォルトの名無しさん** · 2006/06/18(日) 16:52:14

>>95
つ play

**デフォルトの名無しさん** · 2006/06/19(月) 00:32:40

BEEP音でPCM再生とか昔あったなぁ

**デフォルトの名無しさん** · 2006/06/19(月) 01:55:56

a=FIX(RND(1)*10):b=FIX(RND(1)*10)
c=a+b
PRINT c

のときのcの一桁目の数だけPRINTするにはどうすればいいんでしょうか？
文字列じゃないんでRIGHT$ではエラーになってしまいます・・・

**デフォルトの名無しさん** · 2006/06/19(月) 20:06:10

>>98
PRINT (c MOD 10)
で出来るはず。

**デフォルトの名無しさん** · 2006/06/21(水) 09:03:00

乱数を使用し、サイコロを千回振り、１から６までの出現率を求めるプログラムの作成

十進BASICで頼む10時まで…

**デフォルトの名無しさん** · 2006/06/21(水) 09:11:18

１８０から４７０の範囲に入る乱数を発生させ、
２５０が発生したときに乱数の発生を止め、
範囲に入ったものの数、合計、平均、最大値、最小値を求めるプログラムの作成

これも頼む…

**デフォルトの名無しさん** · 2006/06/21(水) 10:56:57

>>100-101
もう答えても遅いのか？
でも100はなんとなくわかるが、101の「180から470の乱数を発生」
がわからんかもしれん。
1000までの乱数で180～470以外を無視する感じでいいんだろうか。

**デフォルトの名無しさん** · 2006/06/21(水) 12:13:45

>>102
もう終わった…
中途半端な感じで提出してしまったが…

ちなみに>>100は
DIM A(6)
RANDOMIZE
FOR J=1 TO 1000
LET S=INT(RND*6)+1
IF S=1 THEN LET A(1)=A(1)+1
IF S=2 THEN LET A(2)=A(2)+1
IF S=3 THEN LET A(3)=A(3)+1
IF S=4 THEN LET A(4)=A(4)+1
IF S=5 THEN LET A(5)=A(5)+1
IF S=6 THEN LET A(6)=A(6)+1
NEXT J
FOR J=1 TO 6
PRINT J;" ";A(J)
NEXT J
END
で

**デフォルトの名無しさん** · 2006/06/21(水) 12:16:13

>>101は
DIM A(500)
LET N=1
RANDOMIZE
DO
LET P=INT(RND*500)
IF P=250 THEN EXIT DO
IF P>180 AND P<470 THEN
PRINT P;" ";
LET A(N)=P
LET N=N+1
LET S=S+P
END IF
LOOP
LET N=N-1
LET K=1
FOR J=2 TO N
IF A(J)>A(K) THEN LET K=J
NEXT J
LET MAX=A(K)
LET K=1
FOR J=2 TO N
IF A(J)<A(K) THEN LET K=J
NEXT J
LET MIN=A(K)
LET MEAN=S/N

**デフォルトの名無しさん** · 2006/06/21(水) 12:17:43

PRINT "個数";N
PRINT "合計";S
PRINT "最大値";MAX
PRINT "最小値";MIN
PRINT "平均";
PRINT USING"#####.#":MEAN
END 　らしい…分からんてorz

**デフォルトの名無しさん** · 2006/06/24(土) 00:10:54

同じ行内で文字色を変えるにはどうすればいいんですか？
たとえば
PRINT "赤""青"
の赤を赤色、青を青色にする感じです。

あー、ホントだれか頼むよ。

**デフォルトの名無しさん** · 2006/06/24(土) 00:26:44

環境がわからんが、

PRINT "赤";
表示色を変える処理(COLOR 7とか)
PRINT "青"

じゃ駄目？

**デフォルトの名無しさん** · 2006/06/24(土) 10:57:26

>>107
それだと

赤
青

と表示されるけど、俺がしたいのは

赤青

と表示させるやつなのね…。
やっぱ無理なのかなー。
ちなみに俺の使ってるのは結構古い
ActiveBasic ver2.56です。
授業で配布されたヤツだしやっぱ新しいのにしようかなぁ…。

**デフォルトの名無しさん** · 2006/06/24(土) 12:38:21

100 FOR I=0 TO 7
110 COLOR I: PRINT MID$("イロイッカイズツ",I*2+1,2);
120 NEXT I
130 PRINT
140 COLOR 7

**107** · 2006/06/24(土) 15:46:08

ActiveBasicってセミコロン無視されるの？"赤青"って1行にならない？
　　　　　　　↓ココ
PRINT "赤";

**デフォルトの名無しさん** · 2006/06/24(土) 21:10:06

なるけど>>106が理解していないだけ。

**106** · 2006/06/25(日) 08:22:00

>>110
セミコロンの正しい使い方を学んだ。
トンクス！

**デフォルトの名無しさん** · 2006/06/29(木) 02:43:55

改行の入った文字列はどうやって読み込ませればいいんでしょうか？
例えば
A$="Λ Λ"
"(ﾟДﾟ)"
といった風です。
やはり変数を２つ使って２行に分けるしかないんですか？

**デフォルトの名無しさん** · 2006/06/29(木) 07:26:27

>>113
10 A$="Λ Λ"+CHR$(13)+CHR$(10)+"(ﾟДﾟ)"
20 PRINT A$

**113** · 2006/06/29(木) 17:52:39

>>114
ありがとうございました！助かりました！

**デフォルトの名無しさん** · 2006/07/03(月) 10:16:55

変数の色の指定とかってできないんですか？
A$=赤
みたいな感じです…

**デフォルトの名無しさん** · 2006/07/04(火) 23:05:15

課題なんです。
何か動くのを作れってゆう課題なんです。
そこで、何かお願いします！

**デフォルトの名無しさん** · 2006/07/04(火) 23:08:49

何で21世紀にもなってBASICの課題が存在してるの？

**デフォルトの名無しさん** · 2006/07/04(火) 23:10:39

>>117
10 print "ばか ";
20 goto 10
とかで大丈夫かな？

**117** · 2006/07/04(火) 23:19:28

>>118
あるみたいです。

>>119
大丈夫じゃないですね・・・
関数をグラフィックにして簡単な動画を。

**デフォルトの名無しさん** · 2006/07/04(火) 23:30:30

処理系も指定せずに関数をグラフィックにしてなんて言われてもな

**デフォルトの名無しさん** · 2006/07/04(火) 23:39:23

>>121
117 は問題をあと5,6 回に分けて小出しにして来ると思うから、
しばらくは静観してた方がいいよ。

**117** · 2006/07/05(水) 00:12:28

処理系はおまかせするよ。
花火が打ちあがる様とかゴルフの球がカップに入るのとかを作ったりしてるヤシもいる。

**117** · 2006/07/05(水) 00:20:47

ｽﾏｿ
処理系→(仮称)十進BASIC

**117** · 2006/07/05(水) 00:23:49

>>122
確かに小出しにしてる俺ガイル

**117** · 2006/07/05(水) 18:17:17

誰かおながい

**デフォルトの名無しさん** · 2006/07/05(水) 20:22:55

あと二個くらい条件が増えるのかなぁ……

**117** · 2006/07/05(水) 20:54:29

>>127
もう増えないです。
簡単なのでいいのでどうかおながいします・・・

**デフォルトの名無しさん** · 2006/07/05(水) 21:06:08

じゃあ、処理系 FBASIC ね
10 symbol(rnd*10,rnd*10),"BAKA",10,10,rnd*7
20 goto 10
もう条件は増えないからこれでおしまいだね。

**117** · 2006/07/06(木) 02:36:11

(仮称)十進BASIC

SET WINDOW 0,10,-1,10
SET POINT STYLE 4
LET t=0
LET dx=0
LET x=10
LET dt=0.0125
LET g=-9.8
LET f=1
DO WHILE t<10
LET t=t+dt
LET ox=x
LET odx=dx
LET x=ox+odx*dt
LET dx=odx+g*dt
PRINT "x=";x;"dx=";dx
CLEAR
PLOT POINTS : t,x
IF x<0 AND f=1 THEN
LET f=0
LET dx=-0.6*dx
END IF
IF x>0 AND f=0 THEN LET f=1
loop
END

こんな感じのに手を加えてみてください。

**デフォルトの名無しさん** · 2006/07/06(木) 03:52:12

>>127の言ったとおりだな。次は「XX日までにお願いします」とかかな？

**デフォルトの名無しさん** · 2006/07/06(木) 12:58:10

basicでクイズゲームみたいなの作りたいんですけど、
input文を使いつつ時間制限を設けるにはどうすれば？
inputが入ると(入力画面になると)そこで命令がとまってしまうわけですが、
やはりbasicでは無理でしょうか？

**デフォルトの名無しさん** · 2006/07/06(木) 14:15:06

on time gosub が使える BASIC があると思うので、その BASIC を使いなさい。

**デフォルトの名無しさん** · 2006/07/09(日) 18:31:48

>>132
INKEY$を使えばできるよ

**デフォルトの名無しさん** · 2006/07/12(水) 13:41:26

>>134
あ、できました!
どうもどうも

**デフォルトの名無しさん** · 2006/07/18(火) 21:43:05

waveファイルをリピート再生したいんですけど

mcisound "open "+chr$(34)+"D:\test.wav"+chr$(34)+" type waveaudio alias test
mcisound "play test notify",at
Do
if at=1 then mcisound "stop test":mcisound "seek test to start":mcisound "play test notify",at:at=0:
Loop

ではリピートに間ができてしまいます…
なんとかならないでしょうか？

**名無しさん** · 2006/07/23(日) 13:55:30

各桁の数字に、桁数乗したものの和が、
元の数字になるものを求める。こんなものをBASICで書いてもらえませんでしょうか？？

1^3+5^3+3^3=153(←こんなようなの)

よろしくお願いします！！

**デフォルトの名無しさん** · 2006/07/23(日) 16:40:04

誰かおながい

**デフォルトの名無しさん** · 2006/07/23(日) 17:38:09

>>137
110 I0=0:FOR I1=1 TO 9:FOR I3=1 TO 9:FOR I5=1 TO 9:FOR I2=1 TO 9
120 FOR I4=1 TO 9:FOR I8=1 TO 9
130 I6=I8^I5+I4^I3+I2^I1:I7=100*I8+10*I4+I2
140 IF I7=I6 THEN I0=I0+1:PRINT I0,I8;"^";I5;"+";I4;"^";I3;"+";I2;"^";I1;"=";I6
150 NEXT:NEXT:NEXT:NEXT:NEXT:NEXT
160 END

**名無しさん** · 2006/07/23(日) 22:11:08

>>139
ありがとうございます！
桁数を自分で指定して計算させられるようにできませんでしょうか？？
3桁以外も計算してみたいので。。。
わがままいって申し訳ございません・・・
よろしくお願いします！