test34, Pascal - rextester

Language: Layout:

program test34;
{pointer example of direct chain growth and key inf choice}
type spisok=^elem;
         elem=record
                       inf:real ;
                       sled:spisok
                     end ;
label 1,2;
var a, pervy,d,h : spisok ;
    mas: array[1..3] of integer ;
    M, i:integer ;
    b:boolean;
procedure sostavlenie2(var p1:spisok; N:integer) ;
var q,p2:spisok ;
begin
    New(q) ; {data generator}
    p1:=q; {head safe}
    p2:=q; {template pointer}
for i :=1 to N do
    begin
        q^.inf:=mas[i] ;
        q^.sled:=Nil;
        p2^.sled:=q;
        p2:=p2^.sled; { template pointer p2  is focused to next element q of forward growth}
        New(q);
    end ;
end ;
 begin
     M:=7;
     for i:=1 to M do mas[i]:=i ;
    sostavlenie2(pervy, M) ;
    h:=pervy ;
    repeat 
        writeln(h^.inf:2:1) ;
        h:=h^.sled;
    until h=Nil; {display the chain}
    a:=pervy ; 
    b:=true;
    New(d); {make new element}
    d^.inf:=10;
    d^.sled:=Nil;
while (a<> nil) and b do
     if a^.inf=5 then {appoint the element}
     begin
        b:=false; {key inf achieved}
        d^.sled:=a^.sled; {insert new element "d" after appoined element}
        a^.sled:=d;
     end
      else  begin a:=a^.sled;
                  if a=Nil then goto 1       
            end;
      begin
            writeln('Appointed element is ',a^.inf:2:1) ; {show appointed element}
            writeln;
            a:=pervy;
            repeat 
                  writeln(a^.inf:2:1) ;
                  a:=a^.sled;
            until a=Nil;
                  goto 2 ;
       end;
1: writeln('no such key info element');
2:end.

Show compiler warnings [ + ] Show input
Время компиляции: 0,12 сек, абсолютное время выполнения: 0,15 сек, время процессора: 0,01 сек, пик памяти: 5 Мб, абсолютное время обслуживания: 0,43 сек