ベストアンサー

プログラミングについて教えてください

2014/07/30 14:53

(仮称)十進BASICのプログラミングについて質問です nCrを求めるプログラム INPUT n.r LET p=1 FOR k=(1) TO (2) LET p=p✳︎(3)/(4) NEXT k PRINT p END (1)～(4)に入る数式や文字を2通り教えてください

m_r_o
お礼率100% (130/130)

その他（インターネット・Webサービス）
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

KEIS050162
ベストアンサー率47% (890/1879)

2014/07/30 15:29 回答No.1

（１）　　１（２）　　ｒ（３）　　（ｎ－ｒ＋ｋ）（４）　　ｋ入力のエラーチェックなどはしていないので、前提として、０＜ｒ＜ｎ、ｒ、ｎは自然数　である必要があります。

質問者

お礼 2014/07/30 22:38

回答はやくて助かりました！ありがとうございました。

関連するQ&A

十進BASICでのsin(x)の近似のグラフ化について

十進BASICを使っています。 sin(x)=x-x^3/3!+x^5/5!-...　について、グラフで確かめようと思いプログラミングしてみたんですが、３行目でt=36以上にするとグラフが描かれなくなってしまいます。どこを直せばt>35でもグラフが描かれるようになるのか教えていただけないでしょうか。よろしくおねがいします。 LET w=30 LET s=0.1 LET t=30 DIM p1(t) DIM p2(t) SET WINDOW -w,w,-w,w SET POINT STYLE 1 DRAW AXES0 FOR n= 1 TO t LET p1(n)=(-1)^(n+1) LET p2(n)=2*n-1 NEXT n SET LINE COLOR 15 FOR x= -w TO w STEP s LET y=SIN(x) PLOT LINES: x,y; NEXT x PLOT LINES SET LINE COLOR 1 FOR x= -w TO w STEP s WHEN EXCEPTION IN LET y=0 FOR n= 1 TO t LET y=y+p1(n)*x^p2(n)/FACT(p2(n)) NEXT n PLOT LINES: x,y; USE PLOT LINES END WHEN NEXT x END
十進ベーシックでrenum命令がわかりません。教えてください。

次の十進ベーシックの行を順番に並べるにはどうしたらいいのですか？ 10 LET p=1000000 20 LET p=p-1 30 IF p=0 THEN GOTO 100 100 beep 261.63,500 110 beep 293.66,500 120 beep 329.6,500 22 PRINT p 12 FOR n=1 TO 100000000 13 NEXT n END
行列の積のプログラム

n次正方行列X=(xij),Y=(yij)の積XYの(i,j)成分はΣ(k=1,n)xikykjで定義する。これをmin{k∈1,2,…n}(xik+ykj)と変更したとき行列の積を計算するプログラムの作成をしたいです。 ※minXは、Xの中の最小値を意味する。十進BASICで解きたいのですが、以下のプログラムで間違いがあったら指摘してただけないでしょうか？よろしくお願いします。 INPUT N DIM X(n,n) DIM Y(n,n) DIM Z(n,n) INPUT X(n,n) INPUT Y(n,n) FOR i = 1 TO n 　FOR j = 1 TO n 　　LET Z(i,j) = X(i,1) * Y(1,j) 　　　FOR k = 2 TO n 　　　　IF Z(i,j) > X(i,k) * Y(k,j) THEN LET Z(i,j) = X(i,k) * Y(k,j) 　　NEXT k 　NEXT j NEXT i INPUT Z(n,n) END
Basicのプログラミングについて・・・。

Basicのプログラミングについて・・・。以下のプログラムの最小値の出力をプラスの値にしたいのですが、どうしても-1を入力すると最小値が-1になってしまします。 While n >=0で定義してあるのになぜでしょう? わかる方教えてください。 Sum = 0 Ave = 0 Counter = 0 Input "数を入力して下さい。"; n Maxim = 0 Minimum = 0 While n >=0 Sum = Sum + n Counter = Counter + 1 Input "数を入力して下さい。"; n P=P+n^2 SD=(P/Counter-Ave^2)^1/2 If n>Maxim Then Maxim = n End If If n<=Minimum Then Minimum = n End If Wend SD=(P/Counter-Ave^2)^1/2 If Counter > 0 then Ave = Sum/Counter Print "入力回数 = ";Counter Print "和　= ";Sum Print "平均 = ";Ave Print"標準偏差=";SD Print"最大値=";Maxim Print"最小値=";Minimum End if End
BASICのプログラミングについて・・・。

BASICのプログラミングについて・・・。以下のプログラムに最大値を表示させるプログラムを追加させたいのですがまったくわかりません。どこにどの文を当てはめればうまくいくのかも見当つきません。解答例など挙げていただけると非常にありがたいです。 Web等で念入りに調べたのですが、なかなか理解できませんでした。なので自分で調べろ等の解答はなしでお願いします。 Sum = 0 Ave = 0 Counter = 0 Input "数を入力して下さい。"; n While n >=0 Sum = Sum + n Counter = Counter + 1 Input "数を入力して下さい。"; n P=P+n^2 SD=(P/Counter-Ave^2)^1/2 Wend SD=(P/Counter-Ave^2)^1/2 If Counter > 0 then Ave = Sum/Counter Print "入力回数 = ";Counter Print "和　= ";Sum Print "平均 = ";Ave Print"標準偏差";SD End if End
プログラミング　十進BASIC

はじめまして。パソコン超初心者のものです。十進BASICで10進法を16進法に変換するプログラムを以下のように作成したとき、文字の表している意味がわからず、120から表現しているようなことはわかる気がするのですがいまいちはっきりわかりません。わかるかた教えていただけないでしょうか。よろしくお願いいたします。 10　　!16進法に変換する　　　　 20　　DIM hex(4) 30 LET dec=65535 40 LET p=1 50 DO WHILE 16<=dec 60 LET hex(p)=MOD(dec,16) 70 LET dec=INT(dec/16) 80 LET p=p+1 90 LOOP 100 LET hex(p)=dec 110 ! hex(p) ～ hex(1) 120 FOR i=p TO 1 STEP -1 130 LET y=hex(i) 140 PRINT mid$( "0123456789ABCDEF", y+1 ,1 ); 150 NEXT i 160 END (1)「！」の意味は何ですか？日本語を入力するときに使うのかな？なんて思っていますが・・ (2)hexは何ですか。Dimは配列なのはわかります。Aとかでも問題ないのでしょうか？ (3)decは何ですか。代入する数値のことだと思うのですが、ｎとかではダメなのでしょうか。 (4)140の意味。11をA、12をB・・と書くためのものですか？詳しく教えていただけないでしょうか。
ベーシック、循環小数プログラミング

0 !q/pを少数点表示する 1 LET X=10 2 DIM a(1 TO 100),b(0 TO 100) 3 INPUT q,p 4 LET b(0)=q 5 LET k=1 6 DO 7 LET a(k)=INT(b(k-1)*X/p) 8 LET b(k)=MOD(b(k-1)*X,p) 9 LET j=0 10 DO UNTIL j=k-1 OR b(j)=b(k) 11 LET j=j+1 12 LOOP 13 IF b(j)=b(k) THEN EXIT DO 14 LET k=k+1 15 LOOP 16 !　結果の表示 17 PRINT "0."; 18 FOR i=1 TO j 19 PRINT a(i); 20 NEXT i 21 PRINT "{"; 22 FOR i=j+1 TO k 23 PRINT a(i); 24 NEXT i 25 PRINT "}" 26 END 上のプログラミングですが、 10～16、21～26がはっきりと理解できません。 6のdoは15のloopとつながるんですよね？ q=3,p=7で考えてみたのですが、 8,9行目で a(1)=4 b(0)=3 b(1)=2 a(2)=2 b(2)=6 a(3)=8 b(3)=4 a(4)=5 b(4)=5 a(5)=7 b(5)=1 a(6)=1 b(6)=3 となり、b(0)=b(6)より、循環小数ということだと考えました。このb(0)=b(6)の比較は10行目、13行目のどちらでしょうか？また、結果の表示で、17行～20行で、 0.a1a2a3・・と表示することはわかりましたが、循環小数のさいの｛｝の入れ方(21行～25行)が理解できていません。私の理解や記入がわかりにくいかもしれませんが、どなたか解説していただけないでしょうか。よろしくお願いいたします。
プログラムの意味がわからなくて困っています

こんにちは。以下のプログラムの意味がわからなくて困っています。分数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以下で分子を入れているようですが、ここからよくわからなくなってしまいました。　よろしくお願いします。　
n88basicでは動いたのに十進ベーシックではだめでした。どうしてですか？

10 INPUT a,b 20 IF a<b THEN beep 1,FOR n=1 TO 100000,NEXT n,beep 0 22 IF a<b THEN swap a,b 30 PRINT a/b END n88basicではこのままで動いたのに十進ベーシックでは「ここにＮは書けません」とメッセージが出ました（２０行）。どうしたらいいですか。
長い桁(小数点以下)が計算できる言語は？

先日、円周率を求める独自のアルゴリズムで、(仮称)十進BASICを使用して１０００桁まで出すことに成功しました。しかし、(仮称)十進BASICは1000桁が限界で、これ以上詳しい値を出すことが出来ませんでした。なので、さらに詳しい値を算出できるプログラミング言語には何があるのでしょうか？検索してみると、独自の計算のプログラムなどを組まなければいけないとか・・・無限桁の桁数が扱えるプログラミング言語はないでしょうか？また、計算用のプログラムを組むとなれば、どの言語がおすすめですか？是非教えてください。
数学におけるプログラムの問題です。

「次のプログラムは何をするものか説明し、nに360が入力されたときのp,qを求めよ。　　100 INPUT n　　　　110 FOR i=1 TO SQR(n) 　　120 IF MOD(n,i*i)=0 THEN LET p=i 　　130 NEXT i 　　140 LET q=n/(p*p) 　　150 PRINT "p=";p 　　160 PRINT "q=";q 　　 END」という問題です。　p=6,q=10 はわかります。このプログラムは「入力された値に対して、２乗して割り切れる最大の値とその時の商を求めるものである」でよろしいのでしょうか？
モンテカルロ法

モンテカルロ法で円周率の推定値を計算することを最近習ったのですが、定積分でもそれが可能なのを知り、どうやってプログラムを組めばいいのか分からず、困っています。例えば、定積分∫[0→1]x^2dx=1/3～0.333（[0→1]というのは、積分範囲です。）をモンテカルロ法で計算すると、どういうプログラムを組めばいいのでしょうか？わかる範囲で書いてみたのですが…積分の範囲をどうやってプログラミングすればいいのか、いまいち分かりませんでした。教えていただけると、助かります。よろしくお願いします。 RANDOMIZE INPUT n SET WINDOW -0.1, 1.1, -0.1,1.1 DRAW grid SET POINT STYLE 1 LET sumin=0 FOR i=0 TO n LET x=RND LET r=x*x SET POINT COLOR 2 ! PRINT USING "(%.####, %.####)": x,y; PLOT POINTS: x,y; NEXT i PRINT sumin;n PRINT sumin/n END
配列を用いて、次のFibonacciの数列｛a(n)｝n=1,2・・・を計算するプログラムを作りなさい。

配列を用いて、次のFibonacciの数列｛a(n)｝n=1,2・・・を計算するプログラムを作りなさい。 a(n+2)=a(n+1)+a(n),a(1)=1,a(2)=1 で、私が作ったプログラムは DIM a(n) INPUT n LET a(1)=1　　 print 1,a(1) let a(2)=1 print 2,a(2) for i=3 to n let a(i)=a(i-1)+a(i-2) print i,a(i) next i end なのですが、うまくいきません。どこを改善したらいいかを教えてください。よろしくおねがいします。
BASICでフーリエ級数展開のグラフが思うように描けません!!

BASICで f(x)= -π/4 (x<0) 　　　+π/4 (x>0) をフーリエ級数展開した f(x)≒sinx+(sin3x)/3+(sin5x)/5+…(+sin(2n-1)x)/(2n-1) のグラフを描きたいと思っています。十進BASICで次のようなプログラムを作ってみたのですが、 x<0 のとき-π/4 , x>0 のときπ/4 というグラフにはならず、サインのグラフが歪んだようなものが出来上がってしまいます。この場合、プログラムのどこを修正すればよいのでしょうか？ LET S=0 LET k=0 DEF f(X)=SIN((2*k-1)*X)/(2*k-1) SET WINDOW -10,10,-23,10 DRAW GRID FOR X=-10 TO 10 STEP 0.1 FOR k=1 TO 1000 LET S=S+SIN((2*k-1)*X)/(2*k-1) NEXT k PLOT LINES: X,S NEXT X END
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
BASICでモンテカルロ法

モンテカルロ法で円周率の推定値を計算することを最近習ったのですが、定積分でもそれが可能なのを知り、どうやってプログラムを組めばいいのか分からず、困っています。例えば、定積分∫[0→1]x^2dx=1/3～0.333（[0→1]というのは、積分範囲です。）をモンテカルロ法で計算すると、どういうプログラムを組めばいいのでしょうか？わかる範囲で書いてみたのですが…積分の範囲をどうやってプログラミングすればいいのか、いまいち分かりませんでした。教えていただけると、助かります。よろしくお願いします。 RANDOMIZE INPUT n SET WINDOW -0.1,1.1, -0.1,1.1 DRAW GRID SET POINT STYLE 1 LET sumin=0 FOR i=0 TO n LET x=RND LET y=RND SET POINT STYLE 2 IF y<x*x THEN SET POINT COLOR 4 LET sumin=sumin+1 END IF ! PRINT USING "(%.####, %.####)": x,y PLOT POINTS: x,y NEXT i PRINT 1*1*sumin/n END
単位円に内接する正五角形の一辺の長さ

学校の情報の授業でプログラミングの勉強をしています。 BASIC【(仮称)十進BASIC】を使っています。わからない問題があったので、わかる方は是非教えて下さい!! 「単位円に内接する正五角形の一辺の長さを求めるプログラム」「単位円に内接する正ｎ角形の一辺の長さAと外接する正ｎ角形の一辺の長さBを求め、それぞれの一周の長さLAとLBを求めるプログラム」
プログラミングの問題

整数ｎをキーボードから入力し、１からｎまでの数のうち奇数だけを加えた和を計算し表示するプログラムヒント・変数ｘが奇数か偶数かは、MOD(ｘ、２)が０か否かで判断できる。・FOR～NEXT構文のなかでも、 IF～THEN～ELSE～END IF　構文を使える。という問題で、 input n let s=0 for i=1 to n までしかわかりませんでした。いったいこのあとはどうなるのか、教えてください。おねがいします。
十進BASICのプログラムについて

十進BASICのプログラムについて小町算のプログラムですが、 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とはどういう意味があるのでしょうか？
プログラミングVBです

対数のeの値を出すプログラムをつくりたいのですが Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m, n, s, k As Double k = 1 s = 1 For n = 1 To 1000 Step 1 For m = 1 To n Step 1 s = s * m Next k = k + 1 / s Next TextBox1.Text = Format(k, "#.################") End Sub 自力でつくったこれだと微妙に値が変わってしまいますどこが違いますか？おしえてください

プログラミングについて教えてください

質問者が選んだベストアンサー

お礼 2014/07/30 22:38

関連するQ&A

十進BASICでのsin(x)の近似のグラフ化について

十進ベーシックでrenum命令がわかりません。教えてください。

行列の積のプログラム

Basicのプログラミングについて・・・。

BASICのプログラミングについて・・・。

プログラミング　十進BASIC

ベーシック、循環小数プログラミング

プログラムの意味がわからなくて困っています

n88basicでは動いたのに十進ベーシックではだめでした。どうしてですか？

長い桁(小数点以下)が計算できる言語は？

数学におけるプログラムの問題です。

モンテカルロ法

配列を用いて、次のFibonacciの数列｛a(n)｝n=1,2・・・を計算するプログラムを作りなさい。

BASICでフーリエ級数展開のグラフが思うように描けません!!

n88basicのプログラムを十進ベーシックに翻訳してください。

BASICでモンテカルロ法

単位円に内接する正五角形の一辺の長さ

プログラミングの問題

十進BASICのプログラムについて

プログラミングVBです

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

プログラミングについて教えてください

質問者が選んだベストアンサー

お礼 2014/07/30 22:38

関連するQ&A

十進BASICでのsin(x)の近似のグラフ化について

十進ベーシックでrenum命令がわかりません。教えてください。

行列の積のプログラム

Basicのプログラミングについて・・・。

BASICのプログラミングについて・・・。

プログラミング 十進BASIC

ベーシック、循環小数プログラミング

プログラムの意味がわからなくて困っています

n88basicでは動いたのに十進ベーシックではだめでした。どうしてですか？

長い桁(小数点以下)が計算できる言語は？

数学におけるプログラムの問題です。

モンテカルロ法

配列を用いて、次のFibonacciの数列｛a(n)｝n=1,2・・・を計算するプログラムを作りなさい。

BASICでフーリエ級数展開のグラフが思うように描けません!!

n88basicのプログラムを十進ベーシックに翻訳してください。

BASICでモンテカルロ法

単位円に内接する正五角形の一辺の長さ

プログラミングの問題

十進BASICのプログラムについて

プログラミングVBです

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

プログラミング　十進BASIC

カテゴリ
一覧

専門家に質問してみよう
専門家登録