- 締切済み
このプログラムどこでできるの？
- みんなの回答 （4）
- 専門家の回答
みんなの回答
- he-goshite-
- ベストアンサー率23% (189/802)
言語はBASICですね。 BASICのシステムがあれば入力して実行できます。 ※しかし４行目「40 NEXT 20」は意味不明。エラーになるかも・・・ フリーで入手できるBASICをご紹介します。 「(仮称)十進BASICのホームページ」 http://hp.vector.co.jp/authors/VA008683/
- elttac
- ベストアンサー率70% (592/839)
お示しになっているのは，BASIC と呼ばれる言語です。 処理系としては，無償公開されている「Active Basic」がおすすめです。ただし，お示しになっているのは「古典的な」BASIC ですので，「N88 互換モード」で入力・実行させてください。
- asora
- ベストアンサー率37% (117/308)
Basicですね。 PC上ならVBがいるかな。 あと、工業高校の実習で使っているポケコンなんかでもできますけど…。
- asuca
- ベストアンサー率47% (11786/24626)
visual Basicがいるのでは？ 情報が少なすぎて何ともいえませんが。
関連するQ&A
- n88basicのプログラムを十進ベーシックに翻訳してください。
n88basicの次のプログラムを十1進ベーシックではどうなるのか教えてください。 10 cls 20 p=1000 30 for n=1 to 1000:next n 40 p=p-1 50 if p=-1 then end 60 locate 10,10:print p 70 goto 30
- 締切済み
- その他（インターネット・Webサービス）
- Tiny Basicのプログラムでもうひとつ。。
三角形の三辺の長さを入力し、面積を求めるプログラムを作成せよ。三角形の面積はヘロンの公式を用いて求める。ヘロンの公式による面積計算部分を関数プログラムとして作成せよ。 ヘロンの公式：三辺の長さをa,b,cとすると,(s(s-a)(s-b)(s-c))^2 s =(a+b+c) それで僕なりに作ってみたんですが cls print"入力した数字から三角形の面積を求めます" input a,b,c s=(a+b+c)/2 A=(s-a)*(s-b)*(s-c) B=A*s M=(B^2) print M end が副プログラムを入れないで作ったもので cls print"入力した数字から三角形の面積を求めます" input a,b,c print Mb3 end Function mb3 s=(a+b+c)/2 A=(s-a)*(s-b)*(s-c) B=A*s M=(B^2) print M end function になるんですがなぜだか結果が０になってしまいます なぜでしょうか？
- ベストアンサー
- Visual Basic
- basic プログラムです。
100 DIM A(5) 110 FOR J=1 TO 5 120 READ A(J) 130 NEXT J 140 FOR I=1 TO 4 150 LET K=1 160 FOR J=I+1 TO 5 170 IF A(J)<A(K) THEN LET k=J 180 NEXT J 190 LET T=A(I) 200 LET A(I)=A(K) 210 LET A(K)=T 220 FOR J=1 TO 5 230 PRINT A(J); 240 NEXT J 250 PRINT 260 NEXT I 270 DATA 5,3,7,2,1, 280 END を実行すると １３７２５ ３１７２５ ３１２７５ ７１２３５ という数字が出てきます。 どうしてこのような結果が出るのか 解説をお願いします。
- 締切済み
- 数学・算数
- Tiny Basicのプログラムです。。
Tiny Basicのプログラムで 試験の成績を入力し、30点未満なら青点、30点以上50点未満なら赤点、50点以上なら合格と表示するプログラムを作成せよ。青点、赤点、合格を判定する部分は副プログラムとして作成せよ。 という問題があったんです。 それで僕は Cls input A Call Q Sub Q END Select Case A=A Case A=<29 print"青点" Case A=>50 print"合格" Case else print"赤点" End Select End sub というプログラムをつくったんですがどんな点数を入れても青点って結果がでてしまうんです。 どうしたらいいんでしょうか？
- ベストアンサー
- Visual Basic
- basicプログラムです。
100 DIM A(5) 110 FOR J=1 TO 5 120 READ A(J) 130 NEXT J 140 FOR I=1 TO 4 150 LET K=I 160 FOR J=I+1 TO 5 170 IF A(J)<A(K) THEN LET k=J 180 NEXT J 190 LET T=A(I) 200 LET A(I)=A(K) 210 LET A(K)=T 220 FOR J=1 TO 5 230 PRINT A(J); 240 NEXT J 250 PRINT 260 NEXT I 270 DATA 5,3,7,2,1, 280 END このようなプログラムがあります。 いろいろ調べたのですがそれぞれの文の意味と 何を求めるプログラムか教えて下さい。 ５つの数の組み合わせで小さい数から順番に４個 かなと思ったのですが？？？
- ベストアンサー
- その他（学問・教育）
- プログラムの意味がわからなくて困っています
こんにちは。以下のプログラムの意味がわからなくて困っています。分数q/p（p、qはともに正の整数）に関係するもので、3/13を入力したときの出力と、配列R（）がどんな変化をしていくかを教えてください。 100 option base 0 110 dim A(1000) 120 dim R(999) 130 let N=1000 140 for I=0 to N-1 150 let R(I)=0 160 Next I 170 do 180 print"分母p="; 190 input P 200 if (P>N) then 210 print"分母は1000以下にしてください” 220 end if 230 loop while(P>N) 240 print"分子q="; 250 input Q 260 let A(0)=int(Q/P) 270 let Q=mod(Q,P) 280 let K=0 290 Do 300 let K=K+1 310 let R(Q)=K 320 let Q=Q*10 330 let A(K)=int(Q/P) 340 let Q=mod(Q,P) 350 loop while (R(Q)=0) 360 print A(0);"."; 370 for I=1 to R(Q)-1 380 print A(I); 390 next I 400 if (R(Q)<K) or (A(K)<>0) then 410 print "{"; 420 for I=R(Q) to K 430 print A(I); 440 next I 450 print"}"; 460 end if 470 end 100から160までで配列Aを1000個、配列Rを999個準備し、配列Rの中身を0にしている。 170から230で分母Pに13を入れ分母が1000以下になることを確認している。1000以上であれば、1000以下になるまでループ内を繰り返す。 240以下で分子を入れているようですが、ここからよくわからなくなってしまいました。 よろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- プログラムの組み方について
ウインドウズ９８とエクセルとワードを使っていますが、 かつてのＢＡＳＩＣのようなプログラムを組んで実行 させることは可能なのでしょうか？例えば １０ Ａ＝１ ２０ Ａ＝Ａ＋１：ＩＦ Ａ＞９ ＴＨＥＮ ５０ ３０ ＦＯＲ Ｂ＝１ ＴＯ Ａ：ＰＲＩＮＴ Ｂ ４０ ＧＯＴＯ ２０ ５０ ＰＲＩＮＴ Ａ ６０ ＥＮＤ というような簡単なものでいいのですが・・・。 どなたか教えて下さい。よろしくお願いします。
- 締切済み
- その他（プログラミング・開発）
- このプログラムは何言語？何のプログラム？
このプログラムは何言語？何のプログラム？ 手掛かり的な情報は全く無いのです。 10 CLS:CGSET 1,0 20 DEF SPRITE 0,(0,1,0,0,0)= CHR$(1)+CHR$(0)+CHR$(3)+CHR$(2) 30 SPRITE ON 40 FOR X=0 TO 240 50 SPRITE 0,X,120 60 PAUSE 3 70 NEXT
- ベストアンサー
- その他（プログラミング・開発）
- 小町算のプログラムについて
小町算のプログラムについて 100 DIM s(9) 110 FOR i=1 TO 9 120 LET s(i)=-1 130 NEXT i 140 DO 150 LET sum=0 160 LET num=0 170 LET sign=1 180 FOR i=1 TO 9 190 IF s(i)<>0 THEN 200 LET sum=sum+sign*num 210 LET sign=s(i) 220 LET num=i 230 ELSE 240 LET num=10*num+i 250 END IF 260 NEXT i 270 LET sum=sum+sign*num 280 IF sum=100 THEN 290 FOR i=1 TO 9 300 IF s(i)= +1 THEN PRINT " + "; 310 IF s(i)= -1 THEN PRINT " - "; 320 PRINT i; 330 NEXT i 340 PRINT " = 100" 350 END IF 360 LET i=9 370 LET sign=s(i)+1 380 DO WHILE ( sign > 1 ) 390 LET s(i)=-1 400 LET i=i-1 410 LET sign=s(i)+1 420 LOOP 430 LET s(i)=sign 440 LOOP WHILE ( s(1) < 1) 450 END というものですが、このプログラム中にあるsum、num、signとはどういう意味があるのでしょうか？
- ベストアンサー
- 数学・算数
- プログラム（BASIC） 教えてください
（１） INPUT文で入力した整数 k に対し， 3, 5, 7, 9 のいずれかの値をランダムに等確率で発生し，改行せず横に続けて k個 表示させるプログラム （２）初項 a ，公差 r ，長さ n の等差数列 a, a+r, a+2r, ..., a+(n-1)r のいずれかの値を等確率で発生させるためには，乱数をどのような式で作れば良いか？ INPUT文で与えられた a, r, n, k に対して，この等差数列のいずれかの値をランダムに k 個表示させるプログラム （１）は0,2,4,6を考えてから＋3すればいいと思うのですがランダムに0,2,4,6を表示するプログラムの仕方が分かりません。 10 INPUT k 20 FOR L=1 TO k 30 RANDOMIZE 40 PRINT INT( )+3; 50 NEXT L 60 END 解説があるとありがたいです。
- ベストアンサー
- 情報工学
