ufak bir sorun yardım bekliyorum

Leo23
23-05-2008, 13:04   |  #1  
OP Yeni Üye
Teşekkür Sayısı: 0
24 mesaj
Kayıt Tarihi:Kayıt: Tem 2007

 

repeat
       yeniyer:=random(8)+1;
       case yeniyer of
         1: begin yenis:=s-2*asama; yenik:=k-1*asama; end;
         2: begin yenis:=s-2*asama; yenik:=k; end;
         3: begin yenis:=s-2*asama; yenik:=k+1*asama; end;
         4: begin yenis:=s; yenik:=k-1*asama; end;
         5: begin yenis:=s; yenik:=k+1*asama; end;
         6: begin yenis:=s+2*asama; yenik:=k-1*asama; end;
         7: begin yenis:=s+2*asama; yenik:=k;  end;
         8: begin yenis:=s+2*asama; yenik:=k+1*asama; end;
      end;
      if ((yenis=2*a) and (yenik=b) and (yenis<2) and (yenis>20) and (yenik<1) and (yenik>10)) then
                                                                                                            begin
                                                                                                         yenis:=s; yenik:=k;
                                                                                                        end;
    until (yenis<>s) and (yenik<>k);
    s:=yenis; k:=yenik;

biprogram yazıyorum.ama buraya sorun olan yeri kopyaladım.kosul bir turlu sağlanmıyo bi kaç değişik yolla denedim ama tam cozum bulamadım.asama yı 1 kabul edip; s ve k nın verdiğim sınırların dısına çıkmamamsaı lazım ama ben kontrol ettiiğimde bu tam olarak gerçeklesmiyo.yardım edebilecek varsa sevinirim.iyi gunler