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

> Внимание!

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

 
 Ответить  Открыть новую тему 
> Программа обрабатывающая список, Помогите пожалуйста!!!!
Alika
сообщение 1.12.2012 15:46
Сообщение #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;


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


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

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

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


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


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





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

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


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

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

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

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

 



- Текстовая версия 19.03.2024 11:28
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"