Лексический анализатор

@Alena_Milaska · Регистрация: 13.08.2012

Author24 — интернет-сервис помощи студентам

Написать программу, которая на основе текста программы на языке Pascal восстанавливает раздел объявлений программы.Текст программы без процедур и функций. Использовать стандартные типы данных, (к стандартным относятся: целые, вещественные, литерные, булевые)

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

Входные данные:
Файл с текстом программы на языке Pascal.

Выходные данные:
Файл с текстом программы на языке Pascal.

Программа должна содержать графическое меню и д.б. написана согласно структурному программированию. Использование меток не допустимо.
Помогите пожалуйста, а то я тока написала,а дальше не знаю как писать!!!Блин ну реально сложно

Pascal

Uses Crt;
Begin
var f:text;
    str:string;
    Assign(f,'C:\Alenka\123.txt');Reset(f);
    while not eof (f) do
    begin
    readln(f,str);
    write(str);
    End;
    Close(f);
End.

@MayaNash · 13.08.2012, 21:02

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

Блин ну реально сложно

конечно сложно, ведь у тебя даже этот "кусочек" не компилируется... если ты не знаешь, где должен быть расположен раздел var...

@Alena_Milaska · 13.08.2012, 23:30 **[ТС]**

Pascal

uses Crt;
var i, beginStr, endStr:integer;
procedure AddVariable(str:string;index:integer);
          begin
          write('good');
          for i:= index downto ((i >= 1) and (str[ i + 1 ] = ':')) do
 
            if(str[ i ] = ':')
                  endStr:= i - 1;
 
          for i downto (1 and( str[ i + 1 ] = ' ' or str[ i + 1 ] =';')) do
                    if((str[ i ] = ' ') or (str[ i ] = ';'))
                             beginStr:= i + 1;
          writeln('col:'endStr-beginStr);
         copy(str,beginStr,endStr - beginStr);
 
end;
 begin
 write('Hello world');
 end.

@MayaNash · 14.08.2012, 10:26

это что?.. и зачем?.. и кстати, оно тоже не компилируется...

@Alena_Milaska · 14.08.2012, 12:23 **[ТС]**

Как задать 2 условия в цикле for i:=0 to (i< 10 and k:= 0) do ....

@CodeR · 14.08.2012, 12:24

Alena_Milaska, никак в For
Только в While или Repeat можно так...

@MayaNash · 14.08.2012, 13:41

Alena_Milaska, ПОЖАЛУЙСТА, ПОЧИТАЙТЕ УЧЕБНИК!!! там все написано, и что такое for, и что такое while и repeat...

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	13.08.2012, 21:02	2
	Сообщение от Alena_Milaska Блин ну реально сложно конечно сложно, ведь у тебя даже этот "кусочек" не компилируется... если ты не знаешь, где должен быть расположен раздел var... 0

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	14.08.2012, 10:26	4
	это что?.. и зачем?.. и кстати, оно тоже не компилируется... 0

@Alena_Milaska 0 / 0 / 0 Регистрация: 13.08.2012 Сообщений: 14
	14.08.2012, 12:23 [ТС]	5
	Как задать 2 условия в цикле for i:=0 to (i< 10 and k:= 0) do .... 0

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,587 Записей в блоге: 1
	14.08.2012, 12:24	6
	Alena_Milaska, никак в For Только в While или Repeat можно так... 1

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	14.08.2012, 13:41	7
	Alena_Milaska, ПОЖАЛУЙСТА, ПОЧИТАЙТЕ УЧЕБНИК!!! там все написано, и что такое for, и что такое while и repeat... 0