2013-03-09, 21:23
|
رقم المشاركة : 3
|
معلومات
العضو |
|
إحصائية
العضو |
|
|
السلام عليكم
تفضل اخي :
كود 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.
بالتوفيق
|
|
|