Транслятор з мови програмування Pascal на С++
33

 

        case TAN:

        {

          y.replace(pos, 3, "tan");

        }

        break;

 

        case SQRT:

        {

          y.replace(pos, 4, "sqrt");

        }

        break;

 

      }  // swith

    }  // if

  }  // for

 

   // проводимо заміну '' на ""

    bool f;

    do

    {

      f = true;

      t_pos = y.find("'", pos);

      if (t_pos >0)

      {

        y.replace(t_pos, 1, "\"");

        f = false;

      }

    }

    while (f == false);

 

    // перевіряємо, якщо строка початок

    // блоку опису змінних

    if (Var && InVar)

    {

      y = "{ " + y;     // додаємо спочатку

      Var = false;

    }

    massiv(y);

  }

  while (finish == false);  // якщо замін більше ніяких, то кінець

  return y;     // функція повертає строкову змінну, яка буде

              // записана до кінцевого файлу

}

 

// головна функція, початок програми

int main(int argc, char **argv)

{

  char buff[92]="";   // строковий масив, міститиме зчитану строку

  int choice;         // вибір користувача

  char *path = new char;

  path = "conv.pas";  // назва файлу, по замовчанню conv.pas

  if (argc > 1)      // якщо з аргументом