Acasa | Trimite referat | Cere referat | Contact

Referat Operatii cu liste

Operatii cu liste

Categorie: Referate Informatica

Referat downloadat de: 165 ori.

Cauta referat dupa: operatii liste

Descriere referat:

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; 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.

Alte referate din materia: Informatica

Nr.	Nume referat	Hits
1	TkkvMlabSupl	10
2	qzpymq@dxuzju.com	111
3	email@gmail.com	224
4	pfuqxd@exjswl.com	249
5	ncqcez@hdtnnq.com	217
6	Hard	677
7	ISTORIA INTERNET-ULUI	744
8	Impera	423
9	Info Doc	479
10	Info-TIRON	432
11	Informatica - Grafica pentru web	890
12	Informatica - Introducere in HTML	660
13	Initiere in pc	657
14	Instalarea sistemului de operare Windows	551
15	Internetul ca sursa de comunicare	534
16	Istoria Internetului	568
17	Istoria calculatorului	490
18	Istoria metodelor de proiectare	326
19	Java visavis de C++	364
20	Java vizavi de C	299
21	LIMBAJUL DE PROGRAMARE PASCAL - Programul defineste tipul salariat, o inregistrare cu variante, valorile citite fiind salvate in fisierul salariat.dat	0
22	Limbajul C	373
23	Lista vinuri prg	284
24	Lotus software	260
25	Lumea internetului	367

Acasa Trimite referat Cere referat Adauga la favorite Seteaza ca homepage Contact libertateailuziei Trailere Filme Filme Noi Jocuri Online Jocuri Barbie Jocuri pentru Copii GameBox.ro Make Money Bucuresti regim hotelier