Файл: Сравнительный анализ описания данных для различных языков программирования (Определение языка программирования С++).pdf
Добавлен: 01.04.2023
Просмотров: 292
Скачиваний: 1
#include «Est_bukva. h»
#include «Round2. h»
#include «Baraban. h»
#include «Net_bukvi. h»
#include «Porajenie. h»
#include «Spros. h»
//---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource «*. dfm»
TForm2 *Form2;
//---------------------------------------------------------------------------
int k;
int sl;
int v;
__fastcall TForm2: :TForm2(TComponent* Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2: :Button18Click (TObject *Sender)
{
if (RadioButton2-> Visible==true) {
if (sl==1){
Panel8-> Caption=StrToInt (Panel8->Caption)+StrToInt (Form6->Panel1->Caption);
Form3-> ShowModal ();
Panel2-> Caption="P";
k++; }
if ((sl==2)||(sl==3)||(sl==4)||(sl==5)) {
Form4-> ShowModal ();}
Button18-> Enabled=false;
if (k==6) {
if (sl==1) ShowMessage («Вы абсолютно верно ответили РЕНКИН»);
if (sl==2) ShowMessage («Вы абсолютно верно ответили НЬЮТОН»);
if (sl==3) ShowMessage («Вы абсолютно верно ответили ЛЮБОВЬ»);
if (sl==4) ShowMessage («Вы абсолютно верно ответили АЗБУКА»);
if (sl==5) ShowMessage («Вы абсолютно верно ответили ДОЛОТО»);
Form5-> ShowModal ();
} }
if (RadioButton2-> Visible==false)
Label3-> Caption=Label3->Caption+"Р";
v++;
if (v> 15) Form10->ShowModal ();
}
//---------------------------------------------------------------------------
void __fastcall TForm2: :Button6Click (TObject *Sender)
{
if (RadioButton2-> Visible==true) {
if (sl==1){
Panel8-> Caption=StrToInt (Panel8->Caption)+StrToInt (Form6->Panel1->Caption);
Form3-> ShowModal ();
Panel3-> Caption="Е";
k++; }
Button6-> Enabled=false;
if ((sl==2)||(sl==3)||(sl==4)||(sl==5)) {
Form4-> ShowModal ();}
if (k==6){
if (sl==1) ShowMessage («Вы абсолютно верно ответили РЕНКИН»);
if (sl==2) ShowMessage («Вы абсолютно верно ответили НЬЮТОН»);
if (sl==3) ShowMessage («Вы абсолютно верно ответили ЛЮБОВЬ»);
if (sl==4) ShowMessage («Вы абсолютно верно ответили АЗБУКА»);
if (sl==5) ShowMessage («Вы абсолютно верно ответили ДОЛОТО»);
Form5-> ShowModal ();
} }
if (RadioButton2-> Visible==false)
Label3-> Caption=Label3->Caption+"Е";
v++;
if (v> 15) Form10->ShowModal ();
}
//---------------------------------------------------------------------------
void __fastcall TForm2: :Button15Click (TObject *Sender)
{
if (RadioButton2-> Visible==true) {
if (sl==1){
Panel8-> Caption=StrToInt (Panel8->Caption)+StrToInt (Form6->Panel1->Caption);
Panel8-> Caption=StrToInt (Panel8->Caption)+StrToInt (Form6->Panel1->Caption);
Form3-> ShowModal ();
Panel4-> Caption="Н";
Panel7-> Caption="Н";
k++;
k++; }
Button15-> Enabled=false;
if (sl==2){
Panel8-> Caption=StrToInt (Panel8->Caption)+StrToInt (Form6->Panel1->Caption);
Panel8-> Caption=StrToInt (Panel8->Caption)+StrToInt (Form6->Panel1->Caption);
Form3-> ShowModal ();
Panel2-> Caption="Н";
Panel7-> Caption="Н";
k++;
k++; }
if ((sl==3)||(sl==4)||(sl==5)){
Form4-> ShowModal ();}
if (k==6){
if (sl==1) ShowMessage («Вы абсолютно верно ответили РЕНКИН»);
if (sl==2) ShowMessage («Вы абсолютно верно ответили НЬЮТОН»);
if (sl==3) ShowMessage («Вы абсолютно верно ответили ЛЮБОВЬ»);
if (sl==4) ShowMessage («Вы абсолютно верно ответили АЗБУКА»);