g1h23hf

Sa se ordoneze crescator un tablou unidimensional V de n numere reale ,folosind sortarea prin insertie binara .
Pentru fiecare element vaii se procedeaza in patru pasi:
4 se considera ordonate elementele va1i,va2i,….,vai-1i;
4se cauta pozitia k pe care urmeaza s-o ocupe vaii intre elementele va1i,va2i,…,vai-1i(procedura “poz” prin cautare binara);
4se deplaseaza spre dreapta elementele din pozitiile k,k+1,…,n(procedura “deplasare”);
4insereaza elementul vaii in pozitia k (procedura”deplasare”); se obtine o succesiune de k+1 elemente ordonate crescator.

program sortare _binara; type vector =arraya1..50i of real ; var n,k,i:integer; v:vector; function poz(li,ls,i:integer):integer; var m:integer; begin if li=ls then if vaii<vaji then poz:=li else poz:=i else if ls-li=1 then if vaii<valsi then if vaii>=valii then poz:=ls else poz:=li else poz:=i else begin m:=(li+ls)div 2;

if vaii<vami then poz:=poz(li,m,i) else poz :=poz(m,ls,i); end; end; procedure deplasare(k,i:integer); var man:real; j:integer; begin

if k<i then begin man:=vaii; for j:=I downto k+1 do vaji:=vaj-1i; vaki:=man; end; end; begin
write(‘cate elemente are vectorul?=’);readln(n); for i:=1 to n do begin
write(‘tastati elementul ‘,i,’=’);readln(vaii); end; for i:=2 to n do begin k:=poz(1,i-1,i); deplasare(k,i); end;
writeln(‘vectorul ordonat este :’); for i:=1 to n do writeln(vaii); readln; end.