Задачки по динамическим спискам! - Pascal - Ответ 71594

program Project2;
 
type
   IntPerem=integer;
   List=^First;
 
   First=record
   data:IntPerem;
   next,las:List;
   end;
 
 
procedure Add(var  L:List);
var s:IntPerem;
    r:string;
    t:integer;
    NowElem:List;
begin
   repeat
    Writeln('vvedi element spiska s:');
    Readln(r);
       val(r,s,t);
     if t=0 then
          begin
             new(NowElem);
             NowElem^.next:=nil;
             NowElem^.data:=s;
              if L=nil then
                L:=NowElem
              else
                L.las^.next:=NowElem;
             L.las:=NowElem;
          end;
   until t<>0;
end;
 
 
procedure Delete(var L:List);
var NowElem,ElemWasDel:List;
    Num:integer;
begin
   NowElem:=L;
   Num:=1;
    while Nowelem<>nil do
      begin
          if num mod 3=0 then
           begin
         ElemWasDel:=NowElem;
         L^.las^.next:=NowElem^.next;
         NowElem:=NowElem^.next;
         dispose(ElemWasDel);
           end
          else
            begin
         L.las:=NowElem;
         NowElem:=NowElem^.next;
            end;
         Num:=Num+1;
      end;
 
end;
 
procedure print(var L:List);
var NowElem:List;
begin
   NowElem:=L;
    while NowElem<>nil do
      begin
         Writeln(NowElem^.data);
         NowElem:=NowElem^.next;
      end;
end;
 
 
var i:integer;
    L:List;
begin
   repeat
   Writeln('vvedi comandu i:');
   Readln(i);
     case i of
      1: Add(L);
      2: Delete(L);
      3: Print(L);
      4: i:=4;
     end;
   until i=4;
 
end.

program Project2;
 
type
   IntPerem=integer;
   List=^First;
 
   First=record
   data:IntPerem;
   next,las:List;
   end;
 
procedure Add(var  L:List);
var s:IntPerem;
    r:string;
    t:integer;
    NowElem:List;
begin
   repeat
    Writeln('vvedi element spiska s:');
    Readln(r);
     val(r,s,t);
     if t=0 then
          begin
             new(NowElem);
             NowElem^.next:=nil;
             NowElem^.data:=s;
              if L=nil then
                L:=NowElem
              else
                L.las^.next:=NowElem;
             L.las:=NowElem;
          end;
   until t<>0;
end;
 
 
procedure NumChis(var L:List);
var NowElem:List;
    sum,k:integer;
    el:IntPerem;
begin
   NowElem:=L;
   sum:=0;
   k:=0;
    while NowElem<>nil do
      begin
         el:=NowElem^.data;
              if el>0 then
                      if sum>0 then
                         sum:=sum+1
                      else
                          begin
                              if k=1 then //кроме первого прохода цикла EOLN
                                 if sum>0 then
                                   Write('sum>0=',sum,' ')
                                 else
                                   Write('sum<0=',sum*(-1),' ');
                             k:=1;
                             sum:=1;
                          end
              else
                      if sum<0 then
                         sum:=sum-1
                      else
                          begin
                              if k=1 then //кроме пер. прох. цикл. EOLN и когда "0" и за ним "0"
                                if sum>0 then
                                  Write('sum>0=',sum,' ')
                                 else
                                   Write('sum<0=',sum*(-1),' ');
                             k:=1;
                             sum:=-1;
                          end;
          NowElem:=NowElem^.next;
      end;
   if sum>0 then
    WriteLn('sum>0=',sum,' ')
   else
    WriteLn('sum<0=',sum*(-1),' ')
end;
 
procedure print(var L:List);
var NowElem:List;
begin
   NowElem:=L;
    while NowElem<>nil do
      begin
         Writeln(NowElem^.data);
         NowElem:=NowElem^.next;
      end;
end;
 
 
var i:integer;
    L:List;
begin
   repeat
   Writeln('vvedi comandu i:');
   Readln(i);
     case i of
      1: Add(L);
      2: NumChis(L);
      3: Print(L);
      4: i:=4;
     end;
   until i=4;
 
end.