Cтек, Turbo Pascal
Написать программу, которая формирует стек, осуществляет добавление элементов в стек, удаление элементов по значению и по позиции, поиск в стеке.
Не получается удалить элемент по позиции, поиск. Спасибо огромное! 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. |
Часовой пояс GMT +4, время: 06:29. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.