Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите со списками

Автор: Sindzi 8.07.2006 0:22

Вот сами задачи:
В задачах 1-3 использовать однонаправленные списки типа:
type te = .......; { тип элементов списка }
sp = ^el;
el = record d :te; n :sp; end;
var L : sp; E : te;
1. Описать функцию, которая находит сумму двух последних элементов списка L.
2. Описать функцию, которая определяет, имеются ли в списке L равные элементы.
3. Описать процедуру, которая в списке L из каждой группы подряд идущих равных элементов оставляет только один.

Помогите плиз angel.gif

Автор: klem4 8.07.2006 0:44

Ну для начала http://forum.pascal.net.ru/index.php?showtopic=2706&st=0&p=23570&#entry23570

Попробуй написать сам, будут конкретные вопросы, поможем.

Автор: Jose 8.07.2006 3:37

Я воще не шарю в паскале, а вот помощь нужна большая, мне бы ее кто решил cray.gif

Автор: volvo 8.07.2006 4:50

Цитата
помощь нужна большая, мне бы ее кто решил
А оно тебе поможет? smile.gif Ну, держи:

function f_1(var first: sp): integer;
var p: sp;
begin
p := first;
while p^.n^.n <> nil do p := p^.n;
f_1 := p^.d + p^.n^.d;
end;
function f_2(var first: sp): boolean;
var
p, pp: sp;
found: boolean;
begin
found := false;
p := first;
while (p <> nil) and (not found) do begin
pp := p^.n;

while (pp <> nil) and (not found) do begin
found := (p^.d = pp^.d);
pp := pp^.n;
end;

p := p^.n;
end;
f_2 := found;
end;
procedure f_3(var first: sp);
var p: sp;
begin
p := first;
while p^.n <> nil do begin

if p^.d = p^.n^.d then
while (p^.n <> nil) and (p^.d = p^.n^.d) do begin
p^.n := p^.n^.n;
end
else p := p^.n;

end;
end;

Автор: Jose 8.07.2006 22:58

Огромное спасибо! respect2.gif
Но вот я не могу понять, а что нужно вот сюда написать:
type te = ???;
wacko.gif
Взаранее извеняюсь за свою непонятливость blush.gif

Автор: Jose 9.07.2006 3:34

А еще луче было бы если бы была вся программа от самого начала до коконца sad.gif

Автор: мисс_граффити 9.07.2006 4:41

Цитата(Jose @ 9.07.2006 0:34) *

А еще луче было бы если бы была вся программа от самого начала до коконца sad.gif

это - в "задачи на заказ"

Автор: volvo 9.07.2006 5:20

Цитата(мисс_граффити @ 9.07.2006 0:41)
это - в "задачи на заказ"
yes2.gif С указанием сроков выполнения, и цены, которую ты готов заплатить...