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


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


1. Самостоятельно закрыть - никак. Если есть основания для закрытия, пиши, я закрою.
2. А вот переименовать эту - в твоих силах.
М
Заголовок темы должен быть информативным. В противном случае тема удаляется.




--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

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

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


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


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


У тебя немножко проблемы с логикой программы.
Вот так - работает. Хотя при желании можно обойтись и без переменной 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.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

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

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


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

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

 





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