IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> сортировка
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской
Реальное имя: Дима

Репутация: -  0  +


Пожалуста помогите...тут чуть-чуть доделать надо
1) как закрыть старую тему?

2)мне надо отсортировать динамический список. Если я ввожу 4 элимента то прога работает с 3 .. blink.gif
где ошибка?
заранее очень благодарю вас....

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.




Сообщение отредактировано: :-)~ -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской
Реальное имя: Дима

Репутация: -  0  +


перейменовать то я переименовал, но вопрос о проге остался тот же....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.11.2020 21:45
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name