сортировка Опции

[:-)~]

Пожалуста помогите...тут чуть-чуть доделать надо
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.

Сообщение отредактировано: :-)~ - 27.05.2007 17:35

[мисс_граффити]

У тебя немножко проблемы с логикой программы.
Вот так - работает. Хотя при желании можно обойтись и без переменной cont.

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;

  cont: boolean;
begin

  last := first;
  cont:=true;
  while cont do begin
    write('vvedite eliment: '); readln(s);
    write('eshe? [y/n] ');   readln©;
    if c = 'n' then
      cont:=false;
    new(p);
    p^.info := s;
    p^.link := nil;

    if first = nil then first := p
    else last^.link := p;
    last := p;
    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.