Написать процедуру удаления полного стэка к программе

@hotdogi · Регистрация: 01.02.2018

Pascal

type
  ptr = ^stack;
  stack = record
    inf: integer;
    next: ptr
  end;
  
var
  kon, top: ptr;
  value: integer;
 
procedure makestack;
var
  ok: boolean;
begin
  ok := true;
  top := nil;
  while ok do
  begin
    writeln('Введите число');
    readln(value);
    if value = 999 then  ok := false
    else
    begin
      new(kon);
      kon^.inf := value;
      kon^.next := top;
      top := kon;
    end;
  end;
end;
 
begin
  makestack;
end.

@JuriiMW · 01.03.2018, 12:01

„… удаления полного стека…“ — это очистить что ли?
Дык:

Pascal

1	procedure clearstack; begin kon:=nil; top:=nil; end;

@hotdogi · 01.03.2018, 12:05 **[ТС]**

спасибо

@hotdogi 0 / 0 / 0 Регистрация: 01.02.2018 Сообщений: 5
	01.03.2018, 12:05 [ТС]	3
	спасибо 0

Опции темы