есть программка:
type luggage=record
fio: String[20];
number: Integer;
weight: Real
end ;
type uk=^lug;
lug=record
data:luggage;
next:uk;
end;
procedure PrintList (head:uk);
var x:uk;
i:integer;
begin
x:=head;
i:=1;
while x<>nil do
begin
with x^.data do
writeln(i:2,' ',fio:20,' ',number:2,' ',weight:3);
inc(i);
x:=x^.next
end
end;
procedure AddFirst(var head:uk);
var x:luggage;
a:string[20];
b:integer;
c:real;
tmp:uk;
begin
Write('Имя пассажира ');
Readln(a);
x.fio:=a;
Write('Количество вещей ');
Readln(b);
x.number:=b;
Write('Вес ');
Readln©;
x.weight:=c;
new(tmp);
tmp^.data:=x;
tmp^.next:=head;
head:=tmp;
end;
var head,tmp:uk;
n,i,k,z,l:integer;
x:luggage;
m,s:real;
begin
head:=nil;
write('введите число пассажиров ');
readln(n);
i:=0;
for i:=1 to n do begin
AddFirst(head);
end;
PrintList(head);
k:=0;
tmp:=head;
z:=tmp^.data.number;
While tmp^.next <> nil do begin
if z= tmp^.data.number then
k:=k+1;
end;
writeln('k=',k);
readln;
end .
Ты не "продвигаешься" по списку. Надо вот так:
while tmp <> nil do // не надо проверять tmp^.next, просто tmp
begin
if z = ... then k := k + 1;
tmp := tmp^.next; // <--- Этого у тебя нет
end;
IUnknow, большое спасибо! а есть ли возможность запоминать адреса тех элементов , что =Z?
Можно. Только вопрос - в том, где их запоминать? Может, проще сделать новый список из тех элементов, которые удовлетворяют условию?
Отличная идея! Еще раз спасибо!!!
А если добавить вот такую процедуру после строчки " k:=k+1; " , на какой объект надо добавить ссылку?
procedure AddFirst1(var head:uk);
var x:luggage;
tmp:uk;
begin
x.fio:=tmp^.data.fio;
x.number:=tmp^.data.number;
x.weight:=tmp^.data.weight;
new(tmp);
tmp^.data:=x;
tmp^.next:=head;
head:=tmp;
end;
Проще переписать процедуру добавления в список:
procedure AddFirst(var head:uk; data : luggage);
var tmp:uk;
begin
new(tmp);
tmp^.data:=data;
tmp^.next:=head;
head:=tmp;
end;
var
head, tmp : uk;
lst_2 : uk;
n,i,k,z : integer;
x : luggage;
begin
head:=nil;
write('введите число пассажиров ');
readln(n);
i:=0;
for i:=1 to n do
begin
Write('Имя пассажира ');
Readln(x.fio);
Write('Количество вещей ');
Readln(x.number);
Write('Вес ');
Readln(x.weight);
AddFirst(head, x);
end;
PrintList(head);
k:=0;
tmp:=head;
z:=tmp^.data.number;
lst_2 := nil;
While tmp <> nil do
begin
if z= tmp^.data.number then
begin
AddFirst(lst_2, tmp^.data);
k:=k+1;
end;
tmp := tmp^.next;
end;
writeln('k=',k);
if k > 0 then
PrintList(lst_2);
readln;
{ Не забывай освобождать память, выделенную под списки !!! }
end.