1) как закрыть старую тему?
2)мне надо отсортировать динамический список. Если я ввожу 4 элимента то прога работает с 3 ..
где ошибка?
заранее очень благодарю вас....
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
plist = ^tlist;
tlist = record
info: integer;
link: plist;
end;
var
first1, posl1: plist;
procedure print(p: plist);
begin
while p <> nil do begin
write(p^.info:5);
p := p^.link
end;
writeln;
end;
procedure vvod (var first, last: plist);
var
s: integer;
p: plist;
c: char;
begin
last := first;
while true do begin
write('vvedite eliment: '); readln(s);
write('eshe? [y/n] '); readln©;
if c <> 'n' then begin
new(p);
p^.info := s;
p^.link := nil;
if first = nil then first := p
else last^.link := p;
last := p;
end
else break;
end;
end;
var
ii, jj, nmin: plist;
T: integer;
begin
first1:=nil;
vvod (first1, posl1);
print(first1);
{ сортировка }
ii := first1;
while ii^.link <> nil do begin
nmin := ii;
jj := ii^.link;
while jj <> nil do begin
if jj^.info < nmin^.info then nmin := jj;
jj := jj^.link;
end;
T := ii^.info;
ii^.info := nmin^.info;
nmin^.info := T;
ii := ii^.link;
end;
writeln('otsortirovanii:');
print(first1);
readln;
end.