Pascal の初心者用の質問・相談所
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
900:デフォルトの名無しさん 04/01/15 13:25 900 901:デフォルトの名無しさん 04/01/18 11:34 配列１に５個の数値が順番に１，２，３，４，５と入っているものを 配列２に５，４，３，２，１と入れ替えるにはどうしたらいいですか？ 902:デフォルトの名無しさん 04/01/18 11:40 for i:=Low(array1) to High(array1) do array2[i] := array1[High(array1) - i]; 903:デフォルトの名無しさん 04/01/18 11:47 >>902 ありがとうございました 904:デフォルトの名無しさん 04/01/18 11:58 どういたまして 905:デフォルトの名無しさん 04/01/18 13:03 type box1=array [1..100] of longint; box2=array [1..100] of longint; var hako:box1; hako2:box2; i,n:integer; p,q,r:real; begin p:=0; q:=1; r:=0; repeat p:=p+1; q:=q*p; r:=r+1; hako[r]:=q until r=10; for i:=Low(hako) to High(hako) do hako2[i]:=hako[High(hako)-i]; for n:=1 to 10 do writeln(hako2[n]) end. 上のプログラムのようにリピートを用いた記述で 配列の入れ替えを行うと0しか戻ってこない場合はどうしたらいいですか？
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5392日前に更新/272 KB
担当:undef