A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
ええと、あくまで「参考意見」です。
見たところ、問題の質から言うとBASICで書くには長くなっちゃって辛い問題なんじゃないかな、と言う気がします。平たく言うとBASIC向きじゃないんじゃないか、と。
プログラミング初心者、との事ですが、「問題に依っては言語には向き/不向きがある」って場合があるんですよね。
恐らくCommon Lispの方が簡単に書けるんじゃないか、と思って書いてみたらやっぱその通りのようです。8行程度で簡単に実装出来ますね。
次にCommon Lispでのソースコードを載せておきます。参考にして下さい。
;;ここから
(defun QNo.3571398 ()
(let ((msg "データを入力して下さい>"));プロンプトのメッセージ
(labels ((loop (prompt a ls);局所関数loopを定義
(if (zerop a);脱出条件
(values (length ls);リストの長さ
(sort ls #'<));リストのソート
(loop (format t msg) (read) (cons a ls)))))
(loop (format t msg) (read) nil))))
;;ここまで
多分、次のような動作をさせたいんじゃないか、と思います。上のソースをCommon Lisp(例えばClispと言うフリーウェア)で走らせると以下のようになります。要求に合ってますか?
;;実行例
[1]> (QNo.3571398)
データを入力して下さい>3
データを入力して下さい>5
データを入力して下さい>7
データを入力して下さい>1
データを入力して下さい>3
データを入力して下さい>9
データを入力して下さい>8
データを入力して下さい>0
7 ;
(1 3 3 5 7 8 9)
;;お終い
Common Lispの場合は「多値関数」と言う機能があって、これによりリスト(Basicで言う配列の一種)の長さとソート済みのリストの結果を同時に返す事が出来ます。上で言うと「長さ」が「7」でソート済みのリストが(1 3 3 5 7 8 9)って事ですね。
まあ、プロンプトを自作/表示するかどうかは好みの問題ですし、僕はBASICは良く分からないのですが、原則、入力に用いる「変数」と「配列」を別々に設定し、if~then構文を使って、変数に0を代入された時にループを脱出して結果表示、そうじゃなかったら変数に「データを読み込み」、そして前回の変数を配列にどんどん突っ込んでいけば良いとは思います。
また、繰り返し計算のDo~Loop構文を使えばBasicでも何とかなるかもしれません(Common Lispのソースでは再帰を用いています)。
ただし、Common Lispのソースコード内ではリストの長さを調べるlength関数とリストの要素を並べ替えるsort関数を用いましたが、Basicで似たようなライブラリが無いと、実装はかなり難しいかもしれません。
No.2
- 回答日時:
命令コードは覚えていないので雰囲気で
データの個数の予想しえる最大値を100と過程
変数 A(0)からA(99)、Asort(0)から
DIM Ain'入力
DIM AA(100)'データin
DIM B'要素番号
DIM Asort(100)'データout(ソート)
DIM C'要素番号
DIM N'データの個数
N=0
'入力AA(B) 0入力まで
FOR B=0 TO 99
INPUT "数値入力="; Ain
IF val(Ain)=0 THEN B=99 ELSE A(B)=val(Ain):N=N+1
NEXT
PRINT N
IF N=0 THEN END'入力なしなら終了
'入力A(B)ソート⇒Asort(C)
FOR C=0 TO N-1
FOR B=0 TO N-1
IF A(B)<>0 and A(B)<Asort(C) THEN Asort(C)=A(B):A(B)=0
NEXT
NEXT
'出力印字
FOR C=0 TO N-1
PRINT Asort(C)'入力の小さい順に印字
NEXT
END
No.1
- 回答日時:
データーが入力されると
Aが0かどうか判断する
Aが0以外ならカウンターを1追加
最初に戻る
Aが0なら終了処理
並び替える=ソートと言う
http://www.ics.kagoshima-u.ac.jp/~fuchida/edu/al …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
エクセルで2つの時系列のデー...
-
二分探索の平均探索回数
-
特定のデータの抽出方法を教え...
-
S9タイプからXタイプにデータ...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
ActiveReportについて
-
CString型の文字列連結について
-
この行は既に別のテーブルに属...
-
MSCommを用いたRS-232-Cデータ転送
-
0が含まれる幾何平均が「#NUM!」
-
EXCELVBAでSQLserverからデータ...
-
VBAで「"」[']をエスケープする...
-
VBAを使ってOutlookメール本文...
-
VBA(多くの数値データの最小値...
-
クレジットカードの磁気データ...
-
ACCESSからEXCELに出力する際、...
-
VBにおいてフォーム間の変数の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
【エクセル】測定時間がバラバ...
-
配列でデータが入っている要素...
-
VBA 円グラフ 特定条件に一致し...
-
メモ帳(テキストデータ)をExc...
-
EXCELVBAでSQLserverからデータ...
-
VBA 空白セルを削除ではない方...
-
S9タイプからXタイプにデータ...
-
ブレーカー落ちで壊れたりしな...
-
Accessで該当データにフラグを...
-
多量のSUMIF式を軽くしたい
-
エクセルで2つの時系列のデー...
-
VBAを使ってOutlookメール本文...
-
特定のデータの抽出方法を教え...
-
この行は既に別のテーブルに属...
-
カンマからスラッシュに
-
VBAでシートからコンボボックス...
-
GridViewの行の一部を複数行にする
-
ユーザーフォームのテキストボ...
-
<VB>String→Object
おすすめ情報