Реферат Розробка алгоритму синтаксичного аналізу оператора виведення printf мови C + +

"justify"> # include

# include

# include

# pragma hdrstop

# include "Unit1. h "

# include "Unit2. h "

# include "Unit3. h "

# include "Unit4. h "

// ---------------------------------------- -----------------------------------

# pragma package (smart_init)

# pragma resource "*. dfm "* Form1;

// ---------------------------------------- -----------------------------------

__fastcall TForm1 :: TForm1 (TComponent * Owner)

: TForm (Owner)

{

} error (int i)

{er [80] = ""; (i)

{1: {sprintf (er, "Помилка: Помилка в імені функції");;} 2: {sprintf (er, "Помилка: Відсутня знак '('");; } 3: {sprintf (er, "Помилка: Відсутня знак''");

break;} 4: {sprintf (er, "Помилка: Помилка в перерахуванні специфікаторів типу");;} 5: {sprintf (er, "Помилка: Помилка в записі змінних"); ;} 6: {sprintf (er, "Помилка: Відсутня знак ')'");;} 7: {sprintf (er, "Помилка: Відсутня знак ';'");;} 8: {sprintf (er, "Помилка: неідентифіковані символ");

break;}

} -> Memo2-> Lines-> Add (er);

}

// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: N4Click (TObject * Sender)

{();

}

// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: N5Click (TObject * Sender)

{> CreateForm (__classid (TForm2), & Form2); -> ShowModal ();

}

// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: J1Click (TObject * Sender)

{(OpenDialog1-> Execute ())

{-> Lines-> LoadFromFile (OpenDialog1-> FileName);

}

{> MessageBox ("Файл не був вибраний. Спробуйте ще раз!", "Попередження", MB_OK);

}

}

// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: N13Click (TObject * Sender)

{(SaveDialog1-> Execute ())

{-> Lines-> SaveToFile (SaveDialog1-> FileName);

}

{> MessageBox ("Файл не був збережений. Спробуйте ще раз!", "Попередження", MB_OK);

}

}

// --------...