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

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

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

 
 Ответить  Открыть новую тему 
> Программа обрабатывающая список, Помогите пожалуйста!!!!
сообщение
Сообщение #1





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

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


Надо разработать программу, обрабатывающую список. Вот данные исходного файла: сведения о работниках; организовать следующую прцедуру: создать упорядоченный список, организовав процедуру всавки Insertion.
Процедуру Insertion организовала, а как упорядочить не знаю,помогите!!! Вот часть программы:
uses crt;
type
rabotniki=^spisok;
spisok=record
n:byte;
fio:string;
next:rabotniki;
end;
Var
e,adr,adr1,adr2:rabotniki;
Procedure insertion;
begin
adr1:=e;
adr2:=e^.next;
while (adr^.fio>adr2^.fio) and (adr1^.next<>nil) do
begin
adr1:=adr2;
adr2:=adr1^.next;
end;
if adr^.fio<=e^.fio then
begin
adr^.next:=e;
e:=adr;
end;
if (adr^.fio>adr1^.fio) and (adr^.fio<=adr2^.fio) then
begin
adr1^.next:=adr;
adr^.next:=adr2;
end;
if adr1^.fio>=adr2^.fio then
begin
adr1^.next:=adr;
adr^.next:=nil;
end;
end;
Procedure sp;
Var
f:text;
begin
assign (f,'f.txt');
reset (f);
new (adr);
readln (f,adr^.n);
readln (f,adr^.fio);
adr^.next:=nil;
e:=adr;
while not(eof(f)) do
begin
new (adr);
readln (f,adr^.n);
readln(f,adr^.fio);
insertion;
end;
close(f);
end;


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


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

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

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


Alika, а что насчет распечатки списка (просмотра того, что получилось)?
Насколько я понимаю, insertion должна вставлять запись таким образом, что список получается уже упорядоченным. Только с Вашими вольно сделанными отступами и глобальными переменными читается она очень плохо...


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





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

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


Цитата(мисс_граффити @ 2.12.2012 3:06) *

Alika, а что насчет распечатки списка (просмотра того, что получилось)?
Насколько я понимаю, insertion должна вставлять запись таким образом, что список получается уже упорядоченным. Только с Вашими вольно сделанными отступами и глобальными переменными читается она очень плохо...

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


Бывалый
***

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

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


Why not settling on games that is fun and at the same time your earning. Well itll make suspense because of the game as well but dude just try it and it gave me hope while pandemic is real rn. 7 Basic and Useful Information You Need To Know About Baccarat
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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