07.06.2011, 23:29 | #1 (permalink) |
Новичок
Регистрация: 13.05.2011
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
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. |
07.06.2011, 23:29 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Так же на нашем форуме встречались темы, которые схожи с вашими Turbo Pascal 8, дано натуральное число n Turbo Pascal. Оператор CASE Синтаксический анализатор. Turbo Pascal |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|