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

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Линейные списки, Очереди
сообщение
Сообщение #1


Влюблённый псих
***

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

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


Можно ли назвать структуру нижеприведённой программы очередью?


TYPE
EXO=^O;
O=record
Data: integer;
Next:EXO;
end;
var BeginO,EndO:EXO;

Procedure createO(Var BeginO,EndO:EXO);
Var
u:EXO; f1:text;
Begin
Assign(F1,'DAN.inp');
Reset(f1);
Assign(output,'res.out');
rewrite(output);
While not EOF(f1) do
Begin
new(u);
Readln(f1,u^.data);
writeln(u^.data);
u^.Next:=Nil;
If BeginO=Nil then

BeginO:=u else
EndO^.next:=u;
EndO:=u;
End;
end;

Begin
createO(BeginO,EndO);
end.

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


Гость






Если правильно реализуешь методы Get/Put, то будет очередь. Можно сделать и стек... Пока это только создание односвязного списка...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Влюблённый псих
***

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

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


ясненько

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

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

 





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