Помощь - Поиск - Пользователи - Календарь
Полная версия: Все тот же дек
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Dao
Я понимаю, что достал уже всех с деком, но сам че-то разобраться не могу. Так что поможите люди добрые. Условие задачи:
Цитата
Из элементов стека и очереди составить дек.

Очередь и стек я сформировал, а вот дальше...

Type
point=^item;
item=record
elem: Char;
next: point;
end;
Var
topS, topQ, endQ: point;
n: Integer;
c, d, a: Char;

{Формирование первого элемента стэка}

Procedure FormStack (Var topS: point; c: Char);
Begin
New (topS);
topS^.next:=Nil;
topS^.elem:=c;
End;

{Добавление элементов в стэк}

Procedure DobStack (Var topS: point; c: Char);
Var
s: point;
Begin
New (s);
s^.next:=topS;
topS:=s;
s^.elem:=c;
End;

{Формирование первого элемента очереди}

Procedure FormQueue (Var topQ, endQ: point; d: Char);
Begin
New (topQ);
topQ^.next:=Nil;
topQ^.elem:=d;
endQ:=topQ;
End;

{Добавление элементов в очередь}

Procedure DobQueue (Var endQ: point; d: Char);
Var
q: point;
Begin
New (q);
q^.next:=Nil;
endQ^.next:=q;
endQ:=q;
endQ^.elem:=d;
End;

{Основная программа}

Begin
Repeat
n:=1;
Writeln ('');
Write ('Введите ',n,' элемент стэка: ');
Readln( c );
FormStack (topS, c);
Repeat
n:=n+1;
Write ('Введите ',n,' элемент стэка: ');
Readln ©;
DobStack (topS, c);
Until c='.';

n:=1;
Write ('Введите ',n,' элемент очереди: ');
Readln (d);
FormQueue (topQ, endQ, d);
Repeat
n:=n+1;
Write ('Введите ',n,' элемент очереди: ');
Readln (d);
DobQueue (endQ, d);
Until d='.';

Writeln ('');
Writeln ('Повторить?(y/n)');
Readln (a);
Until a<>'y';
End.

sad.gif
volvo
Вот простая реализация Дека содержащего элементы типа Char (без объектов и обработки ошибок)

Реализация программы перенесена сюда: FAQ: Динамические структуры данных (Дек)
Dao
Volvo, пасибо громаднейшее! :D
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.