Реферат Генератор завдань для обчислювальної практики

( введені недопутімо великі числа ); break;

case 3: ShowMessage ( введені недопутімо малі числа (менше 0) ); break;

case 4: ShowMessage ( Заповніть порожні поля! ); break;

case 0:

Memo1- gt; Clear ();

Memo1- gt; Lines- gt; Add ( кількість варіантів: lt; + Edit1- gt; Text + gt; );

String s=Edit2- gt; Text;

for (int i=1; i lt;=s.Length (); i ++)

s [i]=(char) (s [i] -i% 5-s [i]% 4-1);

Memo1- gt; Lines- gt; Add ( пароль адміністратора: lt; + s + gt; увагу, пароль знаходиться в защіфрованном вигляді! );

Memo1- gt; Lines- gt; Add ( коефіцієнт генерації: lt; + Edit3- gt; Text + gt; );

Memo1- gt; Lines- gt; Add ( підказка про пароль: lt; + Edit4- gt; Text + gt; );

Form9- gt; Memo1- gt; Text=Memo1- gt; Text;

file_write ( config.dll );

ShowMessage ( Файл конфігурації успішно створений. );

Edit1- gt; Text= 0 raquo ;;

Edit2- gt; Text= raquo ;;

Edit3- gt; Text= 0 raquo ;;

Edit4- gt; Text= raquo ;;

Close ();

if (read_config ()) exit (1);

}

}

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

Лістинг файлу Unit7.cpp

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

# include lt; vcl.h gt;

# pragma hdrstop

# include Unit1.h

# include Unit7.h

# include Unit2.h

# include Unit9.h

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

# pragma package (smart_init)

# pragma resource *. dfm * Form7;

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

__ fastcall TForm7 :: TForm7 (TComponent * Owner)

: TForm (Owner)

{

}

//---------------------------------------------------------------------------__fastcall TForm7 :: Button2Click (TObject * Sender)

{

Memo1- gt; Lines- gt; Clear ();

Close ();

}

//---------------------------------------------------------------------------__fastcall TForm7 :: Button1Click (TObject * Sender)

{

Form9- gt; Memo1- gt; Text=Memo1- gt; Text;

file_write ( Завдання + IntToStr (++ var) + .z );

file_read ( config.dll );

Form9- gt; Memo1- gt; Lines- gt; Strings [0]= кількість варіантів: lt; + IntToStr (var) + gt; raquo ;;

file_write ( config.dll );

Memo1- gt; Lines- gt; Clear ();

ShowMessage ( Варіант успішно доданий. );

if (read_config ()) exit (1);

Close ();

}

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

Лістинг файлу Uni8.cpp

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

# include lt; vcl.h gt;

# pragma hdrstop

# include Unit8.h

# include Unit9.h

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

# pragma package (smart_init)

# pragma link CSPIN

# pragma resource *. dfm * Form8; variant=1;

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

__ fastcall TForm8 :: TForm8 (TComponent * Owner)

: TForm (Owner)

{

}

//---------------------------------------------------------------------------__fastcall TForm8 :: Button1Click (TObject * Sender)

{

Form9- gt; Memo1- gt; Text=Memo1- gt; Text;

...