Фарит Ахмеджанов. Курьер DV - the Best - Дом. Быт. Досуг

"Саламон"Спеша, неумолимо, время мчится,Сурова и безжалостна судьба.До наших дней дошла святая притча,Прошедшая сквозь долгие века.Давным давно, гласит нам то приданье,Когда еще сон джинов не исчез,Царь Саламон огромным царством правил,Пророком был он посланный с небес.И наделенный свыше грозной властью,Людские споры мог он разрешать.Правдивое и мудрое решеньеСкрепляла Саламонова печать.И Вот по справедливости однажды,Когда на троне суд земной вершил,В людском обличии пророкуЯвился ангел смерти Азраил.Явился он весь в белом одеянье,И ангельски был бесподобен лик.Пришел от Всевышнего с посланьем,И во дворце люд на мертво затих.С почтением приветствовав пророка,Благославив, речь начал Азраил,И Излагая весть, он ненарокомВдруг на купце свой взгляд остановил.И с изумленьем посмотрев сурово,Он пристально в глаза взглянул купцу,И не промолвил он ему не слова,Но дрожь прошла по бледному лицу.И покачнул главою с удивленьем,Принесшую с собой окончив речь,С пророком распрастисвшись удалился,И к Саламону бросился купец.О, Мудрый Салаламон, молю я,Исполнен я предчувствием конца.Проклятие на мне, ведь ангел смертиНе зря же посмотрел в мои глаза.Богат я очень, и к тому же молод,Не хочется так рано умереть,Прошу перенеси меня отсюда,Туда где не настигнет меня смерть.Твое желанье я смогу исполнить,Сказал ему не торопясь пророк.К Всевышнему взывая, попрошу я,Чтоб ветром ты унесся на Восток.Сквозь облака седые, через горы,Пускай же унесут тебя ветра,Коль скрыться хочешь ты от смертной доли.Страна куда прибудешь далека.И произнес молитву Саламон,И вдруг свирепыцй смерчь вокруг поднялся.И по дворцу пронесся вихрем он,И растворившись в тьме, купец умчался.Прошло два дня, и с праведным веленьем,К пророку вновь явился Азраил.И выслушав посланье с нетерпеньем,Примудрый Саламон его спросил:"Твое деянье для меня священно,Расспрашивать хоть мне и не к лицу,Скажи мне ангел почему суровов глаза ты посмотрел тому купцу?"Я ангел смерти, я судьбы конец,По воле Бога, по исходу дней.Как только же смолкает стук сердец,Я души забираю у людей.Когда же направлялся я с посланьемОт Господа Всевышнего к тебе,Я получил святое предписанье,Что жизнью станет меньше на Земле.Еще для одного настал черед,Я получил от Господа приказ,Где смерть наступит, имя человека,Чтоб умертвил его я через час.И удивленью небыло предела,Когда того кого скончался срок,Не на Востоке, а у ложи трона,На Западе увидил я пророк.И повинуясь Божьему веленью,Я через час исполнил тот приказ.Его я встретил там в стране далекой,На век светильник дней его угас.Спеша неумолимо, время мчится,Сурова и безжалостна судьба.До наших дней дошла святая притча,Прошедшая сквозь долгие года.И истина у притчи такова:"Коль срок исписан - то спасенья нету,Не деться нам от смерти никуда,Кто от нее бежит бежит на встречу"!
Потом Фарит Ахмеджанов. Курьер DV - the Best
Конечно там будут раздумья.Если не ошибаюсь, там порядка O(\phi^n) вызовов функции при вычислении n-го числа Фибоначчи, где \phi - золотое сечение. Тем более, что одно и то же значение функции считается по нескольку раз. Зачем числа Фибоначчи рекурсивно считать?)3 строчки - и будет подсчет с нормальной скоростью). таким способом сделал почти сразу. Мне надо в двух вариантах сделать, в обычном и в рекурсии( и для рекурсии доп сделать, что бы стек не переполнялся, т.е. решить проблему с перенаполнением). Здравствуйте! Требуется помощь по отладке программы. Она должна: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.