Задача на стеки и очереди. Опции

[Анисия]

Добрый день. Помогите разобраться с очередями и стеками. Как организовать очередь из n целых чисел. Пока взяла 5 чисел, это получается что надо сформировать массив. Посмотрите пожалуйста правильно сделала?

program Lab_4;
const  max=5;
type Evt= integer;
var
elem:array [1..max] of Evt;
spos, rpos:integer;

end.

[Lapp]

Мне кажется, что дело даже не в том, что шестой элемент не влезет, а в том, что если взять заведомо большой массив (чтоб все влезло на все случаи жизни), то будет неоправданная трата памяти. Динамическая память хороша именно тем, что выделяется только тогда, когда она нужна.

Но использование памяти - это другая тема. И вполне возможно, что Анисия этого еще просто не знает. Так что ничего не вижу плохого в демонстрации собственно принципа очереди на статическом массиве. Вот, я продолжил (немного изменив некоторые идентификаторы) программу из первого поста:

program Lab_4;
const
  max=5;
  m=max-1;

type
  tElem= integer;

var
  Line: array [0..m] of tElem;
  a: tElem;
  spos,rpos,n: integer;


function Put(e: tElem): boolean;
begin
  if n<Max then begin
    Rpos:=(Rpos+1) mod max;
    Line[Rpos]:=e;
    Inc(n);
    Put:=true
  end
  else Put:=false
end;


function Get(var e: tElem): boolean;
begin
  if n>0 then begin
    e:=Line[Spos];
    Spos:=(Spos+1) mod max;
    Dec(n);
    Get:=true
  end
  else Get:=false
end;


procedure Init;
begin
  Spos:=0;
  Rpos:=m;
  n:=0
end;

begin
  Init;
  WriteLn(Put(1));
  WriteLn(Put(2));
  WriteLn(Put(5));
  WriteLn(Put(-1));
  WriteLn(Put(10));
  WriteLn(Put(4));    {тут очередь переполнится, и пойдет false}
  WriteLn(Put(6));

  while Get(a) do WriteLn('Got ',a);
  ReadLn
end.

Анисия - разберешься?

[Анисия]

Анисия - разберешься?

Попробую...