referat, referate , referat romana, referat istorie, referat geografie, referat fizica, referat engleza, referat chimie, referat franceza, referat biologie
 
Astronomie Istorie Marketing Matematica
Medicina Psihologie Religie Romana
Arte Plastice Spaniola Mecanica Informatica
Germana Biologie Chimie Diverse
Drept Economie Engleza Filozofie
Fizica Franceza Geografie Educatie Fizica
 

Operatii cu liste

Categoria: Referat Informatica

Descriere:

Program Liste;

Const nr_max=100;

Type indice=0..nr_max;

lista=Array[indice] Of integer;

Var L1,L2,L3:lista;

poz1,poz2,m,n:indice;

Varianta Printabila 


1 Operaţii cu liste



Program Liste;
Const nr_max=100;
Type indice=0..nr_max;
     lista=Array[indice] Of integer;
Var L1,L2,L3:lista;
    poz1,poz2,m,n:indice;
    x:integer;
Procedure citire(Var L:lista;p:indice);
          Var i:indice;
          Begin
          writeln('Dati elementele listei: ');
          For i:=1 To p Do Begin write('Elementul ',i,' este: ');readln(L[i]);
                           End;
          End;
Procedure scriere(Var L:lista;p:indice);
          Var i:indice;
          Begin
          For i:=1 To p Do write(L[i],' ');
          End;
Procedure stergere(Var L:lista;p,poz:indice);
          Var i:indice;
          Begin
          For i:=poz To p-1 Do L[i]:=L[i+1];
          p:=p-1;
          End;


1 Procedure concatenare(a,b:lista;Var L:lista);
          Var i:indice;
          Begin
          For i:=1 To m Do L[i]:=A[i];
          For i:=m+1 To m+n Do L[i]:=B[i-m];
          End;
Procedure inserare(Var L:lista;p,poz:indice;e:integer);
          Var i:integer;
          Begin
          For i:=p Downto poz Do L[i+1]:=L[i];
          L[poz]:=e;
          p:=p+1;
          End;
Begin
m:=0;n:=0;
write('Dati lungimea primei liste:');readln(m);
citire(L1,m);
write('Dati lungimea celei de-a doua liste:');readln(n);
citire(L2,n);
concatenare(L1,L2,L3);
writeln('Concatenarea listelor este:');
scriere(L3,m+n);
writeln;
Repeat
write('Dati pozitia pe care vreti sa inserati un element in prima lista: ');
readln(poz1);
Until (poz1>=1) And (poz1<=m);
write('Dati elementul: ');readln(x);
inserare(L1,m,poz1,x);
writeln('Noua lista este:');
scriere(L1,m+1);
writeln;
Repeat
write('Dati pozitia elementului pe care doriti sa-l stergeti din a doua lista: ');
readln(poz2);
Until (poz2>=1) And (poz2<=n);
stergere(L2,n,poz2);
writeln('Noua lista este:');
scriere(L2,n-1);
readln;
End.
Referat oferit de www.ReferateOk.ro
Home : Despre Noi : Contact : Parteneri  
Horoscop
Copyright(c) 2008 - 2012 Referate Ok
referate, referat, referate romana, referate istorie, referate franceza, referat romana, referate engleza, fizica