Очередь

@Conroex · Регистрация: 20.04.2010

Author24 — интернет-сервис помощи студентам

Создать очередь с n элементами. Дополнить её k элементами и распечатать. ребята, прошу, помогите

@lera8 · 21.05.2010, 18:14

Pascal

uses crt;
type
Link=^Chisla;
Chisla=record
  chis:integer;
  next:Link;
end;
var
i,n,k:integer;
Head,Tail:Link;
{Процедура ввода}
procedure Input(var Head1,Tail1:Link;a:integer);
var
tmp:Link;
begin
  New(tmp);
  tmp^.next:=nil;
  tmp^.chis:=a;
     if Tail1 <> nil then
       Tail1^.next:=tmp;
         Tail1:=tmp;
           if Head1=nil then
             Head1:=Tail1;
end;
{Процедура вывода}
procedure Print(Head1:Link);
begin
 if Head1=nil then
   begin
     writeln('Очередь пуста!');
     exit;
   end;
  while Head1 <> nil do
    begin
      write(Head1^.chis:4);
      Head1:=Head1^.next;
    end;
end;
{Процедура удаления очереди}
procedure FreeTurn(var Head1:Link);
var
tmp:Link;
begin
  while Head1 <> nil do
    begin
      tmp:=Head1;
      Head1:=Head1^.next;
      Dispose(tmp);
    end;
end;
 
begin
 Head:=nil; Tail:=nil;
  writeln('Введите количество элементов');
  readln(n);
   for i:=1 to n do
     begin
       writeln('Введите элемент');
       readln(k);
       Input(Head,Tail,k);
     end;
  writeln('Элементы очереди');
  Print(Head);
  writeln('Введите количество элементов');
  readln(n);
  for i:=1 to n do
     begin
       writeln('Введите элемент');
       readln(k);
       Input(Head,Tail,k);
     end;
  writeln;
  writeln('Элементы очереди');
  Print(Head);
  FreeTurn(Head);
end.

Тут особо комментариев нету, если что спрашивайте

@Conroex · 21.05.2010, 19:05 **[ТС]**

Ну вот смотри))
я сделал так....проще но она кривая..

Pascal

Program xz;
uses crt;
type ochered=^st;
       st=record
       inf:integer;
       link:ochered;
var begl,endl.p:ochered; i,n:integer;
begin
clrscr;
begl:=nil;
endl:=nil;
new(p);
writeln('BBECTU ELEMENTU OCHEREDU');
readln(p^.inf);
p^.link:=nil;
begl:=p;
endl:=p;
writeln('BBECTU kol-vo dobavlyaemux elementov');
readln(n);
for i:=1 to n do
begin
new(p);
writeln('BBECTU DOBAVLENUE OCHEREDU');
readln(p^.inf);
p^.link:=nil;
endl^.link:=p;
endl:=p;
end;
p:=begl;
while p<>nil do
begin
write(p^.inf,' ');
p:=p^.link;
readln;
end;
end.

вот так вот..... всё по простому..только я не указывал кол-во элементов очереди вначале..

@lera8 · 21.05.2010, 19:08

Так почему не сделать то же самое

Сообщение от Conroex

for i:=1 to n do
begin
new(p);
writeln('BBECTU DOBAVLENUE OCHEREDU');
readln(p^.inf);
p^.link:=nil;
endl^.link:=p;
endl:=p;
end;

и в самом начале, ведь это тоже добавление?

@Conroex · 21.05.2010, 19:33 **[ТС]**

да это добавление...
я тебе говорю за кол-во элементов в начальной очереди

@lera8 · 21.05.2010, 19:41

Сообщение от Conroex

да это добавление...

я прекрасно понимаю про что говоришь. Дополнение и создание очереди то есть заполнение её элементами происходит одинаково. поэтому для того чтобы дополнить очередь элементами ты должен использовать тот же алгоритм что и при формирование очереди,те что я написала выше, что тут не понятного?

@Conroex · 21.05.2010, 20:00 **[ТС]**

тоесть сделать вот так вот?

C++

new(p);
writeln('BBECTU ELEMENTU OCHEREDU');
readln(p^.inf);
p^.link:=nil;
begl^.link:=p;
endl:=p;

@lera8 · 21.05.2010, 20:07

Не совсем так, вот я поправила

Pascal

Program xz;
uses crt;
type ochered=^st;
       st=record
       inf:integer;
       link:ochered;
     end;
var begl,endl,p:ochered; i,n:integer;
begin
clrscr;
begl:=nil;
endl:=nil;
writeln('Введите колво элементов очереди');
readln(n);
for i:=1 to n do
begin
new(p);
writeln('Введите доб элемент');
readln(p^.inf);
p^.link:=nil;
if  endl <> nil then
endl^.link:=p;
endl:=p;
if  begl=nil then
 begl:=endl;
end;
 
writeln('BBECTU kol-vo dobavlyaemux elementov');
readln(n);
for i:=1 to n do
begin
new(p);
writeln('BBECTU DOBAVLENUE OCHEREDU');
readln(p^.inf);
p^.link:=nil;
endl^.link:=p;
endl:=p;
end;
p:=begl;
while p<>nil do
begin
write(p^.inf,' ');
p:=p^.link;
readln;
end;
end.

@Conroex · 21.05.2010, 20:22 **[ТС]**

Извини, что я такой наивный, но позволь спросить...

Сообщение от lera8

Не совсем так, вот я поправила

Pascal

f
if  endl <> nil then
endl^.link:=p;
endl:=p;
if  begl=nil then

Для чего эти условия?

@lera8 · 21.05.2010, 20:26

Вот это условие

Сообщение от Conroex

if endl <> nil then

это для добавление элементов в очередь в которой уже что то есть
а это условие

Сообщение от Conroex

if begl=nil then

обрабатывает то случай если мы добавляем элемент в пустую очередь то есть заносим первый элемент.
вот так, может вот только не очень объяснила

@Conroex · 22.05.2010, 12:51 **[ТС]**

Всё понял)))

Ещё одно)) помоги мне в конце распечатать очередь в рядок с пробелом..) просто по теории алгоритмам я ваще не люлю))

@lera8 · 22.05.2010, 12:54

Сообщение от lera8

write(p^.inf,' ');
p:=p^.link;
readln;

Вот отсюда убери Readln

@Conroex · 22.05.2010, 12:57 **[ТС]**

Убрал, теперь после ввода дополнительных элементов меня выкидует на основную программу...

@lera8 · 22.05.2010, 13:00

Pascal

Program xz;
uses crt;
type ochered=^st;
       st=record
       inf:integer;
       link:ochered;
     end;
var begl,endl,p:ochered; i,n:integer;
begin
clrscr;
begl:=nil;
endl:=nil;
writeln('Введите колво элементов очереди');
readln(n);
for i:=1 to n do
begin
new(p);
writeln('Введите доб элемент');
readln(p^.inf);
p^.link:=nil;
if  endl <> nil then
endl^.link:=p;
endl:=p;
if  begl=nil then
 begl:=endl;
end;
 
writeln('BBECTU kol-vo dobavlyaemux elementov');
readln(n);
for i:=1 to n do
begin
new(p);
writeln('BBECTU DOBAVLENUE OCHEREDU');
readln(p^.inf);
p^.link:=nil;
endl^.link:=p;
endl:=p;
end;
p:=begl;
while p<>nil do
begin
write(p^.inf,' ');
p:=p^.link;
end;
end.

попробуй у меня работает

@Conroex · 22.05.2010, 13:09 **[ТС]**

Да работает он не выводит...

Сообщение от lera8

Pascal

begin
write(p^.inf,' ');
p:=p^.link;
end;
readln;
end.

я сделал так...оно выводит сразу..но в столбец..

@Conroex 35 / 34 / 9 Регистрация: 20.04.2010 Сообщений: 126
	22.05.2010, 12:51 [ТС]	11
	Всё понял))) Ещё одно)) помоги мне в конце распечатать очередь в рядок с пробелом..) просто по теории алгоритмам я ваще не люлю)) 0

@Conroex 35 / 34 / 9 Регистрация: 20.04.2010 Сообщений: 126
		1
	Очередь 21.05.2010, 14:51. Показов 2695. Ответов 14 Метки нет (Все метки) Создать очередь с n элементами. Дополнить её k элементами и распечатать. ребята, прошу, помогите 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	21.05.2010, 19:08	4
	Так почему не сделать то же самое Сообщение от Conroex for i:=1 to n do begin new(p); writeln('BBECTU DOBAVLENUE OCHEREDU'); readln(p^.inf); p^.link:=nil; endl^.link:=p; endl:=p; end; и в самом начале, ведь это тоже добавление? 0

@Conroex 35 / 34 / 9 Регистрация: 20.04.2010 Сообщений: 126
	21.05.2010, 19:33 [ТС]	5
	да это добавление... я тебе говорю за кол-во элементов в начальной очереди 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	21.05.2010, 19:41	6
	Сообщение от Conroex да это добавление... я прекрасно понимаю про что говоришь. Дополнение и создание очереди то есть заполнение её элементами происходит одинаково. поэтому для того чтобы дополнить очередь элементами ты должен использовать тот же алгоритм что и при формирование очереди,те что я написала выше, что тут не понятного? 1

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	21.05.2010, 20:26	10
	Вот это условие Сообщение от Conroex if endl <> nil then это для добавление элементов в очередь в которой уже что то есть а это условие Сообщение от Conroex if begl=nil then обрабатывает то случай если мы добавляем элемент в пустую очередь то есть заносим первый элемент. вот так, может вот только не очень объяснила 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	22.05.2010, 12:54	12
	Сообщение от lera8 write(p^.inf,' '); p:=p^.link; readln; Вот отсюда убери Readln 0

@Conroex 35 / 34 / 9 Регистрация: 20.04.2010 Сообщений: 126
	22.05.2010, 12:57 [ТС]	13
	Убрал, теперь после ввода дополнительных элементов меня выкидует на основную программу... 0