منتديات الجلفة لكل الجزائريين و العرب - عرض مشاركة واحدة - ساعدونا هذه الخوارزمية الله يحفظلكم والديكم
عرض مشاركة واحدة
قديم 2013-03-09, 21:23   رقم المشاركة : 3
معلومات العضو
King Soft
عضو مشارك
 
الصورة الرمزية King Soft
 

 

 
إحصائية العضو










افتراضي

السلام عليكم

تفضل اخي :

كود PHP:

program Project1
;

var 
debut,fin,moy,i,x:integer;
    
T:array[1..10]of integer;
    
Trouve boolean;
begin
   writeln
('Remplassage du tableau :');
  for 
i:=1 to 10 do
        
Read(T[i]);
   
writeln('Tapper x =');
    
Read(x);
  
Debut:=1;Fin:=10;
  
Trouve := false;
  
Repeat
      Moy
:=(Debut+FinDiv 2;
      if 
T[Moy] = x then
        Trouve 
:= True
        
else
        if 
T[Moythen
            Debut 
:= Moy+1
            
else
            
Fin := Moy 1;
  
until (Trouve) or(Debut<=Fin) ;

  if 
Trouve then
        Write
('Le Rang =',Moy)
   else
        
Write('Le Rang = -1');

end

بالتوفيق