Топ-5 задач, которые решает аренда виртуального VDS/VPS сервера 
Переходим на язык жестов: Рубио подмигнул Лаврову 
И немного про варенье 
А ведь кому-то завтра на работу 
В Москве открылись шесть специализированных центров для лечения детей с 
В подводной лодке 
рисует время 
24 июля 
«Красный смех гуляет по стране...»
05.06.2011 —
жж с андроид
Нужно решить программу на паскале. тема: двунаправленные
bizikov — 10.06.2011
Нужно решить программу на паскале. тема: двунаправленные
списки.Формулировка:
Найти последнее вхождение заданного элемента в список, и определить количество элементов, идущих после него;
И так..
Первая часть программы, уже есть. Это процедуры добавления элемента:
program spisok_2;
uses
crt;
type
ptrrec=^rec;
rec=record
data:integer;
next:ptrrec; prev:ptrrec;
end;
var L,pbegin,pend,pckey,paux:ptrrec;
n,i,a, x, y, d:integer;
{процедура добавления элемента в список}
Procedure dob(Var L:Ptrrec; D:integer);
Var Q:Ptrrec;
begin
New(Q);
Q^.Data:=D;
Q^.Next:=L;
L:=Q;
end;
{процедура вывода}
procedure print(pbegin:ptrrec);
var paux:ptrrec;
begin
paux:=pbegin;
while paux<>nil do
begin
write(paux^.data, ' ');
paux:=paux^.next;
end;
writeln;
end;
Осталось написать процедуру, которая найдет в списке последний
элемент и посчитает, количество элементов, перед ним... или после.
Я от не разберусь.
Поможете?
Оставить комментарий
Популярные посты:
Предыдущие записи блогера :
Архив записей в блогах:
Я сегодня над своими детьми уржалась. В обед пошли кататься на лыжах...угу, и пофиг что лужи по колено) Через 5 минут возвращаются, ставят лыжи в гараж и достают велики ))) Вот так рассекали по лужам, под водой ледок еще хорошенький))) Стописят раз упали. Домой вернулись по уши мокрые. Вод ...
С разгона выехала со двора на дорогу-каток. Отвезла мужиков на автобус (они свой мужиццкий Opel на ремонт поставили), а теперь лежу под одеалкой и слушаю вжжжж-вжжжж-вжжжжжж от соседей вокруг. Кто не загнал машины под навесы или не посыпал выезды какой-нить херней, седни на работу ...
Команда КВН из Питера, рассказавшая про поиск новогодних подстаканников, оказалась гораздо ближе к первоисточнику, чем создатели фильма «12 месяцев. Новая сказка». А это надо было суметь. Теперь по порядку. Простое семейство из России (мамаша – следак убойного отдела, папаша – соучастник ...
Ну да. Надоело быть блондинкой. А чЁ тут такого. Личный кризис тоже тому виной. И вАще стричься больше не буду, ну их в баню – ваши парикмахерские. Обкарнали в последний раз, как убогую, благо, что шапку могу надеть, типо сезон. Ужасть. Просыпаюсь ...
Если вам кажется, что жизнь у вас прекрасная, то я немного испорчу ее... тем, что ...
