помогите разобратся плзззззззз....если не сложно оставлять коментарии и исходники какие ниб. :p2:
вот сама задачка:
Написать программу реализации очереди с помощью курсоров
Зарание благодарен
Полная версия: Структуры данных и алгоритмы
В Паскале курсор это pointer - ведь Ахо пишет об этом...
В подфоруме FAQ есть то, что вам надо...
В подфоруме FAQ есть то, что вам надо...
Например, здесь:
Структуры данных - Очереди
Структуры данных - Очереди
всем спасибки !!ща пойду разбираться
Почему когда я запускаю программу он пишет cannot run a unit
че это такое и как с этим ьороться?
че это такое и как с этим ьороться?
Потому что там модуль, а модули не запускаются...
Описанные в интерфейсной части модуля процедуры и функции (и типы) можешь использовать в своей программе... (только подключи модуль)
Описанные в интерфейсной части модуля процедуры и функции (и типы) можешь использовать в своей программе... (только подключи модуль)
...вы уж извените за этот вопрос( я чайник), но КАКИМ МАКАРОМ подключить???????
Цитата(Хитрый_панк @ 14.02.05 23:02)
КАКИМ МАКАРОМ подключить?
В новом файле первой строкой программы пишешь:
Код
Uses Queue;
{ А дальше - твоя программа }
{ А дальше - твоя программа }
В твоей программе должно быть именно использование очереди, потому что файл "queue.pas" содержит лишь ее описание...
Использовать очередь можно, например, вот так:
Код
uses queue;
var q: TQueue; i: integer;
begin
QueueInit(q);
for i := 1 to 10 do
QueuePush(q, i);
writeln('printing the queue:')
while not QueueEmpty(q) do
writeln( QueuePop(q) );
end.
var q: TQueue; i: integer;
begin
QueueInit(q);
for i := 1 to 10 do
QueuePush(q, i);
writeln('printing the queue:')
while not QueueEmpty(q) do
writeln( QueuePop(q) );
end.
Ничего не понимаю....модуль поставил...а ошибку ту же самую пишет 
Хитрый_панк
Файлы программы и модуля должны находиться в одной директории, в редакторе TP открывается файл программы и выбирается опция Make (F9) для компиляции как самой программы, так и всех модулей, от которых она зависит... Тогда такая ошибка возникнуть не должна...
Файлы программы и модуля должны находиться в одной директории, в редакторе TP открывается файл программы и выбирается опция Make (F9) для компиляции как самой программы, так и всех модулей, от которых она зависит... Тогда такая ошибка возникнуть не должна...
.... 
а можно вообще не использовать эти модули а составить программу из процедур??
а можно вообще не использовать эти модули а составить программу из процедур??
можно.
не ругайте меня строго ...у меня тока началось изученме Паскаля...я пытался задать очередь....покажите ошику и как ее исправить :p2:
Код
program roots;
type
point= ^item;
item = record
number: integer;
next: point
var n: integer;
r: ^integer;
begin
Writeln('Vvedite n');
readln (n) ;
first:= nil;
while n>0 do
begin
New ( r );
r^.Next:=first;
r^.Number:=n;
first:=r;
n:=n-1;
end;
End.
type
point= ^item;
item = record
number: integer;
next: point
var n: integer;
r: ^integer;
begin
Writeln('Vvedite n');
readln (n) ;
first:= nil;
while n>0 do
begin
New ( r );
r^.Next:=first;
r^.Number:=n;
first:=r;
n:=n-1;
end;
End.
Показываю:
P.S. А в каком это интересно компиляторе даже не показываются ошибки? Или все-таки показываются? Тогда в чем же проблема?... ;)
Код
program roots;
type
point= ^item;
item = record
number: integer;
next: point;
end; { *** Этого не было *** }
var
n: integer;
r: point; { *** а не ^integer *** }
first: point; { *** Этого тоже не было *** }
begin
Writeln('Vvedite n');
readln (n);
first:=nil;
while n>0 do
begin
New ( r );
r^.Next:=first;
r^.Number:=n;
first:=r;
n:=n-1; { *** Можно заменить на Dec(n); *** }
end;
End.
type
point= ^item;
item = record
number: integer;
next: point;
end; { *** Этого не было *** }
var
n: integer;
r: point; { *** а не ^integer *** }
first: point; { *** Этого тоже не было *** }
begin
Writeln('Vvedite n');
readln (n);
first:=nil;
while n>0 do
begin
New ( r );
r^.Next:=first;
r^.Number:=n;
first:=r;
n:=n-1; { *** Можно заменить на Dec(n); *** }
end;
End.
P.S. А в каком это интересно компиляторе даже не показываются ошибки? Или все-таки показываются? Тогда в чем же проблема?... ;)
VOLVO спасбо за помощь! ;) я решил идти дальше)))
теперь я пытаюсь в эту прогу вставить процедуру - помещение в хвост...я знаю ,что должны быть строчки обращения к процедурам...но вот где их поставить чтобы происходила успешная добавка в хвост
вот такое дело....
program roots;
type
point= ^item;
item = record
number: integer;
next: point;
end;
Function QueueEmpty(q:Tqueue):boolen;
begin
QueueEmpty:=(Q.head=nil)
end;
Procedure Pomestit'_v_hvost(var q:Tqueue; e:telem );
var z:Tlist;
begin
new(z);
z^.info:=e;
z^.next:=nil;
If QueueEmpty(q) then q.head:=z else q.tail^.next:=z;
q.tail:=z
end;
var n: integer;
r: point;
first: point;
begin
Writeln('Vvedite n');
readln (n) ;
first:= nil;
While n>0 do
begin
New( r );
r^.Next:=first;
r^.Number:=n;
first:=r;
n:=n-1;
end;
End.
Код заключаем в теги !!!
теперь я пытаюсь в эту прогу вставить процедуру - помещение в хвост...я знаю ,что должны быть строчки обращения к процедурам...но вот где их поставить чтобы происходила успешная добавка в хвост
вот такое дело....
Код
program roots;
type
point= ^item;
item = record
number: integer;
next: point;
end;
Function QueueEmpty(q:Tqueue):boolen;
begin
QueueEmpty:=(Q.head=nil)
end;
Procedure Pomestit'_v_hvost(var q:Tqueue; e:telem );
var z:Tlist;
begin
new(z);
z^.info:=e;
z^.next:=nil;
If QueueEmpty(q) then q.head:=z else q.tail^.next:=z;
q.tail:=z
end;
var n: integer;
r: point;
first: point;
begin
Writeln('Vvedite n');
readln (n) ;
first:= nil;
While n>0 do
begin
New( r );
r^.Next:=first;
r^.Number:=n;
first:=r;
n:=n-1;
end;
End.
Код заключаем в теги !!!
Ну и долго будет изобретаться этот велосипед? Чем реализация из FAQ не нравится? Взять функции и процедуры оттуда и посмотреть, как они работают, нельзя?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.