Написать программу, которая формирует стек, осуществляет добавление элементов в стек, удаление элементов по значению и по позиции, поиск в стеке.
Не получается удалить элемент по позиции, поиск.
Спасибо огромное!
program just;
uses crt;
type
stack=^Dstack;
Dstack=record
element:integer;
nextelement:stack
end;
var top, a : stack;
n,k:integer;
procedure dobavelement(x:integer);
begin
new(a);
a^.element:=x;
a^.nextelement:=top;
top:=a;
end;
function poisk:stack;
begin
if top <> nil then
top:=a^.nextelement;
poisk:= a;
end;
procedure udalelementZ;(по значению)
begin
if top <> nil then begin
a:=top^.nextelement;
dispose(top);
top:=a;
end;
end;
procedure udalelementP;(по позиции)
begin
if top <> nil then begin
a:=top^.nextelement;
dispose(top);
top:=a;
end;
end;
procedure vvstack;
begin
writeln('Stek:');
a:=top;
while a <> nil do begin
write(a^.element,' ');
a:=a^.nextelement;
end;
writeln;
end;
begin
clrscr;
top:=nil;
for n:=1 to 5 do
dobavelement(n);
vvstack;
writeln('vvedite znachenie:');
readln(n);
dobavelement(n);
vvstack;
writeln('skolko elementov udalit:');
readln(n);
for k:=1 to n do
udalelementZ;
vvstack;
writeln('poisk elementa:');
readln(n);
poisk;
vvstack;
end.