HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
0101
YSRデータを並び替えよう!1解決


YSR

リンク

2007/1/1(Mon) 19:25:12|NO.4596


;バブルソート kazu=10 ;データ数 dim data,kazu randomize for k,0,kazu ;データに、乱数でデータを入力する data(k)=rnd(kazu) next repeat flg=0 for k,0,kazu-1 if data(k)>data(k+1) { w=data(k) data(k)=data(k+1) data(k+1)=w flg=1 } next if flg=0 :break loop ;表示 for k,0,kazu mes kazu(k) next stop



この記事に返信する


A

リンク

2007/1/1(Mon) 19:48:01|NO.4599

そういうのはWikiに書き込んでください。



ONION software Copyright 1997-2023(c) All rights reserved.