Создать стек и подсчитать количество положительных элементов в нем

+ 0 -

Сool763

26 янв. 2016 г., 6:59:57 (8 лет назад)

Вот, на PascalABC.NET работает, думаю, на Турбе тоже пройдёт))

Type
    PComp = :stack;
    stack = record
      sD:real;
      pNext:PComp;
    end;
    
var
  pTop:PComp;
    
Procedure CreateStack(var pTop:PComp);
  begin
    New(pTop);
    pTop:.pNext:=nil
  end;
Procedure push(var pTop:PComp; var sC:real);
var
  pAux:PComp;
begin
  New(pAux);
  pAux:.pNext:=pTop;
  pTop:=pAux;
  pTop:.sD:=sC
end;
Procedure pop(var pTop:PComp; var sC:real);
begin
  sC:=pTop:.sD;
  pTop:=pTop:.pNext
end;

var
  i: real;
  j, k, l: integer;

begin
  CreateStack(pTop);
  writeln('Заполните стек числами. Признак конца ввода - 0');
  while (true) do
  begin
    readln(i);
    if (i = 0) then
      break
    else
      push(pTop, i);
    inc(j);
  end;
  
  for k := 1 to j do
  begin
    pop(pTop, i);
    if (i > 0) then
      l := l + 1;
  end;
  
  writeln(l);  
end.

+ 0 -

Lipina151999

26 янв. 2016 г., 8:47:33 (8 лет назад)

какой язык?

+ 0 -

Ilyaalien

26 янв. 2016 г., 10:43:10 (8 лет назад)

турбо паскать

+ 0 -

KatyaLadanova

26 янв. 2016 г., 12:41:25 (8 лет назад)

не,боюсь в паскале стек не потяну. на с++ бы сделал еще,извини

+ 0 -

Didika220920021

26 янв. 2016 г., 13:39:03 (8 лет назад)

Это ужасно(((