Форум программистов [Powered by Invision Power Board]

Код

Program CTranslated;

Var
  Expression: String; //static char *current_char, *start;
  Curr: Integer; // Аналог current_char
  CH: Char; // Второй аналог. В паскале нет макросов. Придется определять ручками #define CH (*current_char)
  
Procedure GCH; // заносит в CH очередной символ #define GCH current_char++
Begin
  Inc(Curr);   // Это их ++
  If Curr<=Length(Expression) Then CH:=Expression[Curr]
  Else CH:=#0; // Имитируем Null Terminated строку!
End;

Procedure Ae1; Forward;// Упреждающее описание процедуры void ae1();

Procedure IntegerProc; //void integer()
Begin //{
  While Pos(CH,'0123456789')>0 Do //  while (isdigit(CH))
    GCH;//    GCH;
End; //}

Procedure Variable; //void variable()
Begin //{
  // А вот здесь наверное ошибка, но не уверен. Не знаю что возвращает isalpha(CH). Понимает ли она цифры?
  While (Pos(CH,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_0123456789')>0)  Do //while (isalpha(CH))
    GCH;//    GCH;
  If CH='[' Then //  if (CH == '[') {
    Repeat //    do {
      GCH;//      GCH;
      Ae1; //      ae1();
    Until CH<>',';//    } while (CH == ',');

  If CH=']' Then //    if (CH == ']')
    GCH//      GCH;
  Else Begin //    else {
    WriteLn('Ошибка около ',Curr,' буквы ');//    printf("Ошибка около %d буквы", current_char - start);
    Halt(1); // exit(1);
  End; //  }
// ?    }
End; //}

Procedure Operand; // void operand()
Begin //{
  If Pos(CH,'0123456789-')>0 Then //По моему здесь пролопухали отрицательное целое в начале выражения. Поправим  if (isdigit(CH)) {
    IntegerProc // Не хочется воевать с имененм типа. Сменим имя процедуры    integer();
// Не нужно        return;
// Не нужно    };

  Else If Pos(CH,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_')>0 Then // Вот здесь С в больших прлюсах! Интересно,
                                                                                 // а _ алфавитный символ? В именах переменных допускается   if (isalpha(CH)) {
    Variable //        variable();
// Не нужно        return;
// Не нужно    };

   Else Begin
    WriteLn('Ошибка около ',Curr,' буквы ');//    printf("Ошибка около %d буквы", current_char - start);
    Halt(1); // exit(1);
   End;
End; //}

Procedure Ae1; //void ae1()
Begin //{
  While True Do Begin // Можно конечно и с постусловием, но в этой ситуации безразлично   do {
     Operand; //   operand();
     If Pos(CH,'*/-+')>0 Then //  if (CH == '*' || CH == '/' || CH == '-' || CH == '+') {
       GCH//      GCH;
     // не нужно и в С       continue;
     Else //   } else
       Break //     break;
  End; //  } while (1);
// по моему это и в С не нужно    return;
End; //}

Procedure Validate(Expr: String);// void validate(char *expression)
Begin //{
  Expression:=Expr; //  current_char = expression;
  Curr:=0;          //  start = expression;
  GCH;              // Это к предыдущей строке.
  Ae1;              //  ae1();
  If CH<>#0  Then //if (CH != '\0')
    WriteLn('Ошибка около ',Curr,' буквы ');//    printf("Ошибка около %d буквы",
//               current_char - start);
End;//}

Begin //int main()
//{
  Validate('2+4/2+1+1+3+2+3*1/3');//  validate("2+4/2+1+1+3+2+3*1/3");
  WriteLn('Все верно');
// Не надо    return 0;
End. //}