bes сказал(а):
Насчёт массивов я к счастью ошибся! Здесь их использовать можно.
Тока вот не совсем ясно, как считать переменные из секции var в массив?
Ну, тогда все отлично.
У меня нет возможности щас отладить все, буду писать код прямо сюда, там уже, думаю сам разберешься.
Предполагаем, что секция var записана синтаксически правильно и оформлена примерно так:
Код:
.... какие-нибудь определения .....
var
i:integer;
m:float;
s:string;
..... еще определения или тело программы .....
Признаком начала секции считаем строку содержащую слово var.
Признаком конца секции считаем строку заканчивающуюся не символом ";". Если встрчеается такой признак, то значит открывается либо другая секция объявлений (напр. type или const), либо тело начинается тело самой программы (begin).
Ограничения, которые влом сейчас обходить:
- нет обработки комментариев;
- нет проверки синтаксической правильности текста обследуемой программы;
- если записать все в одну строку в паскале, то он скомпилирует, а мне не очень охота щас вспоминать, как читать в буфер из файла.. поэтому каждая переменная должна объявляться в отдельной строчке, ну и директивы типа const, type, begin и т.д. тоже записываются каждая с новой строки.
- раз уж говорим о паскале, то для учебного примера ограничимся сотней идентификаторов, если есть желание, почитай книжки и узнай, как в паскале динамические массивы использовать.
Код:
Program p1;
var
vars:array [1..100] of string;
buf:string;
i:integer;
function ReadStr(f:text):string;
//возвращает следующую найденную непустую строку
var
buf:string;
begin
repeat
readln(f, buf);
buf:=trim(buf)
until (buf<>'') or (eof(f));
result:=lowercase(buf);
end;
begin
//открыть для чтения файл f
write('Введите путь к обрабатываемому файлу:');
readln(buf);
assign(f,buf);
reset(f);
//найти строку со словом var
while (not eof(f)) and (ReadStr(f)<>'var') do;
if eof(f) then begin
writeln('Текст не содержит объявленных переменных.');
exit
end else begin
//выбрать идентификаторы переменных
i:=1;
repeat
buf:=ReadStr(f);
if pos(';',buf)>0 then begin
//не конец секции var
vars[i]:=trim(copy(buf,1,pos(':',buf)-1));
inc(i);
end
until (i>100) or (eof(f)) or (pos(';',buf)=0);
end;
//.......... дальше ............
// 1)найти тело программы
// 2)проверить есть ли в массиве vars переменные
// найденные в тексте программы
// 3) вывести результаты
close(f);
end.
Здесь ответ ты вполне можешь найти, но я в паске не силён...
Спасиб, большое! Вроде дальше сам справлюсь...