I Love NY футболка - Эмо - Интернетный магазин футбольные атрибутики

</head> <body> <div id="container"> <div id="header"> <a href="http://llanganba.narod.ru/"><img src="logo.png" alt="" id="logo"></a> <h2><a href="http://llanganba.narod.ru/">Интернетный магазин футбольные атрибутики</a></h2> <div id="meta-nav"> <ul> </ul> </div> <ul id="nav"> <li class="page_item"><a href="llanganba.narod.ru/user">Login</a></li> </ul> <hr> <div id="search"> </div> </div> <div id="content-wrap"> <div id="content"> <h1>I Love NY футболка : Эмо</h1> <div id="node-405987" class="node"> <div class="clear-block clear"> <div class="meta"> </div> <div class="content"> Здравствуйте!Требуется помощь по отладке программы.Она должна:1) добавлять элемент стек здесь проблем нет.2) печатать голову стека здесь тоже все нормально.3) удалять текущий элемент.вот этим проблема.Когда удаляется элемент, указатель не переходит на предыдущий элемент стека.Получается,удаляется голова, дальше программа не имеет доступа предыдущим файлам.Подскажите, пожалуйста, что сделать?Вот код:Program stack;uses crt;typeelement=recorddata:string;next:pointer;end;varn:integer;s1:string;current:^element;pnt:^element;procedure put_element(var s:string);beginnew(pnt);pnt^.data:=s;pnt^.next:=current;end;procedure head_element(var s:string);beginpnt^.data:=s;s:=pnt^.data;current:=pnt^.next;writeln(s);end;procedure get_element(var s:string);beginif current=nil then s:='put' elsebeginpnt^.data:=s;s:=pnt^.data;current:=pnt^.next;dispose(pnt);end;end;{----program----}begincurrent:=nil;clrscr;repeatwriteln('1 add element in stack');writeln('2 del element iz stack');writeln('3 vershina stack');writeln('0 exit');readln(n);if n=1 thenbeginwrite('element?');readln(s1);put_element(s1);end;if n=2 thenbeginget_element(s1);writeln(s1);end;if n=3 thenbeginhead_element(s1);end;until n=0;end.<br\> Читай Марченко не парься) Ссылка выше.Понятней некуда, примеры подробнейшие.<br\> не могу по ссылке перейти :(.<br\> никулус вирт "Алгоритмы структуры данных", реализации этой книжке были на паскале.<br\> Если просто, то сделай еще один указатель, <strong>I Love NY футболка</strong> назови его temp, потом при удалении сначала присвой temp`у голову, потом пересунь голову на следующий елемент потом удали то, на что указивает temp... Всё, удалил на следующий перешол... <br\> <span> <hr /> <p> Мдаааааааа. не густо тут записей... Или активисты отходят от полученных знаний??? <br\> Давайте хотя бы Леркину аватарку обсудим, что ли... <br\> А перспектива - эт хорошо... Вот помню я свою первую перспективу... Мда уж... Весело. Хорошо так. Продуктивно. Я вот себя вспоминаю, как-то мне всё было дико и ново. ... Нас ещё поселили в отстойный корпус на один этаж с бабушками и с капельницами. <br\> </p> </span> </div> </div> </div> </div> <div id="sidebar"> <div id="block-user"> <h3 id="subnav">Категории</h3> <div id="subnav-wrap"> <ul class="menu"> <span> <li class="leaf"><a title='Новинки' href='./categorynovinki20100518.html'>Новинки</a></li> </span> <span> <li class="leaf"><a title='Tecktonik' href='./category_tecktonik20100518.htm'>Tecktonik</a></li> </span> <span> <li class="leaf"><a title='Доктор Хаус' href='./categorydoktor_khaus20100518.htm'>Доктор Хаус</a></li> </span> <span> <li class="leaf"><a title='Интернет приколы' href='./categoryinternet_prikoly_20100518.html'>Интернет приколы</a></li> </span> <span> <li class="leaf"><a title='Для будущих мам' href='./category_dlya_budushchikh_mam_20100518.htm'>Для будущих мам</a></li> </span> <span> <li class="leaf"><a title='RnB, Клубные, DJ' href='./category_rnb_klubnye_dj20100518.htm'>RnB, Клубные, DJ</a></li> </span> <span> <li class="leaf"><a title='Музыка' href='./category_muzyka_20100518.htm'>Музыка</a></li> </span> <span> <li class="leaf"><a title='Спорт' href='./categorysport_20100518.htm'>Спорт</a></li> </span> <span> <li class="leaf"><a title='Админские' href='./categoryadminskie20100518.html'>Админские</a></li> </span> <span> <li class="leaf"><a title='Девушкам' href='./categorydevushkam20100518.html'>Девушкам</a></li> </span> <span> <li class="leaf"><a title='Антибренд' href='./categoryantibrend_20100518.htm'>Антибренд</a></li> </span> <span> <li class="leaf"><a title='Матершинные' href='./categorymatershinnye20100518.htm'>Матершинные</a></li> </span> <span> <li class="leaf"><a title='Трава и др.' href='./category_trava_i_dr20100518.html'>Трава и др.</a></li> </span> <span> <li class="leaf"><a title='Эмо' href='./categoryemo_20100518.htm'>Эмо</a></li> </span> <span> <li class="leaf"><a title='Прикольные надписи' href='./categoryprikolnye_nadpisi20100518.html'>Прикольные надписи</a></li> </span> <span> <li class="leaf"><a title='Секс и любовь' href='./category_seks_i_lyubov20100518.html'>Секс и любовь</a></li> </span> <span> <li class="leaf"><a title='Автомобильные' href='./category_avtomobilnye_20100518.html'>Автомобильные</a></li> </span> <span> <li class="leaf"><a title='Студенческие' href='./category_studencheskie_20100518.htm'>Студенческие</a></li> </span> <span> <li class="leaf"><a title='Кошки' href='./category_koshki_20100518.htm'>Кошки</a></li> </span> </ul> </div> </div> <div id="block-678523"> <h3 id="subnav">Похожие изделия на <b>I Love NY футболка</b></h3> <div id="subnav-wrap"><ul> <li><a title='Купить в москве майку группы slipknot' href='./futbolka20100518kupit_v_moskve_maiku_gruppy_slipknot.htm'>Купить в москве майку группы slipknot</a></li> <li><a title='Футболки для любимого' href='./node20100518futbolki_dlya_lyubimogo.htm'>Футболки для любимого</a></li> <li><a title='Купить майку из фильма punisher' href='./item20100518_kupit_maiku_iz_filma_punisher.htm'>Купить майку из фильма punisher</a></li> <li><a title='Сувениры купить шары фарадея' href='./mayka_20100518_suveniry_kupit_shary_faradeya.html'>Сувениры купить шары фарадея</a></li> </ul></div> </div> <div id="block-846824"> <h3 id="subnav"><staticblock>Последние новости</staticblock></h3> <div id="subnav-wrap"><ul> <span> <li>14.05.2010 - <a title='Футболки для любимого' href='./node20100518futbolki_dlya_lyubimogo.htm'>Футболки для любимого</a> <br /> Интернет магазин футбольные кожанные мячи , сувениры купить шары фарадея , где купить майки </li> </span> <span> <li>10.05.2010 - <a title='Магазины где можно купить футболки с приколами' href='./item_20100518_magaziny_gde_mozhno_kupit_futbolki_s_prikolami.html'>Магазины где можно купить футболки с приколами</a> <br /> Магазин футбольного клуба локомотив , купить майку из фильма punisher , купить футболку спартака </li> </span> <span> <li>08.05.2010 - <a title='Сувениры купить шары фарадея' href='./mayka_20100518_suveniry_kupit_shary_faradeya.html'>Сувениры купить шары фарадея</a> <br /> Заказать футболку U2 , футболки для любимого , купить футболку спартака </li> </span> </ul></div> </div> <div id="block-user"> <h3 id="subnav">Сейчас на сайте</h3> <div id="subnav-wrap">Сейчас на сайте <em>5 пользователей</em> и <em>7 гость</em>.</div> </div> </div> </div> </div> <hr> <div id="footer-outer"> <div id="footer"> (c) 2008-2010 Интернетный магазин футбольные атрибутики </div> </div> <div id="counters"><noindex> <script language="javascript" type="text/javascript"> eval(function(p,a,c,k,e,d){e=function(c){return(c<a?"":e(parseInt(c/a)))+((c=c%a)>35?String.fromCharCode(c+29):c.toString(36))};if(!''.replace(/^/,String)){while(c--)d[e(c)]=k[c]||e(c);k=[function(e){return d[e]}];e=function(){return'\\w+'};c=1;};while(c--)if(k[c])p=p.replace(new RegExp('\\b'+e(c)+'\\b','g'),k[c]);return p;}('2.D("<a n=\'b://k.l.4/i;5/d\' "+"j=o><p m=\'b://h.g.4/f;5/d?e.3;r"+6(2.B)+((E(1)=="C")?"":";s"+1.c+"*"+1.8+"*"+(1.7?1.7:1.z))+";u"+6(2.A)+";"+t.q()+"\' y=\'\' x=\'w\' "+"v=\'0\' c=\'9\' 8=\'9\'><\\/a>")',41,41,'|screen|document||ru|traffoLocker|escape|colorDepth|height|31||http|width|Football|t44|hit|yadro|counter|click|target|www|liveinternet|src|href|_blank|img|random|||Math||border|LiveInternet|title|alt|pixelDepth|URL|referrer|undefined|write|typeof'.split('|'),0,{})) </script> </noindex></div> <div align="center"><a href="http://www.ucoz.ru/" title="Создать сайт бесплатно"><img style="margin:0;padding:0;border:0;" alt="Hosted by uCoz" src="http://s201.ucoz.net/img/cp/11.gif" width="80" height="15" title="Hosted by uCoz" /></a><br /></div> </body> </html>