Document, comentariu, eseu, bacalaureat, liceu si facultate
Top documenteAdmitereTesteUtileContact
      
    


 


Ultimele referate adaugate

Adauga referat - poti sa ne ajuti cu un referat?

Politica de confidentialitate



Ultimele referate descarcare de pe site
  CREDITUL IPOTECAR PENTRU INVESTITII IMOBILIARE (economie)
  Comertul cu amanuntul (economie)
  IDENTIFICAREA CRIMINALISTICA (drept)
  Mecanismul motor, Biela, organe mobile proiect (diverse)
  O scrisoare pierduta (romana)
  O scrisoare pierduta (romana)
  Ion DRUTA (romana)
  COMPORTAMENT PROSOCIAL-COMPORTAMENT ANTISOCIAL (psihologie)
  COMPORTAMENT PROSOCIAL-COMPORTAMENT ANTISOCIAL (psihologie)
  Starea civila (geografie)
 

Ultimele referate cautate in site
   domnisoara hus
   legume
    istoria unui galban
   metanol
   recapitulare
   profitul
   caract
   comentariu liric
   radiolocatia
   praslea cel voinic si merele da aur
 
despre:
 
Sortare prin insertie binara
Colt dreapta
Vizite: ? Nota: ? Ce reprezinta? Intrebari si raspunsuri
 
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.


Colt dreapta
Creeaza cont
Comentarii:

Nu ai gasit ce cautai? Crezi ca ceva ne lipseste? Lasa-ti comentariul si incercam sa te ajutam.
Esti satisfacut de calitarea acestui document, eseu, cometariu? Apreciem aprecierile voastre.

Nume (obligatoriu):

Email (obligatoriu, nu va fi publicat):

Site URL (optional):


Comentariile tale: (NO HTML)


Noteaza documentul:
In prezent fisierul este notat cu: ? (media unui numar de ? de note primite).

2345678910

 
Copyright© 2005 - 2024 | Trimite document | Harta site | Adauga in favorite
Colt dreapta