аний програмний продукт був розроблений в середовищі програмування RAD Studio C ++ Builder XE5, так як ця середу найбільш зрозуміла і проста з відомих мені мов програмування.
Ця програма призначена для більш зручної роботи c операторами мови C ++.
Мета і завдання були виконані.
На даній стадії програмний продукт завершений, але він може бути доопрацьований і змінений за бажанням розробника.
Список використаних джерел
1 Блажевич, О.В. Програмування С ++: курс лекцій/О.В.Блажевіч.-Мінськ: БДУ, +2004.- 78 с.
Джесс Ліберті - С ++ Енциклопедія користувача
Додаток А
Лістинг програми
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
# include Unit2.h
# pragma package (smart_init)
# pragma resource *. dfm * Form1; flag=false; lag=false; g; h;
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm1 :: CheckBox1Click (TObject * Sender)
{(Form1- gt; CheckBox1- gt; Checked == false)
{
-gt;Edit1-gt;PasswordChar=laquo;*raquo;;-gt;Edit2-gt;PasswordChar=laquo;*raquo;;
}
{- gt; Edit1- gt; PasswordChar=NULL; - gt; Edit2- gt; PasswordChar=NULL;
}
} __ fastcall TForm1 :: Button1Click (TObject * Sender)
{(Form1- gt; Edit1- gt; Text == )
{( пороль не введений ) ;;
}
{= true;
} (Form1- gt; Edit2- gt; Text == )
{( пороль 2 не введений ) ;;
}
{= true;
}((Form1-gt;Edit1-gt;Text==Form1-gt;Edit2-gt;Text)amp;amp;(flag==true)amp;amp;(lag==true))
{* list=new TStringList;gt;Add(Form1-gt;Edit2-gt;Text);gt;SaveToFile(laquo;pass.dataraquo;);-gt;Visible=false;-gt;Show();
}
{( Шмагали не збігаються ) ;;
}
} __ fastcall TForm1 :: FormCreate (TObject * Sender)
{(FileExists ( pass.data ))
{-gt;Button1-gt;Visible=false;-gt;CheckBox1-gt;Top=135;-gt;Button2-gt;Visible=true;-gt;Top=250;-gt;Label3-gt;Visible=false;-gt;Label2-gt;Visible=false;-gt;Edit2-gt;Visible=false;-gt;Label4-gt;Visible=true;*list=new TStringList;gt;LoadFromFile(laquo;pass.dataraquo;);=list[0][0];-gt;Height=170;-gt;Label1-gt;Top=57;-gt;Edit1-gt;Top=56;-gt;CheckBox1-gt;Top=96;
}
{- gt; Top=200; - gt; Left=525; - gt; Height=251; - gt; Width=303;
}
} __ fastcall TForm1 :: Button2Click (TObject * Sender)
{(Form1- gt; Edit1- gt; Text == ) ( Ви не ввели пароль ) ;;
}=Form1- gt; Edit1- gt; Text; (h == g)
{- gt; Visible=false; - gt; Show ();
}
{( Пароль не вірний );
}
}
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit2.h
# include Unit1.h
# include Unit3.h
# include lt; iostream.h gt;
# include lt; ctype.h gt;
# include lt; stdio.h gt;
# include lt; stdlib.h gt;
# include lt; string.h gt;
# include lt; conio.h gt;
# include lt; sstream gt;
# include lt; fstream gt;
# pragma package (smart_init)
# pragma resource *. dfm * Form2; ser; rer; i, j, x, l, v, r; s, sx;
__ fastcall TForm2 :: TForm2 (TComponent * Owner)
: TForm (Owner)
{
} __ fastcall TForm2 :: FormClose (TObject * Sender, TCloseAction amp; Action)
{ gt; Terminate ();
} __ fastcall TForm2 :: FormResize (TObject * Sender)
{- gt; Memo1- gt; Width=Form2- gt; Width; - gt; Me...
