="justify"> # pragma link "CSPIN"
# pragma resource "*. dfm" * Form5;
// ---------------------------------------- -----------------------------------
__fastcall TForm5 :: TForm5 (TComponent * Owner)
: TForm (Owner)
{
}
{();
}
{n = CSpinEdit1-> Value; h = CSpinEdit2-> Value;
// генератор завдань
n = h/n + kof;
}
else
ShowMessage ("такий варіант не знайдено");
}
// ---------------------------------------- -----------------------------------
// ---------------------------------------- -----------------------------------
Лістинг файлу Unit6.cpp
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit6.h"
# include "Unit1.h"
# include "Unit2.h"
# include "Unit9.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" * Form6;
// ---------------------------------------- -----------------------------------
__fastcall TForm6 :: TForm6 (TComponent * Owner)
: TForm (Owner)
{
}
// ---------------------------------------- ----------------------------------- ()
'9 ') return 1;// несумісний тип динячих (s1.Length ()> 4 | | s3.Length ()> 9) return 2;// недопутімо велике число (StrToInt (s1) <0 | | StrToInt (s3) <0) return 3;// неприпустимо мале чісло0;
}
}
{(protect ()) {1: ShowMessage ("несумісний тип даних"); break;
case 2: ShowMessage ("введені недопутімо великі числа"); break; 3: ShowMessage ("введені недопутімо малі числа (менше 0)"); break;
case 4: ShowMessage ("Заповніть порожні поля!"); break; 0...