掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
配列の順位付け (ID：149939)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは 配列の順位付けを教えて下さい。 配列tenと配列junを使って、配列junに順位を格納して表示させようと思っているのですが、 比較せずうまく表示されません。 以下のようなコードを書いてます。 -------------------------------------------------------------------------- function Get(ten:array of integer;jun:array of integer;N:integer):integer; var a,k,f,h:integer; begin // for a:=0 to N-1 do begin jun[a]:=1;//初期値 end; // for k:=0 to N-2 do begin f:=k+1; for h:=f to N-1 do begin if Ten[k]<Ten[h] then begin Jun[k]:=Jun[k]+1; end else begin if Ten[k]>Ten[h] then begin Jun[h]:=Jun[h]+1; end; end; end;// result:=jun[k]; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.