basic　プログラムです。 -100 DIM A(5) 110 FOR-

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以下で分子を入れているようですが、ここからよくわからなくなってしまいました。　よろしくお願いします。　

行列に関するプログラムについて

　『m×n 型行列Aの最大成分と最小成分を捜し、それぞれの行番号と列番号を出力するプログラムを作れ』という問題です。　以下のようにＢＡＣＩＣで考えたのですが、うまく行番号と列番号を出力するプログラムを作れません。アドバイスいただければと思います。宜しくお願い致します。 100 INPUT m 110 INPUT n 120 DIM A(m,n) 130 MAT INPUT A 140 FOR i=1 TO m 150 FOR j=1 TO n-1 160 LET s=A(i,j) 170 LET t=A(i,j) 180 IF A(i,j)＜A(i,j+1) THEN LET s=A(i,j+1) 190 IF A(i,j)＞A(i,j+1) THEN LET t=A(i,j+1) 200 NEXT j 210 NEXT i 220 PRINT "最大成分は";s,"最小成分は";t

小町算のプログラムについて

小町算のプログラムについて 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のプログラムについて

十進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とはどういう意味があるのでしょうか？

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

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行)が理解できていません。私の理解や記入がわかりにくいかもしれませんが、どなたか解説していただけないでしょうか。よろしくお願いいたします。

プログラム作成に関して

配列にn個のa(1),a(2),…a(n)という値が与えられているとき、このn個の値の最小値を求めるプログラムの作成 DIM A(n) LET k=1 FOR i=1 TO n 　IF　A(i)＜A(k)　THEN 　　LET min=A(i) 　END　IF NEXT　i END ※DIM A(n)はn個の配列　minは最小値である。としたのですが、 A()の読み込みを表すには出力を表すにはどのようにしたらいいのですか？できるだけ詳しく教えてください。よろしくお願いします。

【至急】文字を点滅させる方法は？

質問します。下記のプログラムにおいて、 13 PRINT "只今、計算中です。少々お待ち下さい。" 14 PRINT "計算終了後、下記に結果を表示します。" の部分だけを点滅させたいのですが、色が変わる変化しかしません。COLOR 2と書けば点滅するはずですよね？ 1 CLS 2 REM 乱数を用いてサイコロ（6面体ダイス）を再現。12000回振って各自がほぼ2000回ずつ出るようなサイコロを目指す。 10 INPUT "乱数系列の値をいくつに設定しますか" ;X 13 PRINT "只今、計算中です。少々お待ち下さい。" 14 PRINT "計算終了後、下記に結果を表示します。" 20 RANDOMIZE X 30 DIM DICE(6) 40 FOR T=1 TO X 50 LET N=1+INT(6*RND) 60 FOR I=1 TO 6 70 IF N=I THEN LET DICE(I)=DICE(I)+1 80 NEXT I 90 NEXT T 100 PRINT 110 FOR J=1 TO 6 120 PRINT J;"の目は"; DICE(J);"回出ました。" 130 NEXT J 140 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

離散フーリエ変換について

10 REM dft 20 N=8 30 DIM　A(N),B(N),X(N) 40 FOR I=0 TO N-1 50 READ X(1) 60 NEXT I 70 P=6.283/N 80 FOR K=0 TO N-1 90 A(K)=0:B(K)=0 100 FOR J=0 TO N-1 110 A(K) =A(K)+X(j)*COS(P*J*K) 120 B(K) =B(K)-X(J)*SIN(P*J*K) 130 NEXT J 140 NEXT K 150 FOR I=0 TO N-1 160 Y=SQL(A(I)^2+B(I)^2) 170 LPRINT I;:LPRINT USING "###,###";A(I),B(I),Y 180 NEXT I 190 DATA 1,1,1,1,0,0,0,0 このDFTプログラムをC言語に直したいのですがよく分かりません；お願いします＠＠；

Tiny Basicのプログラムで。。

次の5人の学生の成績の個人別の平均点と、科目別の平均点をそれぞれ求め、表示するプログラムを作成せよ。Print Using 文を使うと、きれいな表形式の出力が可能です。学籍番号　英語数学情報　平均　　１　　　70 60 80 2 50 60 50 3 70 90 100 4 90 100 50 5 40 70 80 という問題があって。。自分なりにやってみたんですが。。 Dim a(5,5) For i=1 to 5 For j=1 to 5 Read a(i,j) print a(i,j); Next j print Next i Data "学生番号","英語","数学","情報","平均" Data 1,70,60,80,70 Data 2,50,60,50,53 Data 3,70,90,100,87 Data 4,90,100,50,80 Data 5,40,70,80,63 Data "平均",64,76,72,71 End っていうふうにつくってみたんですがうまくいかなくて。。みなさん、助けてください＞＜

N88互換BASICで「メッセージの定義されてないエラーです」と出ます

N88互換BASICで「メッセージの定義されてないエラーです」と出ます… 最近プログラミングを始めた初心者です。プログラムでエラーが出て困っています、どこが問題なのか改善方法を教えてください。 10 DIM A(100,100,100) 20 INPUT "B=";B 40 FOR i=1 to 100 step 1 50 FOR j=1 to 100 step 1 60 FOR k=1 to 100 step 1 70 A(i,j,k)=B 80 print A(i,j,k) 90 NEXT k 100 NEXT j 110 NEXT i こんな感じのものです。配列変数を作って、Bの数値を全ての配列変数に代入したいです。宜しくお願致します。

BASIC言語　　分散の出し方

BASIC言語の問題が分からないので、教えてください。分散がうまく出せません(+o+) 下に問題と自分の回答を張り付けたので、お願いしますm(__)m ＜演習問題２＞最小二乗法（直線のあてはめ）を用いて回帰式と相関係数を算出する。作成手順：　　1. READ～DATA 文によるデータの配列変数への読み込み　　2. Xi の和、Yi の和、Xi の平均値 (Xav) 、Yi の平均値 (Yav) の算出　　3. (Xi -Xav)^2 の和、(Yi -Yav)^2 の和、(Xi -Xav)(Yi -Yav) の和の算出　　4. y=a*x+bのa, b, r（相関係数）の算出テストデータと計算結果　データ数：４　　ＸＹ　　　　Xの平均　2.5 　　１５　　　　Ｙの平均　8 　　　　傾き　a=1.6 　　２８　　　　Ｘの分散　1.25　　　切片　b=4 　　３９　　　　Ｙの分散　3.5　　　相関係数　r=0.956 　　４ 10　　　　共分散　　2 下が自分の回答です。 5 READ n > DIM A(2,N) > 10 FOR i=1 TO 2 > 15 LET S=0 > 20 FOR j=1 TO n > 30 READ A(i,j) > 40 LET s=s+a(i,j) > 50 NEXT j > 60 LET h=s/n > 70 IF i=1 THEN > PRINT h,bunsan > ELSEIF i=2 THEN > PRINT h,bunsan > END if > 75 NEXT i > 80 DATA 4 > 90 DATA 1,2,3,4 > DATA 5,8,9,10 > END

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

「次のプログラムは何をするものか説明し、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 はわかります。このプログラムは「入力された値に対して、２乗して割り切れる最大の値とその時の商を求めるものである」でよろしいのでしょうか？

BASIC言語　配列変数

問題21. 読み込んだデータから「最高点」を表示せよ． 5 READ N　　　　　→ データ数の読み込み　10 DIM SEISEKI(N)　　→ 配列の宣言　20 FOR Ｉ=1 TO N 　30　READ SEISEKI(Ｉ) 　40　LET S＝S＋SEISEKI(I)　　 → 配列の合計　50 NEXT Ｉ　60 LET HEIKIN＝S／N　　 → 平均値　70 PRINT HEIKIN 　80 DATA 8　　　　　　　　　　　　　→ データ数　90 DATA 80,90,100,85,78,64,72,86　→ 成績データ　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 なのですが、うまくいきません。どこを改善したらいいかを教えてください。よろしくおねがいします。

このプログラムで計算を実行すると・・・

10:S=0 20:FOR I=0 TO 6 STEP 2 30:FOR L=0 TO I 40:S=S+L 50:NEXT I 60:NEXT L 70:PRINT S 80:END 90: このプログラムを実行すると、「３４」とプログラムの計算結果が表示されるのですが、実際に自分で計算すると「２２」になってしまいます。どこが違うのとか・・・基本的なとこが間違ってるのか？　あとプログラムの動きを解説して頂けるとうれしいです！それでは、お願い致します。

十進ベーシックのプログラムの間違いを教えてください。

誰か次のプログラムの間違いを直してください。入力を間違えても次に進めるようにするにはどこをどう変えたらよいのですか？ RESTORE 30 READ a$ 40 INPUT b$ IF a$=b$ THEN IF a$<>b$ THEN GOTO 40 PRINT a$ GOTO 30 DATA i,x,d,k,k,h,end END IF END

プログラムの見本を示してください！！

数学プログラムの授業をしています。：プログラム言語は「Basic」です。今から問題と、少しやれたものについては、プログラムを記してみました。問題の最後の　「※」部分が質問したいところです。ない場合は、何もわからないところです。（１）DIMを用いて　５つの値をキーボードから入力して、そのうち最大の値を表示するプログラム ※90行目以降の「最大値」の表示の仕方がいまいちわかりません。　 10:DIM (5) 20:FOR I=0 TO 4 30:INPUT I 40:NEXT I 50:S=0 60:FOR L=0 TO 4 70:S=S+A 80:NEXT L 90:PRINT ??? （２）FOR，NEXT分を使い、 S=2+(2+3)+(2+3+4)+ ........+(2+4+5+6+7+8+9+10) の計算をして　Ｓを表示するプログラムを作りたい。以上お願いいたします。

Workbook

次のプログラムをExcelのWorkbookで開くやり方がよくわかりません。どうやってやるのか教えていただけないでしょうか？ Option Explicit Const ALIVE As Integer = 1 Const DEAD As Integer = 0 Const BORN As Integer = 3 Const LIFE As Integer = 2 Const SIZE As Integer = 20 Const Tmax As Integer = 100 Dim C(SIZE, SIZE) As Integer Dim Xrange As Variant Private Sub LifeGame() Dim InitRate As Single Dim T As Integer Dim I As Integer, J As Integer Randomize Xrange = Range("A1:T20") InitRate = 0.5 For I = 1 To SIZE For J = 1 To SIZE If Rnd() < InitRate Then C(I, J) = ALIVE Else C(I, J) = DEAD End If Next J Next I For T = 1 To Tmax For I = 1 To SIZE For J = 1 To SIZE If C(I, J) = ALIVE Then Xrange(I, J) = "■" Else Xrange(I, J) = "" End If Next J Next I Range("A1:T20") = Xrange For I = 1 To SIZE For J = 1 To SIZE C(I, J) = Cnext(I, J) Next J Next I Next T End Sub Function Cnext(I As Integer, J As Integer) As Integer Dim xi As Integer Dim xj As Integer Dim xsum As Integer For xi = I - 1 To I + 1 For xj = J - 1 To J + 1 If (xi > 0 And xi <= SIZE) _ And (xj > 0 And xj <= SIZE) Then If Not (xi = I And xj = J) Then If C(xi, xj) = ALIVE Then xsum = xsum + 1 End If End If End If Next Next Select Case xsum Case BORN Cnext = ALIVE Case LIFE Cnext = C(I, J) Case Else Cnext = DEAD End Select End Function Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Call LifeGame End Sub

basic　プログラムです。

みんなの回答

お礼 2004/12/28 10:21

お礼 2004/12/28 10:22

お礼 2004/12/28 10:23

関連するQ&A

basicプログラムです。

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

行列に関するプログラムについて

小町算のプログラムについて

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

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

プログラム作成に関して

【至急】文字を点滅させる方法は？

行列の積のプログラム

離散フーリエ変換について

Tiny Basicのプログラムで。。

N88互換BASICで「メッセージの定義されてないエラーです」と出ます

BASIC言語　　分散の出し方

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

BASIC言語　配列変数

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

このプログラムで計算を実行すると・・・

十進ベーシックのプログラムの間違いを教えてください。

プログラムの見本を示してください！！

Workbook

注目のQ&A

カテゴリ
一覧

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

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

basic プログラムです。

みんなの回答

お礼 2004/12/28 10:21

お礼 2004/12/28 10:22

お礼 2004/12/28 10:23

関連するQ&A

basicプログラムです。

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

行列に関するプログラムについて

小町算のプログラムについて

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

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

プログラム作成に関して

【至急】文字を点滅させる方法は？

行列の積のプログラム

離散フーリエ変換について

Tiny Basicのプログラムで。。

N88互換BASICで「メッセージの定義されてないエラーです」と出ます

BASIC言語 分散の出し方

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

BASIC言語 配列変数

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

このプログラムで計算を実行すると・・・

十進ベーシックのプログラムの間違いを教えてください。

プログラムの見本を示してください！！

Workbook

注目のQ&A

カテゴリ 一覧

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

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

basic　プログラムです。

BASIC言語　　分散の出し方

BASIC言語　配列変数

カテゴリ
一覧

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