Количество элементов, которые стоят между отрицательными числами

@RKeyProg · Регистрация: 28.10.2018

Author24 — интернет-сервис помощи студентам

Есть кусок кода:

Pascal

var
  L : tList;
  i : byte;
begin
  clrscr;
  CreateLst(L);
  writeln('List L:');
  PrintLst(L);
  OutBack(L,i);
  if i = 0 then writeln('Number not found.');
  readln;
end.

Строка OutBack(L,i); выводит элементы, которые стоят между отрицательными числами. Как изменить код, чтобы выводились не сами элементы, а их количество?
Вот весь код программы:

Pascal

uses
  crt;
type
  TInf = integer;
  pNode = ^Node;
  Node = record
  Inf : TInf;
  Prev, Next : pNode;
  end;
  tList = record
  First, Last : pNode;
  end;
procedure InitLst(var aL : tList);
begin
  aL.First := nil; aL.Last := nil;
end;
procedure AddLst(var aL : tList; const aInf : TInf);
begin
  If aL.First = nil then begin
     New(aL.First);
     aL.First^.Next := nil; aL.First^.Prev := nil;
     aL.First^.Inf := aInf;
     aL.Last := aL.First;
  end else begin
     New(aL.Last^.Next);
     aL.Last^.Next^.Prev := aL.Last;
     aL.Last := aL.Last^.Next;
     aL.Last^.Prev^.Next := aL.Last;
     aL.Last^.Inf := aInf;
  end;
end;
procedure CreateLst(var aL : tList);
var c : char; a : TInf;
begin
  InitLst(aL);
  writeln('Esc - end of input, Any key - continue input.');
  repeat
   write('Value of element:'); readln(a);
   AddLst(aL,a);
   write('Esc/Any key?'); c := readkey; write(#13); 
  until c=#27;
  writeln('Input finished.');
end;
procedure PrintLst(aL : tList);
begin
  If aL.First = nil then begin
     writeln('Empty List.');
     exit;
  end;
  while aL.First <> nil do begin
     write(aL.First^.Inf:5);
     aL.First := aL.First^.Next;
  end;
  writeln;
end;
procedure OutBack(aL : tList; var i : byte);
var p : pNode;
begin
  If aL.First = nil then exit
  else If aL.First^.Next = nil then exit
  else If aL.First^.Next^.Next = nil then begin
    aL.First := aL.First^.Next;
    OutBack(aL,i);
  end else If (aL.First^.Inf < 0) and (aL.First^.Next^.Inf>0) and (aL.First^.Next^.Next^.Inf<0) then begin
    p := aL.First^.Next;
    aL.First := aL.First^.Next^.Next;
    OutBack(aL,i);
    write(p^.Inf:5);
    i := 1;
  end else begin
    aL.First := aL.First^.Next;
    OutBack(aL,i);
  end;
end;
var
  L : tList;
  i : byte;
begin
  clrscr;
  CreateLst(L);
  writeln('List L:');
  PrintLst(L);
  OutBack(L,i);
  if i = 0 then writeln('Number not found.');
  readln;
end.

@borisboris1 · 06.11.2018, 00:07

Добавь переменную k,приравняй нулю, добавь строчку k:=k+1 в цикл поиска элементов между отрицательными числами

@RKeyProg · 06.11.2018, 11:59 **[ТС]**

Проблема в том, что не знаю как обратиться к каждому отрицательному числу, чтобы создать такой счетчик.

@RKeyProg · 07.11.2018, 16:59 **[ТС]**

Изменить код так, чтобы выводило количество чисел, стоящих между отрицательными, а не сами числа.

Pascal

uses
  crt;
type
  TInf = integer;
  pNode = ^Node;
  Node = record
  Inf : TInf;
  Prev, Next : pNode;
  end;
  tList = record
  First, Last : pNode;
  end;
procedure InitLst(var aL : tList);
begin
  aL.First := nil; aL.Last := nil;
end;
procedure AddLst(var aL : tList; const aInf : TInf);
begin
  If aL.First = nil then begin
     New(aL.First);
     aL.First^.Next := nil; aL.First^.Prev := nil;
     aL.First^.Inf := aInf;
     aL.Last := aL.First;
  end else begin
     New(aL.Last^.Next);
     aL.Last^.Next^.Prev := aL.Last;
     aL.Last := aL.Last^.Next;
     aL.Last^.Prev^.Next := aL.Last;
     aL.Last^.Inf := aInf;
  end;
end;
procedure CreateLst(var aL : tList);
var c : char; a : TInf;
begin
  InitLst(aL);
  writeln('Esc - end of input, Any key - continue input.');
  repeat
   write('Value of element:'); readln(a);
   AddLst(aL,a);
   write('Esc/Any key?'); c := readkey; write(#13); 
  until c=#27;
  writeln('Input finished.');
end;
procedure PrintLst(aL : tList);
begin
  If aL.First = nil then begin
     writeln('Empty List.');
     exit;
  end;
  while aL.First <> nil do begin
     write(aL.First^.Inf:5);
     aL.First := aL.First^.Next;
  end;
  writeln;
end;
procedure OutBack(aL : tList; var i : byte);
var p : pNode;
begin
  If aL.First = nil then exit
  else If aL.First^.Next = nil then exit
  else If aL.First^.Next^.Next = nil then begin
    aL.First := aL.First^.Next;
    OutBack(aL,i);
  end else If (aL.First^.Inf < 0) and (aL.First^.Next^.Inf>0) and (aL.First^.Next^.Next^.Inf<0) then begin
    p := aL.First^.Next;
    aL.First := aL.First^.Next^.Next;
    OutBack(aL,i);
    write(p^.Inf:5);
    i := 1;
  end else begin
    aL.First := aL.First^.Next;
    OutBack(aL,i);
  end;
end;
var
  L : tList;
  i : byte;
begin
  clrscr;
  CreateLst(L);
  writeln('List L:');
  PrintLst(L);
  OutBack(L,i);
  if i = 0 then writeln('Number not found.');
  readln;
end.

@borisboris1 0 / 0 / 0 Регистрация: 12.05.2018 Сообщений: 77
	06.11.2018, 00:07	2
	Добавь переменную k,приравняй нулю, добавь строчку k:=k+1 в цикл поиска элементов между отрицательными числами 0

@RKeyProg 0 / 2 / 0 Регистрация: 28.10.2018 Сообщений: 77
	06.11.2018, 11:59 [ТС]	3
	Проблема в том, что не знаю как обратиться к каждому отрицательному числу, чтобы создать такой счетчик. 0

	07.11.2018, 16:59