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
このようなプログラムがあります。
いろいろ調べたのですがそれぞれの文の意味と
何を求めるプログラムか教えて下さい。
5つの数の組み合わせで小さい数から順番に4個
かなと思ったのですが???
No.2ベストアンサー
- 回答日時:
見たところ、機種?コンパイラ?のBasicでしょう?
とりあえず、解説~♪
>100 DIM A(5)
Aと言う0~5の変数(箱)を用意します
>110 FOR J=1 TO 5
>120 READ A(J)
>130 NEXT J
270行にある「5,3,7,2,1」をAに1から順番に入れていきます.このときAは、
A(1..5):5,3,7,2,1
になってます
>140 FOR I=1 TO 4
260行の「NEXT I」までIを1~4まで入れ替えてループします
>150 LET K=I
KにIを代入します
>160 FOR J=I+1 TO 5
180行の「NEXT J」までJをI+1~5まで入れ替えてループします
>170 IF A(J)<A(K) THEN LET K=J
A(J)がA(K)より小さい場合、KにJを代入します
>180 NEXT J
略
>190 LET T=A(I)
>200 LET A(I)=A(K)
>210 LET A(K)=T
A(I)とA(K)を入れ替えてます
>220 FOR J=1 TO 5
>230 PRINT A(J);
>240 NEXT J
>250 PRINT
Aの中身を1行で表示します。
>260 NEXT I
略
>270 DATA 5,3,7,2,1,
略
>280 END
略
で、結果表示が・・・
1 3 7 2 5
1 2 7 3 5
1 2 3 7 5
1 2 3 5 7
と出てくるかな?
べたなバブルソートアルゴリズムだと思いますよ
他のソートアルゴリズムは、下記を参照ください
参考URL:http://www.ics.kagoshima-u.ac.jp/~fuchida/edu/al …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
[ EXCEL VBA ] 図形を読み込む...
-
ランダム関数を作りたい。
-
期間重複チェックがわかりません
-
アルゴリズムとプロトコールの違い
-
VBAの学習について
-
携帯のパスワードについてです。
-
避難シミュレーションプログラ...
-
C♯で電卓を作成しています。演...
-
正しい五十音順について
-
VC++で通信型オセロを作りたい...
-
三次元形状曲面の導出法
-
qsortの先頭のqの意味
-
SEO対策会社ヴォラーレの対応は...
-
あいまい検索(文字列一致率)
-
ゲーミングPCに入っているAlris...
-
VBAで仕様書は書きますか?
-
自動クエリとはどういうもので...
-
あるプログラムのコマンドライ...
-
VBA実行中に他の作業をする
-
自作のプログラムがウイルスと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
正しい五十音順について
-
アルゴリズムとプロトコールの違い
-
期間重複チェックがわかりません
-
[ EXCEL VBA ] 図形を読み込む...
-
BCDについて
-
OpenCVのライセンスについて
-
シードを考慮したトーナメント...
-
グループを均等に分けるには?...
-
正数分割の個数
-
乗換案内の作り方が知りたいです。
-
C♯で電卓を作成しています。演...
-
あいまい検索(文字列一致率)
-
多変数関数の最小値を求めるプ...
-
ランダム関数を作りたい。
-
画像から文字を認識してテキス...
-
vbaで、連立方程式を解く方法に...
-
c言語で画像から文字を認識 キ...
-
ルービックキューブの解法プロ...
-
CRC-CCITT16の算出法
-
JPEG圧縮で8×8に分割する理由に...
おすすめ情報