Обработка символьных строк.

[Imamieva]

Помогите пожалуйстаа..
Дана программа написанная на языке Pascal.. Записать в выходной файл построчно все числовые константы, встречающиеся в этой программе, вместе с номером строки программы.

[Serge_Bliznykov]

в общем случае задачка весьма непроста и потребует лексического разбора.
Можно, конечно, решить сильно упрощённую задачу, не разбирая код Паскаля на лексемы, т.е. не проводя лексический разбор, но тогда готовьтесь к тому, что ваша программа будет косячить, например, определять в строке s := ' Было это 17 июня '; 17 как числовую константу....

[Simply-Art]

да так то просто, в цикле ищи последовательность:
1) находим слово const (если мне не изменяет память)
2) ищим некое цельное слово (первый символ буква или _)
3) если после него встречается комбинация := то это слово - константа (вроде так же они записываются, или просто через равно?)
4) если после := первый найденный символ будет числом, то это и есть числовая константа
5) если находим слово, но не находим дальше := то значит все, мы вышли из раздела констант

Если я правильно понял топиксатора, то это норм алгоритм

[Stilet]

вроде так же они записываются, или просто через равно?

Ну не суть важно.
По-моему Серж прав. Все числовые константы, это в том числе и те, что вписаны прямо в выражения. И да, их от строк и имен нужно отличать уметь. Задача решаема, но посидеть покумекать маненько придется.

[Simply-Art]

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

Ну не суть важно.
По-моему Серж прав. Все числовые константы, это в том числе и те, что вписаны прямо в выражения. И да, их от строк и имен нужно отличать уметь. Задача решаема, но посидеть покумекать маненько придется.

А чем мой алгоритм плох? Трассировочную таблицу нарисуйте, проверьте.

[Serge_Bliznykov]

угу. как я уже выше писал, тут всё упирается в конкретные детали задачи и качество решения.
В упрощённом виде вполне можно делать как предложил Simply-Art.

что-то чувствую, автор темы потерял(а) интерес к данном топику...

А чем мой алгоритм плох?

во-первых, не найдётся ни одной константы в таком коде:

program Test;
var x : integer;
begin
  x := 5 + 2*17;
 WriteLn('X = ',x,' 2 + 4 ', 2+4);
end.

в этом коде пять числовых констант

во-вторых,
как ваш алгоритм отработает такой код:

{ CONST X = 255; } 
var s : string;
begin
   s := 'CONST A = 12; B = 14';
   WriteLn(s);
end.

а в этом коде НЕТ числовых констант


ну и ещё куча разных подводных камней.

[Simply-Art]

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

во-первых, не найдётся ни одной константы в таком коде:

program Test;
var x : integer;
begin
  x := 5 + 2*17;
 WriteLn('X = ',x,' 2 + 4 ', 2+4);
end.

в этом коде пять числовых констант

понятно, я не правильно понял что нужно искать просто

[Stilet]

А чем мой алгоритм плох?

Не плох. Я не говорил такого. Просто упрощен.

[Serge_Bliznykov]

и не говорил, что алгоритм плох.

даже наоборот:

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

В упрощённом виде вполне можно делать как предложил Simply-Art.

[Vapaamies]

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

Можно, конечно, решить сильно упрощённую задачу, не разбирая код Паскаля на лексемы, т.е. не проводя лексический разбор, но тогда готовьтесь к тому, что ваша программа будет косячить, например, определять в строке s := ' Было это 17 июня '; 17 как числовую константу....

Как человек, писавший лексический анализатор Паскаля, могу сказать, что разборщик должен уметь пропускать строковые константы и комментарии.