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:
 
Lista simplu inlantuita pascal
Colt dreapta
Vizite: ? Nota: ? Ce reprezinta? Intrebari si raspunsuri
 
Sa se creeze si sa se listeze o lista simplu inlantuita formata din caractere. i9i11iz
Program caractere_lista;
TYPE ref = ^inr; inr = record elem:char; adrurm:ref; end;
VAR c, prim, ultim: ref; car : char; begin new(c);
write(‘Dati primul element: ‘); readln(c^.elem); prim := c; ultim := c;
writeln(‘Mai doriti un element: D/ N’ ); readln(car);
while upcase(car) =’D’ do begin
write(‘Dati un caracter: ); new(c); readln(c^.element); ultim^.adrurm := c;
write(‘mai doriti D/ N ?’ ); readln(car); end; ultim^.adrurm := nil;
AlistareS
writeln(‘ caracterele din lista sunt: ‘); c := prim;
while c<>nil do begin
write(c^.elem,’ ‘); c := c^.adrurm; end;
Aadaugare la inceputS new(c);
write(‘ introduceti * ’); readln(c^.elem); c^.adrurm := prim; prim := c; end.
ADAUGARE LA SFARSITUL LISTEI

TYPE ref = ^inr; inr = record elem:real; adrurm:ref; end;
VAR d, c, prim, ultim : ref; car : char; elem1 : real;
BEGIN
Aadaugare la sfarsitS new(c);
write(‘dati elementul: ‘); readln(c^.elem); ultim^.adrurm := c; ultim := c;
END;

Aadaugare in interiorul listei dupa un element datS
AbeginS
write(‘ dupa care element vreti sa adaugati ? ‘); readln(elem1); c := prim;
while elem1 <> c^.elem do c := c^.adrurm; new(d);




write(‘ introduceti elem pe care vreti sa-l adaugati:’); readln(d^.elem); d^.adrurm := c^.adrurm; c^.adrurm := d; legam elementul in lista
AendS

- adaugarea unui element in interiorul unei liste inaintea unui element dat
PROGRAM adaugare_interior;
TYPE ref = ^inr; inr = record elem : real; adrurm:ref; end;
VAR b, c, d, prim, ultim : ref; elem1 : real; i, n, x : integer;
BEGIN new(c);
Write(‘nr= ’); readln(n);
Write(‘Dati primul elem: ’); readln(c^.elem); prim := c; ultim := c;
For i := 2 to n do begin
New(c);
Write(‘Dati elem urmator: ’); readln(c^.elem); ultim^.adrurm := c; ultim := c; end; ultim^.adrurm := NIL; c := prim;
while c <> nil do begin
write(c^.elem,’ ‘); c := c^.adrurm; end;
write(‘Dati val. inaintea carui elem. doriti sa introduceti: ’); readln(elem1); c := prim;
while elem1 <> c^.elem do begin d := c; c := c^.adrurm; end; new(b);
write(‘Dati elem. pe care vreti sa-l adaugati’); readln(b^.elem); b^.adrurm := c; d^.adrurm := b; c := prim;
while c<>nil do begin
write(c^.elem,’ ‘); c := c^.adrurm; end;
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