Правила форума
Прочтите прежде чем задавать вопрос!
список)uses crt;
type
point=^x;
x=record
data:integer;
next:point
end;
Var f1,f2:text;
l,l1:point;
procedure input_list (var l:point);
var
p,q:point;
a:integer;
begin
writeln(maxavail,' ',memavail);
reset(f1);
read(f1,a);
new (p);
p^.next:=nil;
p^.data:=a;
l:=p;
writeln(maxavail,' ',memavail,' ',a);
while not eof (f1) do
begin
read(f1,a);
new(q);
q^.next:=nil;
q^.data:=a;
p^.next:=q;
p:=q;
writeln(maxavail,' ',memavail,' ',a);
end;
end;
procedure output_list (var l:point);
var
p:point;
a:integer;
begin
p:=l; rewrite(f2);
while p <> nil do
begin
a:=p^.data;
writeln('element of file',a);
p:=p^.next;
end;
close (f2);
end;
PROCEDURE DESTROY(L:POINT);
VAR P,Q:POINT;A:integer;
BEGIN
P:=L;
WHILE P<>NIL DO
begin
Q:=P;
P:=P^.NEXT;
A:=Q^.DATA;
DISPOSE(Q);
WRITELN(A,' ',MAXAVAIL,' ',MEMAVAIL, ' dispose');
END;
end;
Function copy_list(l:point):point;
var item:point;
begin
new (item);
copy_list:=item;
while l<>nil do
begin
writeln(maxavail, ' ' ,memavail,' copy data',l^.data);
item^.data:=l^.data;
l:=l^.next;
if l<>nil then
begin
new (item^.next);
item:=item^.next;
end
else
item^.next:=nil;
end;
end;
begin
clrscr;
assign ( f2,'out.dat');
assign (f1,'in.dat');
input_list(l);
output_list(l);
l1:=copy_list(l);
output_list(l);
output_list(l1);
DESTROY(L);
destroy(l1);
writeln(maxavail,' ' ,memavail);
end.
нет ошибок!
но я хочу узнать:
1) когда я состоил список (5 элеметов):1 2 3 4 5,почему ещё есть 0 ?
2) когда мой список состоил из 6 элементов или больше, почему программ работает не точно ?
""copy и paste и run эту задачу! и оъбисните мне пожалуйста!!""
Сообщение отредактировано: Lapp -
