繰り返しと条件分岐の組み合わせがうまくできない

いつも勉強させていただいております。 繰り返しと条件分岐の組み合わせについて分からなくなってしまったのでご教授をお願いします。 画面に 貝の写真 か 瓜の写真 があるかないかで条件分岐し、なければチェックを繰り返すというスプリクトを作ったのですがエラーになってしまいます。 どうすれば解決できるのでしょうか?
A= ChkImg("kai.BMP")//貝の写真
B= ChkImg("uri.BMP")//瓜の写真

REPEAT
 if ChkImg("kai.BMP")
  PRINT ”貝写真”

 ELSEif ChkImg("uri.BMP")
  PRINT ”瓜写真”

 ELSE  
  A= ChkImg("kai.BMP")
  B= ChkImg("uri.BMP")
UNTIL  !A  AND  !B
   
    ENDIF
  

関連情報:

  1. IFB

このエントリーを含むはてなブックマーク Buzzurlにブックマーク Yahoo!ブックマークに登録

コメント

  1. mist より:

    どんなエラーなのか分からないけど、
    とりあえず動かすという意味では、下記のようなスクリプトで動いていることは確認できました。
    決定的な違いはENDIFの場所ですね。

    A= ChkImg("kai.BMP")//貝の写真
    B= ChkImg("uri.BMP")//瓜の写真
    CNT = 1
    
    REPEAT
     if ChkImg("kai.BMP")
      PRINT "貝写真"
    
     ELSEif ChkImg("uri.BMP")
      PRINT "瓜写真"
    
     ELSE
      A= ChkImg("kai.BMP")
     PRINT A
      B= ChkImg("uri.BMP")
     PRINT B
     ENDIF
    
     PRINT CNT
     CNT = CNT + 1
    
    UNTIL  !A  AND  !B AND 3 < CNT
    
  2. 8-JJ より:

    mist 様
    お返事ありがとうございます。
    なるほど!ENDIFはループの内に置いておかなければならなかったのですね。
    勉強になりました。


このページの先頭へ