Delphiでの条件分岐について

すいません。ちょっとわからないので、質問させて頂きます。

Delphiで下記のようにIntegerの配列を宣言したとします。
var hoge : array [1..5] of integer;
この配列の全ての要素のうち、ひとつでも「１」（いち）と言う値であれば、
配列の全てを「０」（ぜろ）にすると言う条件分岐（if）を作りたいのです。

どのようにして作ればいいでしょうか？
一つずつ下記（途中までですが）のように書けば出来そうですが、配列の数が
増えた場合に大変面倒な事になりそうなので、何か良い知恵があれば
よろしくお願い致します。

if( (hoge[0]=1) or (hoge[1]=1)・・・・)｛
//配列全てに０を代入
｝

No.1 ベストアンサー 回答者： terra5 回答日時： 2002/01/30 00:26

delphiに限った話では無く、この種のプログラミング言語で共通の内容ですね。

C,FORTRAN,JAVA....

まず、基本はループを使うことです。
そうしておけば、ループの終了条件を変えるだけで,
配列がいくつあろうと同じ処理が可能です。

で、そのための手段として、別に変数を一つ用意します. mustClearFlagとでもしておきます。
integerでもいいんですが、本来は論理型(bool,boolean?)を使います。
で、ループに入る前にmustClearFlagをfalseで初期化しておきます。
ループ中で配列の内容をチェックし、1の時にmustClearFlagにtrueを設定します。

ループを抜けたときに、mustClearFlagがtrueなら
1があったことになりますので、配列を0クリアします。

Delphiは忘れたのでCで書きますが、こんな感じですね.

noOfArray = 5;
mustClearFlag = 0;

for ( i=0 ; i<noOfArray ; i++ )
if ( hoge[i] == 1 ) mustClearFlag = 1;

if ( mustClearFlag )
for ( i=0 ; i<noOfArray ; i++ ) hoge[i]=0;


// 簡略化のため無駄なループを回してます（＾＾；

この回答への補足

ご回答ありがとうございます。

forループを使えば、数がいくつ増えても大丈夫ですよね＾＾
noOfArrayの所も配列の要素数を取得するようにすれば、
どのようにも対応できそうです。

さらに質問となってしまいますが、多数の場合には、terra5さんの
お答えにて対応したいと思いましたが、配列の要素数が例えば、
３個だけに限定されている場合は、自分の手で３つ分の値を「１」と
比べて・・と言うように記述するのでしょうか？
なんか、スマートに書ける方法をご存知の方がいれば教えて欲しいのですが。。

if( hoge[0..3] = 1){
//ここで処理
}

みたいに簡潔に書く事はできないでしょうか？
みなさんは、どのようにされているのでしょうか？
３つくらいでもループを回すと言う書き方をしているのでしょうか？
それとも、３つ限定なら、ごりごり３個と比較する書き方をしているのでしょうか？

質問だらけとなってしまいますが、よろしくお願い致します。

補足日時：2002/01/30 10:06

No.2 回答者： terra5 回答日時： 2002/01/31 01:19

＞３個だけに限定されている場合は、自分の手で３つ分の値を「１」と

＞比べて・・と言うように記述するのでしょうか？
＞なんか、スマートに書ける方法をご存知の方がいれば教えて欲しいのですが。。

場合によりますね。
2回でもループにすることもあります。
ループにする場合は、回数が変化する可能性がある場合、ループにした方が見やすいと思われる場合,
タイプ数が少なくなる場合（笑）なんかですね。


見た目を簡潔にするには、関数などで書き換えるぐらいでしょう。

＞if( hoge[0..3] = 1){
私が知る範囲では、こういう記述ができる言語はないです。
でも、もしあったとすると、直感的には全て1の場合という意味にとりますね(^^;

この回答へのお礼

またまたの回答、ありがとうございます。

配列の要素数が変化する場合などは、ループにしておくと
要素数が変化しても対応できるので、そちらを使うのがよいのですね！
状況によって、使い分けるようにします。

>見た目を簡潔にするには、関数などで書き換えるぐらいでしょう。

ソースを綺麗に見せたい場合は、関数化して、外にだしておけばよいのですね。
結構、わかってきました。
色々とアドバイスして頂き、助かりました。
ありがとうございました。

お礼日時：2002/01/31 09:51