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.