Acest site foloseste cookies. Prin navigarea pe acest site, va exprimati acordul asupra folosirii cookie-urilor. Citeste mai mult... X

vectori

Referatele si lucrarile oferite de Clopotel.ro au scop educativ si orientativ pentru cercetare academica.

VECTORI

Materie: Informatica
Accesari: 9.963
Download-uri: 1.781
Nota: 5.06 (730 note)
Am probleme cu acest referat!

1 2 3
4 5 6
7 8 9


Download Referat - VECTORI
Publicitate:

Trimis de aurel
din 10 Martie 2006

VECTORI

type v=array [1..100] of integer;
var a,b:v;
ex: var vector:array [1..10] of 0..2;
vector:array ['a'..'z'] of boolean;

Accesarea unui element:
vector[5]:=1;
vector2['e']:=false;

Incarcarea unui vector
program incarcare_vector;
var v:array [1..50] of integer;
i,n:1..50;
begin

write('Dati numarul de elemente <=50');
readln(n);
for i:=1 to n do begin
write('v[',i,']=');
readln(v[i]);
end;
readln
end.

Tiparirea unui vector
Dupa incarcarea unui vector, acesta se poate tipari.
Tiparirea se face element cu element.
for i:=1 to n do writeln('v[',i,']=',v[i]);

v[1]=15
v[2]=3
v[3]=4
.
.
.
.
.

Intr-un tip de data vector,elementele se pot repeta spre deosebire de multimile din matematica in care fiecare element apare o singura data.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]<v[i] atunci interschimb elementul v[i] cu 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]<v[i] then begin
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]<min then min:=v[i]
end;
writeln('max=',max);
writeln('min=',min);
readln
end.

program eliminare;
type vector=array [1..100] of integer;
var v:vector;
n,i,k:integer;
begin

write('n=');readln(n);
for i:=1 to n do begin
write('v[',i,']=');
readln(v[i]);
end;

write('k=');readln(k);
for i:=k to n-1 do v[i]:=v[i+1];
n:=n-1;
for i:=1 to n do
write(v[i],' ');
end.

Interclasarea
Fie vectorul a si vectorul b:
a=(a1,.......,am)
b=(b1,.......,bn)

Elementele lui a si lui b sunt crescatoare.
Construiti un vector c care va contine elementele vectorului a si b in ordine crescatoare.Aceasta problema se numeste interclasarea a doi vectori.

program interclasare;
type vector=array [1..100] of integer;
var i,j,k,m,n:integer;
a,b,c:vector;
begin
write('m=');readln(m);
for i:=1 to m do begin;

write('a[',i,']=');
readln(a[i]);
end;
write('n=');readln(n);
for i:=1 to n do begin

write('b[',i,']=');
readln(b[i]);
end;
i:=1;j:=1;k:=1;
while (i<=m)and(j<=n)do begin
if a[i]<b[j] then begin
c[k]:=a[i];
i:=i+1;
end
else begin
c[k]:=b[j];
j:=j+1;
end;
k:=k+1;
end;
if i<=m then for j :=i to n do begin
c[k]:=b[i];
k:=k+1;
end;
for i:=1 to m+n do
writeln('c[',i,']=',c[i]);
end.

...

Atentie : Textul de mai sus este doar un preview al referatului, pentru a vedea daca continutul acestui referat te poate ajuta. Pentru varianta printabila care poate sa contina imagini sau tabele apasa butonul de 'download' !!!
Download Referat - VECTORI