Текстовые файлы Паскаль

[GamBitFRK]

Вывести на экран все идентификаторы переменных, которые используются в программе. Программу брать любую, главное чтобы была рабочая на 100 %

[s-andriano]

И в чем проблема?

[Stilet]

Любую любую? Без ограничения по языкам?

[s-andriano]

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

Любую любую? Без ограничения по языкам?

Цитирую заголовок темы:
Текстовые файлы Паскаль
Есть другие идеи?

[Stilet]

Есть. На паскале нужно написать анализатор программ, который выбирает из них список переменных. Не сказано что сами программы, которые нужно анализить, должны быть написаны на паскале.
Читай Внимательно -

Программу брать любую

[s-andriano]

В заголовке нет точки, следовательно, это одно предложение.
Значит, исходники (текстовые файлы) - на Паскале.
Язык реализации - любой.

Так написано.
Хотя, что хотел написать ТС, я не знаю.

[GamBitFRK]

Сама программа должна быть тоже на паскале

[s-andriano]

Скажите, вот если у Вас будет листок с текстом программы, Вы вручную сможете найти в ней все идентификаторы?

[GamBitFRK]

Смогу, почему нет

[Serge_Bliznykov]

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


по простому (исключительно в учебных целях!)
можно поступить так:

читаем код. ищем
либо секуцию VAR и выбираем всё из данной секции, нас интересует всё до двоеточия, пока не начнётся новая секция кода.

если нужно учитывать идентификаторы, являющиеся параметрами процедур/функций
то ещё ищем ключевые слова procedure / function - и разбираем параметры этих функций (всегда в круглых скобках)

И НЕ забывать игноровать код в строковых константах и закомментаренный код...

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

Смогу, почему нет

покажите, пожалуйста, свои возможности на этом коде:

uses Dos;
type
   BytePtr = ^byte;
var
   MyMelody : BytePtr;
   Quadro   : BytePtr;
   DeathMarch : BytePtr;
   Scerco : BytePtr;
   Dur    : Integer;
var
   Int1CSave : pointer;
procedure TurnMusicOff; begin end;
procedure IncludeMelody(NewMelody : pointer);
const
   Pause = 0;
   EndOfMelody = $FF;
   TimerTick = 1193180;
   Hz : array[1..12] of LongInt =
      (13081,13859,14683,15556,16481,17461,18499,19599,20765,22000,23308,24694);
   UserClockHandle = 16;
var
   MelodyTable : BytePtr;
   StartOfMelody : BytePtr;
   Dur : byte;
   CurNote : byte;
   Notes : array[Pause..72] of word;
const
   FakeCode : string = 'test code var i,j : integer ';
   MyMelodyTable : array[1..5] of byte =(  10,4,10,4,13);
   QuadroTable : array[1..2] of byte =(3,$FF);
   DeathMarchTable : array[1..23] of byte = (
      10,8,10,12,10,4,10,8,13,12,12,4,12,12,10,4,10,8,8,9,9,4,$FF);
   ScercoTable : array[1..5] of byte =(45,2,49,2,$FF);
   procedure Incr(var P : BytePtr);
   type PtrType = record
      O,S : word;
   end;
   var
      V : PtrType absolute P;
      {
      buga : Integer;
      }
   begin
      Inc(V.O);
   end;
begin
   Dec(Dur);
   if Dur<>0 then
     exit;
   Port[$61]:=Port[$61] and $FC;
   if MelodyTable^=$FF then
     MelodyTable:=StartOfMelody;
   CurNote:=MelodyTable^;
   Incr(MelodyTable);
   Dur:=MelodyTable^;
   Incr(MelodyTable);
   if CurNote=Pause then
     exit;
   Port[$43]:=$B6;
   Port[$42]:=Lo(Notes[CurNote]);
   Port[$42]:=Hi(Notes[CurNote]);
   Port[$61]:=Port[$61] or 3;
end;
begin
end.

выпишите из этого кода все идентификаторы переменных