Стек и очередь. (Delphi)

[Olgasato]

Здравствуйте уважаемые программисты!

Есть задачка по динамическим структурам данных...

>Нужно организовать Стек и Очередь с возможностью добавления и удаления элементов. (Элементами могут быть родственники, студенты и т.п. Не столь важно.) Я так поняла, что на форме нужно:
1.куда вводить элемент,
2.где будет отображаться,
3.2 кнопки: Добавить и Удалить.
(Может что-то еще, если необходимо...)

Спасибо Вам заранее....

[Olgasato]

Это работает на основе динамических указателей... Неужели никто не сможет помочь.....

[Stilet]

Это работает на основе динамических указателей

Так. И что Оля знает про это?
Идеи есть по поводу указателей?

[Olgasato]

Да вот именно толком ничего не знаю... Только что это динамические структуры данных и связанно с указателями, динамической памятью и т.п. Вот.......

[Studentus]

Можете объяснить разницу между двумя кодами. И так и так программа работает

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
TPSpisok=^TSpisok;
TSpisok = record
chislo:integer;
next: TPSpisok;
end;

Var spisok1,spisok2:TPSpisok;
a,i,n:integer;

procedure input(a:integer;var head: TPSpisok);
var temp:TPSpisok;
begin
new(temp); //создание нового елемента списка
temp.chislo:=a;
// добавление в начало списка
temp.next:=head;
head:=temp;
end;

procedure output(var head:TPSpisok);
var temp:TPSpisok;
begin
temp:=head;
while temp <> NIL do
begin
Writeln(temp.Chislo);
temp:=temp.next;
end;
end;

begin
Readln(n);
for i:= 1 to n do begin
Readln(a);
Input(a,spisok1);
end;
for i:= 1 to n do begin
Readln(a);
Input(a,spisok2);
end;
output(spisok1);
output(spisok2);;
readln;
end.

А тут в процедуре input стоят указатели

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
TPSpisok=^TSpisok;
TSpisok = record
chislo:integer;
next: TPSpisok;
end;

Var spisok1,spisok2:TPSpisok;
a,i,n:integer;

procedure input(a:integer;var head: TPSpisok);
var temp:TPSpisok;
begin
new(temp); //создание нового елемента списка
temp.^chislo:=a;
// добавление в начало списка
temp.^next:=head;
head:=temp;
end;

procedure output(var head:TPSpisok);
var temp:TPSpisok;
begin
temp:=head;
while temp <> NIL do
begin
Writeln(temp.Chislo);
temp:=temp.next;
end;
end;

begin
Readln(n);
for i:= 1 to n do begin
Readln(a);
Input(a,spisok1);
end;
for i:= 1 to n do begin
Readln(a);
Input(a,spisok2);
end;
output(spisok1);
output(spisok2);;
readln;
end.

[Nata_student_nik]

А помогите мне пожалуйста, никак не могу организовать очередь, ее надо организовать вручную. Я вначале перепутала со стеком, его сделала, а очередь никак не получается, посоветуйте мне, пожалуйста!!!

[Vladimir-888]

Сообщение от Nata_student_nik

А помогите мне пожалуйста, никак не могу организовать очередь, ее надо организовать вручную. Я вначале перепутала со стеком, его сделала, а очередь никак не получается, посоветуйте мне, пожалуйста!!!

Извини, помочь тебе не могу, так как не пробовал, но возможно ты мне сможешь помочь) Ты пишешь что организовала вручную стек. Мне то как раз и нужен стек. Можешь показать код?)

[Grag]

Сообщение от Nata_student_nik

А помогите мне пожалуйста, никак не могу организовать очередь, ее надо организовать вручную. Я вначале перепутала со стеком, его сделала, а очередь никак не получается, посоветуйте мне, пожалуйста!!!

А чем очередь (список) отличается от стека? Список может иметь не ограниченный размер. Стек имеет ограниченный размер и может быть переполнен. Кроме того стек имеет структуру либо FIFO (first in - first out, что значит первым вошел - первым и вышел; либо LIFO (last in - fist out, что значит последним вошел - первым вышел)... Отсюда вывод, очередь(список) организовать гораздо проще, чем стек. Уж если ты сделала стек, то очередь сделаешь тоже...

[QuadroX]

Обращайтесь ICQ: 323787261 помогу недорого.