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

1 名前：BASIC mailto:fh [2006/01/09(月) 15:35:00 ] N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい 身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する 2 名前：デフォルトの名無しさん mailto:sage [2006/01/09(月) 15:50:40 ] 10 PRINT "斉藤" 20 PRINT "鈴木" 30 PRINT "ゴンザレス" 40 END 3 名前：デフォルトの名無しさん mailto:sage [2006/01/10(火) 00:19:06 ] >>1 そんなことは無理 4 名前：デフォルトの名無しさん mailto:sage [2006/01/10(火) 18:26:48 ] ☀ 5 名前：BASIC mailto:fh [2006/01/15(日) 16:26:34 ] N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい 身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する 6 名前：デフォルトの名無しさん [2006/01/15(日) 16:41:53 ] 10 READ $NAME 20 READ $WAIT 30 READ $HEIGHT 40 READ $OLD 60 IF ($HEIGHT>=160)*($HEIGHT<170) THEN PRINT $NAME;$CHR(13) 50 IF (READ<>"END")*($WAIT<>0)*($HEIGHT<>0)*($OLD<>0) THEN 10 70 END 100 REM --BODY INFORMATION-- 110 DATA "SUZUKI",67,150,15 120 DATA "SATOU",80,180,24 130 DATA "ITO",74,170,18 140 DATA "TANAKA",90,190,20 150 DATA "YAMADA",45,168,16 160 DATA "SIMIZU",68,165,18 170 DATA END,0,0,0 180 REM --INFORMATION END-- 7 名前：デフォルトの名無しさん [2006/01/15(日) 16:44:31 ] $の位置が逆じゃね？ 8 名前：デフォルトの名無しさん [2006/01/15(日) 16:55:11 ] デバッグしますた。(´･ω･`)ｼｮﾎﾞｰﾝ 10 READ NAME$ 20 READ WAIT 30 READ HEIGHT 40 READ OLD 60 IF (HEIGHT>=160)*(HEIGHT<170) THEN PRINT NAME$;CHR$(13) 50 IF (NAME$<>"END")*(WAIT<>0)*(HEIGHT<>0)*(OLD<>0) THEN 10 70 END 100 REM --BODY INFORMATION-- 110 DATA "SUZUKI",67,150,15 120 DATA "SATOU",80,180,24 130 DATA "ITO",74,170,18 140 DATA "TANAKA",90,190,20 150 DATA "YAMADA",45,168,16 160 DATA "SIMIZU",68,165,18 170 DATA END,0,0,0 180 REM --INFORMATION END-- 9 名前：デフォルトの名無しさん [2006/01/15(日) 17:02:15 ] MZ-1200 SP-5030なら上で動くはずだけど、下の場合は動かない。 でも、Tiny Basic for Windowsだとエラーがでた。 下でないとエラーが出る。 10 READ NAME$ 20 READ WAIT 30 READ HEIGHT 40 READ OLD 50 IF (HEIGHT>=160) and (HEIGHT<170) THEN PRINT NAME$;CHR$(13) 60 IF (NAME$<>"END") and (WAIT<>0) and (HEIGHT<>0) and (OLD<>0) THEN 10 70 END 80 REM --BODY INFORMATION-- 110 DATA "SUZUKI",67,150,15 120 DATA "SATOU",80,180,24 130 DATA "ITO",74,170,18 140 DATA "TANAKA",90,190,20 150 DATA "YAMADA",45,168,16 160 DATA "SIMIZU",68,165,18 170 DATA "END",0,0,0 180 REM --INFORMATION END-- 10 名前：BASIC mailto:ｆｈ [2006/01/15(日) 20:31:18 ] N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい 年齢が３０歳以下の人の、体重と身長の平均値を計算し表示する 11 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 20:56:11 ] 1 N=10 2 FOR I=1 TO N: READ NA$,W,H,A:IF A<=30 THEN WA=WA+W: HA=HA+H: M=M+1:NEXT 3 IF M<>0 THEN PRINT "30歳以下の平均体重、身長:"; WA/M, HA/M 4 DATA （以下略） 12 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 23:06:54 ] お願いします。 N個のデータがエクセルで入力されている。OPEN文を用いて、最大値と 平均値を求めるプログラムをBASICで作成しなさい。 データはこんな感じで並んでいます。 2 4 6 8 9 3 1 7 5 13 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 23:33:29 ] エクセルがあるんならエクセルで計算しろよ 14 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 23:35:08 ] >>13 宿題だからそうはいかないんです。 15 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 01:20:16 ] >>14 じゃぁ、自分でやれ。 16 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 03:32:56 ] ぬるぽ 17 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 03:58:06 ] 　　　　 >>16さんｶﾞｯなの！ 　　　　＼＿＿＿　 ＿＿＿/　ミ'' ''ヽ 　　　　　　　　　　Ｖ　　　　　　　 ミ　　 ',　　- - ―― 　 　　　　　　 　―　┼―ヽl　　　,､ l/ ミ;ヽ　　　ミ 　 ',　　　―　　 ＼　　　　/　　 　　　　　　〃")' ~´ﾍﾍ)"ヽ ミ; , l＼　:: 　',　　＼　,-､,-､/ - - ―　　!(　ソﾉ八)ヽ） ｿ　　'' :,ヽ＼::　lヽ￣―-('∀`；）―　 　- - ―――ヾl._ﾟヮﾉ!.　　　.-[／二──―　-_C　Ｏ）>>6 　　　　(二====O===O三二=［!=!●二二二二==-○　　￣三二＝−― - - ―――　./ｿ､j､iヾ. ﾍゝ. -[＼二──￣　　,―ﾉ￣ﾉ 　- 　- - ―――~(_/ '-'~　 　　,,; ,''/／::　 .lﾉ ―┼（　　　）―　-　　 　　　　　　　　　　　　　　　彡　'l／　::　 ,'　　　―　 / /.:^⌒^ ﾟ ＼丶 - - ―――　┼―　　 彡:;, ﾉ　　 彡　 ,'　　- 　　　　　　　　　　　　　　　　　　 彡 　 ,'　- - ―― 　　――　　　　　　　　　　　　　彡,, ,,ﾉ 18 名前：BASIC mailto:ｆｈ [2006/01/17(火) 12:12:13 ] キーボードより入力したデータの中で最大値と最小値を求める プログラムを作成しなさい。０を入力した場合に終了 19 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 16:36:20 ] 10 INPUT "C:>",KEY$ 20 IF KEY$="0" THEN END 30 NEW 20 名前：BASIC mailto:fh [2006/01/18(水) 15:54:39 ] N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい 最も体重の軽い人の名前を表示する 21 名前：デフォルトの名無しさん mailto:sage [2006/01/18(水) 21:33:16 ] 110 N=5:DIM NA$(N) 120 FOR I = 1 TO N 130 READ NA$(I),W,H,A 140 PRINT "No.";I,"体重";W 150 NEXT 160 INPUT "一番体重の軽い番号を入力して下さい:", X 170 IF X <= 0 OR N < X THEN 160 180 PRINT "一番体重の軽い人は "; NA$(X); " です." 190 END 200 DATA "SUZUKI",67,150,15 210 DATA "SATOU",80,180,24 220 DATA "ITO",74,170,18 230 DATA "TANAKA",90,190,20 240 DATA "YAMADA",45,168,16 22 名前：デフォルトの名無しさん mailto:sage [2006/01/19(木) 00:27:12 ] 10 REM >>21 20 PRINT "WAROTA" 22 GOTO 23 23 名前：BASIC mailto:ｆｈ [2006/01/19(木) 17:00:01 ] N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい 体重が６０ｋｇ以上で、身長が１５０ｃｍ未満の人の名前を表示する 24 名前：デフォルトの名無しさん mailto:sage [2006/01/19(木) 17:08:43 ] >>23 それってすごく失礼だと思う。 25 名前：BASIC mailto:ｆｈ [2006/01/19(木) 17:08:48 ] N人分のデータ（氏名、住所、電話番号）がＤＡＴＡ文で入力されているプログラムが ある。 氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成 しなさい 26 名前：デフォルトの名無しさん mailto:sage [2006/01/19(木) 17:50:58 ] 10 INPUT "氏名を入力して下さい"; NA$ 20 PRINT "個人情報保護の観点からお答えできません。ご了承下さい。" 30 END 27 名前：デフォルトの名無しさん mailto:sage [2006/01/19(木) 17:58:42 ] 10 INPUT "氏名を入力して下さい"; NA$ 20 PRINT "データに無い人の住所とか表示できません。" 30 PRINT "データにある人の住所だったらデータをそのまま読んだ方が早いです。" 40 END 28 名前：BASIC mailto:fh [2006/01/20(金) 17:15:33 ] N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい 体重が６０ｋｇ以上で、身長が１５０ｃｍ未満の人の名前を表示する 29 名前：デフォルトの名無しさん mailto:sage [2006/01/20(金) 17:17:49 ] >>28 先生、作ったら、名前を表示された人が自殺しました。 30 名前：デフォルトの名無しさん mailto:sage [2006/01/20(金) 23:51:31 ] デスノート型のPCで表示したお前が悪い。 31 名前：デフォルトの名無しさん [2006/01/22(日) 17:22:19 ] 奇数ｎ*nの魔方陣をｎを入力するだけで作るプログラムを誰か作って。 32 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 19:05:50 ] >>31 奇数×奇数の魔方陣の作り方 1. 上段の中央を1にする 2. 右上に次の数字を置いていく（最上段の上は最下段になる。） 3. 右上が埋まっていたら一つ下に次の数字を置く 4. 再び右上へと数字を埋めていく 5. 後は3,4の繰り返しで完成 33 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 19:41:20 ] それはわかるけどそれをどうやるかわからん。 二次元配列？ 34 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 20:34:11 ] >>33 10 DIM A(99,99):INPUT "n";N:IF N MOD 2 = 0 THEN PRINT "（　´,_ゝ｀）ﾌﾟｯ":END 20 X=N\2+1:Y=1:FOR I=1TO N*N:A(Y,X)=I:X=(X+(I MOD N=0)) MOD N+1:Y=Y+(I MOD N<>0)*2+1-((Y-(I MOD N=0)*2-1)=0)*N:NEXT 30 FOR I=1TO N:FOR J=1TO N:PRINT A(I,J);:NEXT:PRINT:NEXT:END 35 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 21:12:39 ] それでやってみたけど>>32のやりかたじゃなくね？ できることは出来るけど>>34の原理がわかんね 36 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 21:20:22 ] できたよ！まじさんくす 37 名前：デフォルトの名無しさん [2006/01/23(月) 01:42:52 ] すばらすぃスレを発見！！ よかったら私のもお願いできませんでしょうか・・・(´Д｀;) 課題9 ttp://www.imgup.org/iup151444.gif 課題11 ttp://www.imgup.org/iup151447.gif ttp://www.imgup.org/iup151450.gif 課題12 ttp://www.imgup.org/iup151453.gif 課題13 ttp://www.imgup.org/iup151455.gif 課題14 ttp://www.imgup.org/iup151456.gif ttp://www.imgup.org/iup151457.gif どうか、よろしくお願い致します(´･ω･`) 38 名前：デフォルトの名無しさん mailto:sage [2006/01/23(月) 06:40:35 ] >>37 テキストで打ち込め。 画像なんか一々見ていられるか。 お前の手下のいるスレじゃないんだ。 力を貸してくれる人に対して、閲覧の手間くらいは省こうという 気はないのか? 何でもかんでも、人任せにするんじゃない。 39 名前：デフォルトの名無しさん [2006/01/23(月) 09:35:36 ] 他力本願もここまでくると天晴れだなｗ 40 名前：デフォルトの名無しさん mailto:sage [2006/01/23(月) 10:54:16 ] >>38 Basic課題９　(2005/11/24) １．配列に以下の値を代入して以下の計算をしなさい。 111+112+113+114+115+116+117+118+119+120+121=? 配列に代入した値も表示する。プログラムと結果を提出する。 ２．配列に適当な値(15〜19個ぐらい)を代入(読み込む）しその値を出力 する。総和、平均、標準偏差を求め出力しなさい。配列内の値を小さい 順に並べて出力しなさい。 41 名前：デフォルトの名無しさん mailto:sage [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↓ 42 名前：デフォルトの名無しさん mailto:sage [2006/01/23(月) 11:03:28 ] 課題11図省略 ttp://www.imgup.org/iup151447.gif ttp://www.imgup.org/iup151450.gif を参照（全部で3つ） 43 名前：デフォルトの名無しさん mailto:sage [2006/01/23(月) 11:06:38 ] Basic課題１２（2005/1/11） 問　以下の処理を1つのプログラムで記述します。プログラムは1つです。 １．5行5列の行列[A]にデータを入力し、表示しなさい。 データは不規則な値とする。 ２．行列[A]の転置行列を行列[B]に代入し表示しなさい。 ３．行列[A]＋行列[B]の計算をして表示しなさい。 ４．行列[A]−行列[B]の計算をして表示しなさい。 ５．行列[A]＊行列[B]の計算をして表示しなさい。 プログラムと結果を提出します。 44 名前：デフォルトの名無しさん mailto:sage [2006/01/23(月) 11:08:13 ] 秋田。あとよろしく 45 名前：デフォルトの名無しさん [2006/01/23(月) 11:44:35 ] せめて どこまでできたのか、何が分からないのか、 を書けよ。 ほんとに全部まる投げか？ 46 名前：デフォルトの名無しさん mailto:sage [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) 47 名前：デフォルトの名無しさん mailto:sage [2006/01/23(月) 19:33:09 ] ごめんなさい・・・(；ω；) 全然わからないんです・・・orz　(・ー・）ｵﾜｯﾀﾅ･･･ 皆さん、ご迷惑をおかけして申し訳ございませんでした・・・(´つω-`) 48 名前：BASIC mailto:fh [2006/01/23(月) 22:05:08 ] N人分のデータ（氏名、住所、電話番号）がＤＡＴＡ文で入力されているプログラムが ある。 氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成 しなさい 49 名前：デフォルトの名無しさん mailto:sage [2006/01/24(火) 00:16:13 ] 良スレハケーン Microsoft Visual Studio .NETなんですが よくある３×３マスの○×ゲームのソースをお願いできないでしょうか 50 名前：デフォルトの名無しさん mailto:sage [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 51 名前：49 mailto:sage [2006/01/24(火) 01:29:11 ] >>50 サンクス 助かりました 52 名前：デフォルトの名無しさん [2006/01/24(火) 11:32:45 ] 宿題スレだろ？いじわるなやつばっかだなｗってか、おまえらわからないんだろ？あ？俺はしらね 53 名前：デフォルトの名無しさん mailto:sage [2006/01/24(火) 11:42:55 ] 宿題ってのは自分でやるもんだ。 54 名前：BASI mailto:fh [2006/01/25(水) 11:01:03 ] N人分のデータ（氏名、住所、電話番号）がＤＡＴＡ文で入力されているプログラムが ある。 氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成 しなさい 期日が迫っているので、だれか早くこたえてくれ！！ 55 名前：デフォルトの名無しさん mailto:sage [2006/01/25(水) 11:17:34 ] 問題は DATA 文が65536 行あるって点だな。 56 名前：デフォルトの名無しさん mailto:sage [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" 57 名前：ＢＡＳＩＣ mailto:ｆｈ [2006/02/04(土) 13:46:27 ] 三角関数の値を０度から１８０度まで計算するプログラム を作成しなさい（ＦＯＲーＮＥＸＴを用いて） ただし、Ｒ＝３．１４１５９/180とすると、sin(R*30)でsin30度の 値を求めることができる。 値を 58 名前：デフォルトの名無しさん mailto:sage [2006/02/04(土) 13:59:11 ] >値を sin(R*30) = 0.499999616987256 59 名前：デフォルトの名無しさん [2006/02/04(土) 19:21:23 ] ﾌﾟﾛｸﾞﾗﾐﾝｸﾞの勉強をしようと思って、ｲﾝﾀｰﾈｯﾄを使っていろいろ試してみた。 それで最終的にTinyBASICに落ち着いた。 他にもVB.NET・ActiveBasic・REALbasicがあるのを知っている。 その中からTinyBASICを選んだ俺の選択は正しかったですか？ 60 名前：デフォルトの名無しさん mailto:sage [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関数ってラジアンなんですか？ 61 名前：デフォルトの名無しさん mailto:sage [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度まで 表示するプログラムつくれ 62 名前：デフォルトの名無しさん mailto:sage [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 63 名前：61 mailto:sage [2006/02/07(火) 19:53:48 ] >>62 ありがとうございました。 64 名前：デフォルトの名無しさん mailto:sage [2006/02/08(水) 14:39:42 ] >>59 There are a lot of roads that can be chosen. However, the aimed top is one. 65 名前：デフォルトの名無しさん mailto:sage [2006/02/10(金) 02:05:17 ] ぬるぽ 66 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 02:02:30 ] 　　　　　　 ＿ ┌――─┴┴─――┐ │　セルフサービス　.│ └―――┬┬─――┘ 　 　 　 　 ││　　 .／ 　　　　 　゛゛'゛'゛　／ 　　　　　　　　 ／ 　　　　 | ＼／ 　　　　 ＼　＼ 　　　　　　＼ノ ｶﾞｯ はセルフサービスになりました。 使用方法は以下のようになります 　　　　 ∧ 　　ｶﾞｯ< 　>＿∧ ＝　()二)Ｖ｀Д´）＜ぬるぽ 　　　　＼ヽ ﾉ　） 　　　　ﾉ(○´ノ 　　　（＿ﾉ（_＿） 尚、使用方法を誤ると、最悪の場合、命を落とす危険性がございますので、 初めてご使用される方は、各都道府県に設置してある専門の窓口に相談下さい。 財団法人 全日本 ぬるぽｶﾞｯ セルフ振興会 67 名前：BASIC mailto:fh [2006/03/14(火) 20:50:41 ] 予約語ってなんですか？ 68 名前：デフォルトの名無しさん mailto:sage [2006/03/14(火) 22:15:10 ] 使用が予約された言葉 69 名前：http://www.vector.co.jp/soft/win95/util/se072729.html mailto:http://msdn2.microsoft.com/ja-jp/library/h2k70f3s.aspx [2006/03/18(土) 20:25:48 ] TextSS　のWindowsXP(Professional)64bit化おながいします もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？ 70 名前：デフォルトの名無しさん [2006/05/16(火) 23:29:02 ] Visual Basicで3つの数の最小公倍数を表示するプログラムをお願いします。 71 名前：デフォルトの名無しさん mailto:sage [2006/05/17(水) 00:10:27 ] >>70 MsgBox "2, 3, 4の最小公倍数は12です。" 72 名前：デフォルトの名無しさん mailto:sage [2006/05/17(水) 00:19:36 ] 「3つの数の最小公倍数」のような数を列挙する時、 3 つの数が全て等しい場合なども考慮して良ければ自然数全体になるから、 1 から始めて 1 ずつ増やしながらコンピュータの限界まで数を表示し続ければ 良いでしょう。 もし異なるとすると厄介ですね。 一つの数が 1 でよいなら素数と素数の二乗を除いた全ての数になりますが、 これはちょっと難しいかも。 1 を許さないとするとかなり複雑になりますね。 73 名前：デフォルトの名無しさん mailto:sage [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 74 名前：デフォルトの名無しさん mailto:sage [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 75 名前：デフォルトの名無しさん mailto:sage [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 76 名前：デフォルトの名無しさん mailto:sage [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 77 名前：70 [2006/05/19(金) 00:56:45 ] やはり難しいのでしょうかね 弟の高校の課題っぽいんですが、Cで作ったら全然違うとのこと 資料を送ってもらったらBASICっぽいのですが、BASICなんて分からないです… gcmとかlcmで一発で動いてくれるようなコマンドはないのでしょうかね… 78 名前：デフォルトの名無しさん mailto:sage [2006/05/20(土) 03:36:37 ] >>77 なあなあ、お前完全に>>72に騙されてるんだが。 79 名前：デフォルトの名無しさん [2006/05/20(土) 11:13:57 ] >>78 誰も書いてくれないので難しいものなのかなと思いましたが そんなわけないですよね。 まあ>>72は読んですぐスルーしましたけど。 80 名前：デフォルトの名無しさん mailto:sage [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; } 81 名前：デフォルトの名無しさん mailto:sage [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 82 名前：デフォルトの名無しさん mailto:sage [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 83 名前：デフォルトの名無しさん mailto:sage [2006/05/20(土) 15:41:02 ] >>81-82 ありがとうございました。 84 名前：デフォルトの名無しさん mailto:sage [2006/05/25(木) 23:18:38 ] ピクチャーボックスにrgbを使って上から順に明るい色から暗い色の グラディエーションを表示するプログラムの作成お願いします。 85 名前：デフォルトの名無しさん mailto:sage [2006/05/25(木) 23:59:32 ] 嫌です。 86 名前：デフォルトの名無しさん [2006/05/29(月) 20:32:36 ] 好きな数字を入力して、その1部や全体が連続して居ないか調べて、 もしあればその部分を知らせるプログラムお願いしますｍ_ _ｍ たとえば、 87 名前：デフォルトの名無しさん mailto:sage [2006/05/29(月) 20:33:49 ] 「2112」なら、1が連続してるので1を 「19529523」なら952が連続してるので952をといった風です すみません。切れましたorz 88 名前：デフォルトの名無しさん mailto:sage [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 89 名前：86 mailto:sage [2006/05/29(月) 23:02:07 ] >>88 ありがとうございます 90 名前：デフォルトの名無しさん mailto:sage [2006/06/12(月) 15:39:03 ] >>50 腹抱えてワロタ 91 名前：デフォルトの名無しさん mailto:sage [2006/06/15(木) 22:56:25 ] プログラムに時間の間を与えるにはどうすればいいんでしょうか？ たとえば実行してから１秒後に"１秒経過しました"と表示させる場合とか。 92 名前：デフォルトの名無しさん mailto:sage [2006/06/16(金) 00:20:11 ] >>91 つ TIME$ 93 名前：デフォルトの名無しさん mailto:sage [2006/06/16(金) 18:00:01 ] >>91 1 sleep(1000) 2 print "１秒経過しました" 94 名前：91 mailto:sage [2006/06/17(土) 00:14:03 ] >>93 サーンクス！！ 95 名前：デフォルトの名無しさん mailto:sage [2006/06/18(日) 16:40:09 ] beep音て変えれないの？ 96 名前：デフォルトの名無しさん mailto:sage [2006/06/18(日) 16:52:14 ] >>95 つ play 97 名前：デフォルトの名無しさん mailto:sage [2006/06/19(月) 00:32:40 ] BEEP音でPCM再生とか昔あったなぁ 98 名前：デフォルトの名無しさん [2006/06/19(月) 01:55:56 ] a=FIX(RND(1)*10):b=FIX(RND(1)*10) c=a+b PRINT c のときのcの一桁目の数だけPRINTするにはどうすればいいんでしょうか？ 文字列じゃないんでRIGHT$ではエラーになってしまいます・・・ 99 名前：デフォルトの名無しさん mailto:sage [2006/06/19(月) 20:06:10 ] >>98 PRINT (c MOD 10) で出来るはず。 100 名前：デフォルトの名無しさん [2006/06/21(水) 09:03:00 ] 乱数を使用し、サイコロを千回振り、１から６までの出現率を求めるプログラムの作成 十進BASICで頼む10時まで… 101 名前：デフォルトの名無しさん [2006/06/21(水) 09:11:18 ] １８０から４７０の範囲に入る乱数を発生させ、 ２５０が発生したときに乱数の発生を止め、 範囲に入ったものの数、合計、平均、最大値、最小値を求めるプログラムの作成 これも頼む…

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef