ساعدونا هذه الخوارزمية الله يحفظلكم والديكم

[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+Fin) Div 2;
      if T[Moy] = x then
        Trouve := True
        else
        if X > T[Moy] then
            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. 


بالتوفيق