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で質問しましょう!
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
正しい五十音順について
-
携帯のパスワードについてです。
-
アルゴリズム習得方法
-
期間重複チェックがわかりません
-
多変数関数の最小値を求めるプ...
-
アルゴリズムの学習サイト
-
ランダムサーチ(改)!!
-
連立方程式を解く
-
ライントレース アルゴリズム
-
プログラミング
-
アルゴリズムとプロトコールの違い
-
退化木をバランス木にしたい
-
最短経路を計算するプログラム
-
詰め将棋をとくのは、アルゴリ...
-
最短経路問題を1つ算出するスク...
-
65536は2の何乗なのでしょうか?
-
VBAにてメール作成した際、一部...
-
ゲーミングPCに入っているAlris...
-
Excelで4096点以上のFFTの方法
-
excelのexe化について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
正しい五十音順について
-
SNSをやらない理由ってなんです...
-
アルゴリズムとプロトコールの違い
-
[ EXCEL VBA ] 図形を読み込む...
-
BCDについて
-
期間重複チェックがわかりません
-
最大公約数を求めたい!
-
c言語で画像から文字を認識 キ...
-
C♯で電卓を作成しています。演...
-
多変数関数の最小値を求めるプ...
-
画像から文字を認識してテキス...
-
ハッシュアルゴリズム
-
偏りのある乱数のアルゴリズム
-
乗換案内の作り方が知りたいです。
-
JPEG圧縮で8×8に分割する理由に...
-
書籍のソースコードを別言語に...
-
グループを均等に分けるには?...
-
複数の点を最短距離で全て繋ぐ...
-
gooという検索エンジンの後にGo...
-
シードを考慮したトーナメント...
おすすめ情報