Задание с очередью

[Василий15]

Используя очередь, решить следующую задачу. В текстовом файле t записан текст, сбалансированный по круглым скобкам. Требуется напечатать в порядке возрастания номера позиций в тексте закрывающих скобок. Например, для текста A+(45–F(X)*(B– C)) надо напечатать:
10 16 17.

var
 f: text;
 f2: text;
 ch: char;
 i: byte;

begin
 assign(f,'c:1.txt');
 reset(f);
 assign(f2,'c:2.txt');
 rewrite(f2);
 
while not eof(f) do
 begin
  read(f,ch);
  for i:=1 to length(f) do
   if f[i]='(' then write(f2,i,' ');
 end;
 close(f);
 close(f2);
end.

Ругается на "for i:=1 to length(f) do" - нет перегруженной программы с такими типами параметров.

[Serge_Bliznykov]

правильно ругается. f - файловая переменная, из файла можно только читать и в файл писать. Обращаться к f[i] нельзя!
Вы прочитали один символ read(f,ch); - вот к ch и обращайтесь.


кроме того, я в упор не вижу у Вас в коде очередь.

впрочем, она здесь, наверное, и не нужна!

i:=0
while not eof(f) do
 begin
    inc(i);
    read(f,ch);
    if ch=')' then write(f2,i,' ');
 end;
 close(f);
 close(f2);

[Василий15]

А как реализовать, используя очередь? Хоть примерный код пжлст.

[Serge_Bliznykov]

в такой постановке как у Вас очередь (или стек) вообще не нужны. Совсем.

сравните с текстом задания, которое я легко нагуглил, где применение очереди/стека оправдано:

В текстовом файле записан текст, сбалансированный по круглым скобкам. Написать программу, которая для каждой пары, соответствующих открывающей и закрывающей скобок, печатает номера их позиций в тексте, упорядочив пары номеров в порядке возрастания номеров позиций закрывающих скобок, например, для текста А+(45–F(х)*(В–С)) надо напечатать: 8,10; 12,16; 3,17.

что же касается очереди, то

Очереди

Очередь — это линейный список информации, работа с которой происходит по принципу "первым пришел — первым вышел" (first-in, first-out); этот принцип (и очередь как структура данных) иногда еще называется FIFO. Это значит, что первый помещенный в очередь элемент будет получен из нее первым, второй помещенный элемент будет извлечен вторым и т.д. Это единственный способ работы с очередью; произвольный доступ к отдельным элементам не разрешается.

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

[Василий15]

Преподаватель требует. Это скорее тупо для ознакомления с конструкцией, пусть даже и в ущерб реальной пользе.

[Serge_Bliznykov]

берите код здесь - Очередь. Основные операции над очередью