ベストアンサー

十進basicにおけるプログラミング

2010/02/28 11:31

十進basicで FOR j= 1 TO n+1 PLOT area:X(j),Y(j); NEXT ｊ plot area:x(n+1),y(n+1) という節がエラーになりました。解決方法を教えてください。

iilolo
お礼率0% (0/2)

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

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

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

ベストアンサー

osamuy
ベストアンサー率42% (1231/2878)

2010/02/28 12:06 回答No.1

(仮称)十進BASIC Ver.7.4.4で試した感じだと、plot area命令の使い方を間違えるだけかも。だけど質問文から鑑みると、ちょっとここだけとは言い切れない。なので、とりあえず、参考URLとか。

参考URL：: http://www.linux.or.jp/beginners/question.html

関連する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
十進ＢＡＳＩＣのグラフィック表示についてなのですが・・・

グラフィック画面にy=sqr(1-x^2)のグラフとy=-sqr(1-x^2)のグラフを描くプログラムを作りなさい。ただし、 set window -1.5,1.5,-1.5,1.5 としなさいという問題で私が書いたプログラムは SET WINDOW -1.5,1.5,-1.5,1.5 DRAW axes DEF f(x)=SQR(1-x^2) DEF g(x)=-SQR(1-x^2) LET h=0.01 SET LINE COLOR 9 FOR x=-1 TO 1 STEP h PLOT LINES:x,f(x);x+h,f(x) NEXT x SET LINE COLOR 10 FOR x=-1 TO 1 STEP h PLOT LINES:x,g(x);x+h,g(x+h) NEXT x END なのですが、 DEF g(x)=-SQR(1-x^2) のところでエラーが出ます。どうすれば、改善されるか思いつかないで教えてください。よろしくおねがいします。
プログラミングのことで困っています。助けて下さい。

プログラミングの問題がどうしても分からず、本当に困っています。・2x+y+3z=13 ・x+3y+2z=13 ・3x+2y+z=10 (解:x=1,y=2,z=3) を掃き出し法で解くプログラミングの問題で、次の(1)～(5)が何が当てはまるかどうしても分からないんです。 #include <stdio.h> #define N 3 /*未知数の個数*/ int main(void) { int i,j,k; double pivot,del; double a[N][n+1]={{2,1,3,13},{1,3,2,13},{3,2,1,10}}; /*係数行列*/ for(i=0;i<N;i++) { (1)＿＿＿＿ /*ピボット係数*/ for(j=0;j<N+1;j++) /*ピボット行をピボットで割る*/ (2)＿＿＿＿ for(k=0;k<N;k++) /*ピボット列の掃き出し*/ { if((3)＿＿＿＿) { del=a[k][i]; for(j=i;j<N+1;j++) (4)＿＿＿＿ } } } for(i=0;i<N;i++) (5)＿＿＿＿ /*計算結果の表示*/ return 0; } 実行結果は x0=1.00 x1=2.00 x2=3.00 と表示させたいのですが、(1)～(5)の所がどうしても分からず、困っています。どなたか助けて下さい。お願いします。
グラフを書きたいのですがどのようにして使うかわかりません

FOR I=-200 to 200 FOR J=-200 to 200 X(0) = I / 100 ; Y(0) = J / 100 FOR N=0 to 1000 X(N+1) = X(N)^2 - Y(N)^2 + X(0) Y(N+1) = 2*X(N)*Y(N)+Y(0) IF X(N)^2 + Y(N)^2 > 4 THEN PSET(I,J) WHITE ELSE IF N = 1000 THEN PSET(I,J) BLUE ELSE NEXT N END IF NEXT J; NEXT I というグラフを書くプログラムがあるのですがこのプログラムの使い方がわからなくて使えないのでどのようにすれば見れるのか教えてください。
プログラミング　十進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・・と書くためのものですか？詳しく教えていただけないでしょうか。
十進BASICでの衝突プログラミング

十進ベーシック超初心者です。二次元の箱の中に円を置き、そこで衝突を繰り返すプログラムをつくりたいのですが行き詰っています。箱の中だけでの衝突は、以下のようにプログラムできたのですが、円にぶつかるときどのようにプログラムをくんで跳ね返させればいいかわかりません。どなたか教えて下さい。 SET WINDOW -20,20,-20,20 DRAW GRID(2,2) PLOT LINES: -10,-10 ;10,-10;10,10;-10,10;-10,-10 DRAW CIRCLE WITH SCALE (2) LET X=-10 LET Y=-10 LET T=0 LET V=4.53574748 LET A=56.654968 LET VX=COS(A) LET VY=SIN(A) 100 PLOT LINES:X,Y ; IF VX>0 THEN LET LX=20-(10+X) END IF IF VX<0 THEN LET LX=20-(10-X) END IF IF VY>0 THEN LET LY=20-(10+Y) END IF IF VY<0 THEN LET LY=20-(10-Y) END IF LET T=MIN(LX/ABS(VX),LY/ABS(VY)) LET X=VX*T+X LET Y=VY*T+Y IF T=LX/ABS(VX) THEN LET VX=-VX END IF IF T=LY/ABS(VY) THEN LET VY=-VY END IF GOTO 100 END
このプログラミングって正しい？

与えられた実行列X,Y,Z（配列名ｘ、ｙ、ｚ）から、X-YZを計算して、行列W（配列名ｗ）に格納するメソッドを完成する。 Public static void XminusXY( double[][] x,double[][] y,double[][] z, double[][] w){ double wij; int el=z[0].length, m=y.length, n=z.length; for(int i = 0; i<m; i++){ for(int j = 0; j<n-1; j++){ wij=xij for(int k=0; k<el; k++) wij += -y[i][k]*z[k][j]; w[i][j]=wij; } } }
C++ プログラミング

連立方程式の逆行列と解を出そうとしたのですが /*n=4と定義nは元の数*/ #define n 4 int main() { /*係数マトリクスAと単位マトリクスと右辺ベクトルの定義*/ double a[n][n+5]={{4,1,3,2,1,0,0,0,23}, {1,4,3,3,0,1,0,0,30}, {5,5,10,5,0,0,1,0,65}, {4,4,2,6,0,0,0,1,42}}; double x,y; int i,j,k; /*#1ピボットの演算を行うためのループ*/ for(k=0;k<n;k++) { /*ピボット係数*/ x=a[k][k]; /*#2ピボットをにするための演算を行うためのループ*/ for(j=k;j<n+5;j++) /*ピボット行をxで割る*/ a[k][j]=a[k][j]/x; /*#3ピボット列の掃き出しを行うためのループ*/ for(i=0;i<n;i++) { /*#4iがkではないとき*/ if(i!=k) { y=a[i][k]; /*#5ピボット以外をにする演算を行うためのループ*/ for(j=k;j<n+5;j++) a[i][j]=a[i][j]-y*a[k][j]; } } } /*結果を表示*/ printf("係数マトリクスAの逆行列を表示\n"); for(i=0;i<n;i++){ for(j=4;j<n+4;j++){ printf("a[%d][%d]=%f",i+1,j-3,a[i][j]); } printf("\n"); } printf("連立方程式の解を表示\n"); for(i=0;i<n;i++) printf("x%d=%f\n",i+1,a[i][n+4]); return 0; このプログラムを打って 1>z:\win\personal\visual studio 2008\projects\課題2.cpp(35) : error C3861: 'printf': 識別子が見つかりませんでした 1>z:\win\personal\visual studio 2008\projects\課題2.cpp(38) : error C3861: 'printf': 識別子が見つかりませんでした 1>z:\win\personal\visual studio 2008\projects\課題2.cpp(40) : error C3861: 'printf': 識別子が見つかりませんでした 1>z:\win\personal\visual studio 2008\projects\課題2.cpp(42) : error C3861: 'printf': 識別子が見つかりませんでした 1>z:\win\personal\visual studio 2008\projects\課題2.cpp(44) : error C3861: 'printf': 識別子が見つかりませんでした 1>z:\win\personal\visual studio 2008\projects\課題2.cpp(46) : fatal error C1075: 左側中かっこ '{' に対応するものが 'z:\win\personal\visual studio 2008\projects\課題2.cpp(4)' で見つかる前に EOF が検出されました。とエラーがでました.printfはちゃんと定義されてると思うんですが何がおかしいのでしょうか・・・？
十進ベーシックで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
お願いします！！！プログラミングについて。

お願いします！！！プログラミングについて。次の文が実行されると何がどのようにプリントされるか。何もプリントされない時は「なし」と記せ。また、途中に「ブランク」が入る場合は、”ｂ”と記せ。（１） printf("i=%d j=%lf\n", 1/2,1/3); （２） x = 0.5; y= 1e0/3e0; printf("x = %7.3f, y = %12.5e\n", x, y); */ （３） i = 2; j = 3; printf("%d", i==2); （４） int sum1(i){ int s = 0; return s += i; } int sum2(i){ static int s = 0; return s += i; } main(){ int s1, s2, i; for(i=1;i<=10;i++){ s1 =sum1(i); s2 = sum2(i);} printf("%d %d\n",s1,s2); } （５） int mtx[4][3] = {{1,2,3},{4,5,6},{7,8,9},{-1,-2,-3}}; int i,j,rtot,ctot[3]={0,0,0},stot=0; for(i=0,i<4,i++){ rtot = 0; for(j=0;j<3;j++){ rtot += mtx[i][j] ｃtot[j] += mtx[i][j]; stot += mtx[i][j]; printf("%3d ",mtx[i][j]); } printf(" %3d\n",rtot); } printf("\n"); for(j=0;j<3;j++) printf("%3d ",ctot[j]); printf(" %3d\n",rtot); この５問をプログラミングに詳しい方教えてください！切実です。。一つだけでも構いません！よろしくお願いします。
お願いします！！！プログラミングについて。

お願いします！！！プログラミングについて。次の文が実行されると何がどのようにプリントされるか。何もプリントされない時は「なし」と記せ。また、途中に「ブランク」が入る場合は、”ｂ”と記せ。（１） printf("i=%d j=%lf\n", 1/2,1/3); （２） x = 0.5; y= 1e0/3e0; printf("x = %7.3f, y = %12.5e\n", x, y); */ （３） i = 2; j = 3; printf("%d", i==2); （４） int sum1(i){ int s = 0; return s += i; } int sum2(i){ static int s = 0; return s += i; } main(){ int s1, s2, i; for(i=1;i<=10;i++){ s1 =sum1(i); s2 = sum2(i);} printf("%d %d\n",s1,s2); } （５） int mtx[4][3] = {{1,2,3},{4,5,6},{7,8,9},{-1,-2,-3}}; int i,j,rtot,ctot[3]={0,0,0},stot=0; for(i=0,i<4,i++){ rtot = 0; for(j=0;j<3;j++){ rtot += mtx[i][j] ｃtot[j] += mtx[i][j]; stot += mtx[i][j]; printf("%3d ",mtx[i][j]); } printf(" %3d\n",rtot); } printf("\n"); for(j=0;j<3;j++) printf("%3d ",ctot[j]); printf(" %3d\n",rtot); この５問をプログラミングに詳しい方教えてください！切実です。。1問だけでも構いませんのでよろしくお願いします。
vbaでfor nextの計算

vbaでfor nextを使って計算しています。 excelのシートの値を使って計算しています。 for nextが3重になっていて中のyとxのfor next が計算し終わったらjのfor nextで次のセルを参照したいのですがうまくいきません。どうしたらいいか教えてください。コードは以下の通りです For j = 1 To 2 Step 1 For y = 3 To 90 Step 3 γ = y / 180 * π For x = -180 To 180 Step 6 α = x / 180 * π γs = Range("A:A").Rows(j).Value / 180 * π αs = Range("B:B").Rows(j).Value / 180 * π Eeg = Range("C:C").Rows(j).Value Eed = Range("D:D").Rows(j).Value 計算式(省略) Next x Next y Next j
グラフの描き方

Q、キーボードからｎの値を読み込み、r=sin(nθ)で表される曲線のグラフをかけ。ヒント、ｘ＝rcosθ、ｙ＝ｒsinθと与えられた式で（ｘ、ｙ）とすればいい。また、θは度の単位で０°から３６０°まで計算すればよい。この問題で、、、 SET WINDOW -1.1,1.1,-1.1,1.1 INPUT n FOR i=0 to 360 STEP 10 x=cos(n*θ*PI/180) y=sin(n*θPI/180) PLOT LINES:x,y; NEXT i 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のプログラミングについて質問です 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通り教えてください
3連1次方程式を解くプログラミングについて

最近プログラミングの勉強を始めたばかりの者です。エラーが出ても、どこがいけないのか、自分では見つけられません。よろしくお願いいたします。次の3連1次程式を解くプログラムを作成しなさい。ただし、Ｘ、Ｙ、Ｚは整数とし、その範囲を－１００＜Ｘ、Ｙ、Ｚ＜１００とする。４Ｘ＋２Ｙ－６Ｚ＝－２８７Ｘ－５Ｙ－８Ｚ＝－２０５Ｘ＋Ｙ－Ｚ＝２という問題です。以前の質問の中で同じような問題の質問（QNo.1005159）があり、参考にさせていただいたのですが、エラーばかりで・・・ 100 FOR X=-100 TO 100 110 FOR Y=-100 TO 100 120 FOR Z=-100 TO 100 130 IF (4*X+2*Y-6*Z=-28) AND (7*X-5*Y-8*Z=-20) AND (5*X+Y-Z=2) THEN 140 140 NEXT Z 150 LET Z=Z1 160 NEXT Y 170 LET Y=Y1 180 NEXT X 190 LET X=X1 200 PRINT "X,Y,Z=";X1,Y1,Z1 END
C言語/プログラミング

int Trianglearea(int x, y) { return x * y / 2; } int main() { int x, y, ans; cout << "底辺を入力してください。\n"; cin >> x; cout << "高さを入力してください。\n"; cin >> y; cout << "三角形の面積は" <<Trianglearea(x, y) << "です。\n"; return 0; } これで、実行したらエラー発生しました。エラーを治す方法を教えてください。
割り算

a(5)*x^5+a(4)*x^4+a(3)*x^3+a(2)*x^2+a(1)*x+a(0) =(x^2+b(1)*x+b(0))*(c(3)*x^3+c(2)*x^2+c(1)*x+c(0)) となるようにb(1),b(0)の値を変化させてc(k)の値を求めたいのですが、うまくいきません。どこかおかしい点がありましたら、ご指摘お願いします。 Sub gojisiki() Dim i, j, x, y As Long Dim a(10), b(10), c(10), d(10), e(10), f(10), g(10) As Long For j = 1 To 6 a(6 - j) = Cells(2, j) Next For x = -500 To 500 b(1) = x For y = -500 To 500 b(0) = y For j = 5 To 2 Step -1 c(j - 2) = a(j) For k = 1 To 0 Step -1 d(k) = c(j - 2) * b(k) a(j - 2 + k) = a(j - 2 + k) - d(k) Next Next If a(1) = 0 And a(0) = 0 Then GoTo tugi Next Next tugi: For j = 5 To 2 Step -1 Cells(3, 6 - j) = c(j - 2) Next Cells(4, 1) = b(1) Cells(4, 2) = b(0) End Sub
プログラミングの課題で困ってます。

正弦関数ｘ＝sintのグラフを■で描きなさい（３１行程度で）。数値ｘに対する■の数はウインド各行に表示されるしきれる範囲内で任意に定めてよい。という課題が出ました。よくわからなくて困っています。下記に書いてるプログラミングを参考に答えを教えていただきたいと思い、質問させていただきました。よろしくお願いします。また、下記を参考にしなくてもよいです。プログラミングはvisual C++ 2008を使ってます。 #include "stdafx.h" #include<stdio.h> #include<math.h> int _tmain(int argc, _TCHAR* argv[]) { double x[100]; int i , j; for(i=0; i<31; i++){ x[i]=sin(0.1*i); } // for(j=0; j<31; j++){ // printf("%lf\n",y[j]); // } for(i=0; i<31; i++){ for(j=0; j<x[i]*20; j++){ printf("■"); } printf("\n"); } return 0; }
初級プログラミングCです

－１１ｘ＋９７ｙ＝１という関数を満たす整数（ｘ、ｙ）を求めるプログラムなんですが自力で考えると #include<studio.h> void main() { int x,y,a; for(x=1;;x++){ for(y=1;;y++){ a=-11*x+97*y+1 if (a==o) printf("(%d,%d)\n",x,y); if (a=!0) break } for(y=0;;y--){ a=-11*x+97*y+1 if (a==o) printf("(%d,%d)\n",x,y); if (a=!0) break } } for(x=1;;x--){ for(y=1;;y++){ a=-11*x+97*y+1 if (a==o) printf("(%d,%d)\n",x,y); if (a=!0) break } for(y=0;;y--){ a=-11*x+97*y+1 if (a==o) printf("(%d,%d)\n",x,y); if (a=!0) break } } } こうなりましたｘもｙも上限がないのでこれでは無限ループであたいがでないとおもいます実行するにもソフトがないのでわかりませんがたぶん間違えていますどこが違いますかね？根本的に違ったりしますか？回答お待ちしています

十進basicにおけるプログラミング

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

関連するQ&A

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

十進ＢＡＳＩＣのグラフィック表示についてなのですが・・・

プログラミングのことで困っています。助けて下さい。

グラフを書きたいのですがどのようにして使うかわかりません

プログラミング　十進BASIC

十進BASICでの衝突プログラミング

このプログラミングって正しい？

C++ プログラミング

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

お願いします！！！プログラミングについて。

お願いします！！！プログラミングについて。

vbaでfor nextの計算

グラフの描き方

行列の積のプログラム

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

3連1次方程式を解くプログラミングについて

C言語/プログラミング

割り算

プログラミングの課題で困ってます。

初級プログラミングCです

注目のQ&A

カテゴリ
一覧

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

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

十進basicにおけるプログラミング

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

関連するQ&A

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

十進ＢＡＳＩＣのグラフィック表示についてなのですが・・・

プログラミングのことで困っています。助けて下さい。

グラフを書きたいのですがどのようにして使うかわかりません

プログラミング 十進BASIC

十進BASICでの衝突プログラミング

このプログラミングって正しい？

C++ プログラミング

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

お願いします！！！プログラミングについて。

お願いします！！！プログラミングについて。

vbaでfor nextの計算

グラフの描き方

行列の積のプログラム

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

3連1次方程式を解くプログラミングについて

C言語/プログラミング

割り算

プログラミングの課題で困ってます。

初級プログラミングCです

注目のQ&A

カテゴリ 一覧

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

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

プログラミング　十進BASIC

カテゴリ
一覧

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