QReferate - referate pentru educatia ta.
Referatele noastre - sursa ta de inspiratie! Referate oferite gratuit, lucrari si proiecte cu imagini si grafice. Fiecare referat, proiect sau comentariu il poti downloada rapid si il poti folosi pentru temele tale de acasa.



AdministratieAlimentatieArta culturaAsistenta socialaAstronomie
BiologieChimieComunicareConstructiiCosmetica
DesenDiverseDreptEconomieEngleza
FilozofieFizicaFrancezaGeografieGermana
InformaticaIstorieLatinaManagementMarketing
MatematicaMecanicaMedicinaPedagogiePsihologie
RomanaStiinte politiceTransporturiTurism
Esti aici: Qreferat » Referate informatica

VECTORI






Nu se va tipari sau face calcule cu elemente care nu au primit in prealabil valoare.

var a:integer;
begin
write(a);
end.

-este un contraexemplu, deoarece a este o variabila intreaga neinitializata nu se va tipari.

Sortarea unui vector

-a sorta un vector inseamna a aranja elementele vectorului in ordine crescatoare sau descrescatoare (ordonare alfabetica, sau invers alfabetica care se numeste ordonare lexico-grafica).

(1,3,1,2,5)
.
.
sortare
(1,1,2,3,5)

(c,f,a,j)
.
.
sortare
(a,c,f,j)

Ordonarea lexico-grafica este la fel ca ordonarea cuvintelor dintr-un dictionar.

v(3 1 5 7)
... .
... .
v[1] v[2] v[3] v[4]

aux:=v[1];
v[1]:=v[2];
v[2]:=aux;


Ordonare prin interschimbare

Algoritmul ordonarii prin interschimbare este:
a)Pentru toti i=1, n-1
compar toti v[i] cu v[i+1]
Daca v[i+1] Se repeta aceasta operatie pana cand parcurgand odata vectorul nu se efectueaza nici o schimbare.

program sortare;
var v:array [1..100] of integer;
n,i:integer;
gasit:boolean;
begin
write('n=');readln(n);
for i:=1 to n do begin
write('v[',i,']=');


readln(v[i]);
end;
repeat
gasit:=false;
for i:=1 to n-1 do
if v[i+1] aux:=v[i];
v[i]:=v[i+1];
v[i+1]:=aux;
gasit:=true;
end;
until gasit:=false or not gasit
for i:=1 to n do write ('v[',i,']=',v[i]);
readln
end.


Gasirea elementului maxim

program maxim;
type vector=array [1..100] of integer;
var v:vector;
n,i,max:integer;
begin
write('n=');readln(n);
for i:=1 to n do begin
write('v[',i,']=');
readln(v[i]);
end;
max:=v[1];
for i:=2 to n do if v[i]>max then
max:=v[i];
write('max=',max);
end.


program max_min;
var v:array [1..100] of integer;
n,i,min,max:integer;
begin
write('n=');readln(n);
for i:=1 to n do begin
write('v[',i,']=');
readln(v[i]);
end;
max:=v[1];min:=v[1];
for i:=2 to n do begin if v[i]>max then max:=v[i]
if v[i] end;
writeln('max=',max);
writeln('min=',min);
readln
end.



Descarca referat

E posibil sa te intereseze alte referate despre:




Copyright © 2024 - Toate drepturile rezervate QReferat.com Folositi referatele, proiectele sau lucrarile afisate ca sursa de inspiratie. Va recomandam sa nu copiati textul, ci sa compuneti propriul referat pe baza referatelor de pe site.
{ Home } { Contact } { Termeni si conditii }