Форумы-->Форум для внеигровых тем-->
| Автор | Ошибка |
|---|
Народ помогите найти "косяк"
{----------------------------}
function poisk_m(l:tlist):telem;
var m:telem;
begin
poisk_m:=0;
if l<>nil then
begin
m:=l^.info;
While L<>nil do
begin
if l^.info>m then
m:=l^.info;
l:=l^.next;
end;
end;
poisk_m:=m;
end;
{--------------------------}
Procedure del_mid(var n:tlist; m:telem);
var p,dp,d:tlist;
begin
if n<>nil then
begin
p:=n;
dp:=p;
while (p<>nil) do
begin
if p^.info=m then
begin
dp:=p^.next;
d:=p;
p^.next:=dp; | dispose(d);
end
else
begin
dp:=p;
p:=p^.next;
end;
end;
end;
end;
{----------------------------}
Procedure del_max(var n:tlist);
var i,i1:integer; max:telem;
p,l,l2:tlist;
begin
l:=n;
l2:=n;
i1:=0;
max:=poisk_m(l);
if l2<>nil then
begin
while l2<>nil do
begin
if l2^.info=max then inc(i1);
l2:=l2^.next;
end;
for i:=1 to i1 do
del_mid(n,max);
listprint(n);
end;
end; | | Проще новый купить. | | А компилятор спросить? | для Vertolet:
кого новый? это код, а вам похоже в другую тему | | Новый косяк, естественно. | | Если вдруг найдется знающий человек, а не недотроль то в ЛП | | тема закрыта by КаРаТеЛь_Андрей (2012-11-09 09:42:57) |
|---|
К списку тем
|
