Pascal. Текстовый файлы.

[Dissan]

Вообщем у меня такая программа: Текст программы на Паскале хранится в файле на диске. Считать программу с диска и получить распечатку программы. Степень вложенности операторов цикла пометить добавлением слева соответствующего количества пробелов.

Проблема в том, что не могу понять, по какому принципу/алгоритму будет работать определение вложенности. Как понимаю это будет связано с поиском слов while/for + операторных скобок begin/end; Помогите решить пожалуйста. Заранее спасибо.

[MadReason]

делай стек. проходи текста программы, при встрече begin, while, for, repeat, if, then ,else, case добавляй в стек количество пробелов, на которые нужно отступить. а при нахождении end, until извлекай из стека количество пробелов.

[Z1000000]

по begin end'у.
Для простоты используй входной файл, где каждый begin или end является отдельной строкой.
Сканируй его построчно:
нашел begin - перед ним и каждой последующей строкой добавляешь пробел.
нашел далее begin - ставишь уже два пробела. Используй счетчик пробелов.
нашел end уменьшай счетчик на 1.

[Dissan]

MadReason
мне препод тож говорил через стек с помощью баланса скобок, но я в динамических структурах полный 0, поэтому даже не пытаюсь сделать.
Z1000000
да, идея хорошая, уже пробывал, но там есть один нюанс, который я никак не могу исправить и уже думаю 2ой день. Заключается он в следующем:
если идёт например 2 цикла подряд (тот же for do), то он по идее должен увеличить вложенность (поставить пробел) перед 2ым for do. Я представлял себе алгоритм такой: нашёл for do, нужно проверить следующую строчку, если в ней есть for do, то поставить дополнительный пробел, если нету, то удалить пробел. А вот в чём проблема: я не знаю как проверить, есть ли в следующей строке for do/while, находясь при этом на текущей.

Была идея с занесением всего файла в массив строк, но тогда не знаю как оформить всё это дело

[Stilet]

Могу предложить без стека

var f:text;e,i:integer;s:string;
begin
Assign(f,'Project1.dpr');
reset(f); i:=0;
while not eof(f) do
begin
readln(f,s);
if s='begin' then
begin
inc(i);
end;
if s='end;' then
begin
dec(i);
end;
for e:=0 to i do write(' ');writeln(s);
end;
  { TODO -oUser -cConsole Main : Insert code here }
close(f);
readln;
end.

Это самое простое, но тут однозначно нужно чтоб программные "скобки" были в отдельной строке

[Dissan]

Вообщем вот программа, где я пытался сделать через занесение строк файла в массив:

Program kurs;
uses crt;
const n=500;
Var F:text;
    l,k:string;
    i,j,w,q:integer; {за вложенность отвечает w}
    G:array [1..n] of string[100];
Begin
Clrscr;
Assign (F,'Kurs.txt');
reset(F);
w:=-1; {-1, т.к. учитывается самый первый Begin}

while not Eof(F) do
Begin
readln(F,l);
inc(j);
G[j]:=l; {здесь заносим все строки в массив}
end;
close(F);

reset(F);
while not Eof(F) do
Begin
readln(F,l);
k:='';
inc(q); {счётчик текущей строки}

 for i:=1 to length(l) do
 if (l[i]<>' ') then k:=k+l[i]   else
 if (k='while') or (k='for') then
 {а вот здесь мне надо реализовать посимвольное чтение строки q+1 взятой из массива, но как это сделать я не знаю}



 if (k='begin') or (k='Begin') then inc(w);
 for i:=1 to w do
 write (' ');
 writeln(l);
 if (k='end;') or (k='End;') or
 (k='end') or (k='End') then w:=w-1;

end;
Readln;
close (F);
End.

Всё, сделал я этот момент с чтением следующей строки посимвольно))) ура))) теперь вопрос к другой части моей программы: распечатке программы отметить операторов, изменяющих значения заданных переменных (их имена вводятся).
Отметить как я понимаю наверно цветом, но это не особо важно. Не могли бы подсказать как это можно сделать? Заранее премного благодарен)

[monster_63]

Dissan не мог бы ты выложить полный код программы?? У меня токой же курсач. Заранее спасибо.