Написание программы с использованием команд void prepod_see(int n), void admin_see(), void students_see(), void not_see2(bool t), страница 9

          if(f==3){Form4->RadioButton6->Caption=v_a;Form4->RadioButton6->Visible=true;Form4->Label6->Visible=true;}}

 if(n==7){if(f==2){Form3->Edit7->Text=v_a;Form3->Edit7->Visible=true;Form3->Label7->Visible=true;Form3->RadioButton7->Visible=true;}

          if(f==3){Form4->RadioButton7->Caption=v_a;Form4->RadioButton7->Visible=true;Form4->Label7->Visible=true;}}

 if(n==8){if(f==2){Form3->Edit8->Text=v_a;Form3->Edit8->Visible=true;Form3->Label8->Visible=true;Form3->RadioButton8->Visible=true;}

          if(f==3){Form4->RadioButton8->Caption=v_a;Form4->RadioButton8->Visible=true;Form4->Label8->Visible=true;}}

 if(n==9){if(f==2){Form3->Edit9->Text=v_a;Form3->Edit9->Visible=true;Form3->Label9->Visible=true;Form3->RadioButton9->Visible=true;}

          if(f==3){Form4->RadioButton9->Caption=v_a;Form4->RadioButton9->Visible=true;Form4->Label9->Visible=true;}}

}

void Show_vopros(int n_v,int f)

{AnsiString s='\0',p_n,vopros="",v_a;

 int j,i,n=0;

 for(i=0;i<=end_BD();i++)

    {s=Form3->Memo1->Lines->Strings[i].c_str();

     j=1;p_n="";

     if(s[j]=='['){while(s[j+1]!=']')

                        {p_n=p_n+s[j+1];

                         j++;

                        }

                   if(atoi(p_n.c_str())==n_v)

                     {for(int k=j+2;s[k]!='#';k++)

                         {vopros=vopros+s[k];}

                      where_show(vopros,f,n_v);

                      s=Form3->Memo1->Lines->Strings[i+1].c_str();

                      for(int y=i+1;s[1]!='[';y++)

                         {v_a="";n++;

 /*Надо добовить код*/    if(s[1]=='{'){x=n;if(f==2)show_true(x); }

                          for(int z=3;s[z+1]!='#';z++)

                              {v_a=v_a+s[z+1];}

                          v_a_see(v_a,n,f);

                          s=Form3->Memo1->Lines->Strings[y+1].c_str();

                          if(s[1]=='@') return ;

                         }

                         return ;

                      }

                  }

   }

}

int GEN_vuborka()

{AnsiString s;

randomize;

int f=0,kb,j,r;

 for(int i=0;i<200;i++){test[i]=0;}

 if(otvetu()==""){vop=nomer_poslednego_voprosa();f_vub=0;return 1;}

 else {f_vub=1;

       vop=StrToInt(otvetu());

       kb=nomer_poslednego_voprosa();

       for(j=1;j<=vop;)

          {r=random(kb+1);

           for(int q=0;q<=vop+1;q++)

              {if(test[q]==r)f=1;}

           if(f==0){test[j]=r;j++;}

           f=0;

          }

      }

      for(int i=0;i<=vop+1;i++){s=s+IntToStr(test[i])+'.';}

 return test[1];

}

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

void __fastcall TForm4::Button1Click(TObject *Sender)

{int t;// t-Для обозначения порядкового номера выбранного варианта ответа.

 t=What_RB_Enable();

 if(t==0)ShowMessage("Выберите ответ");

   else{if(t==x)v_true++;

        not_see4();

        if(f_vub==0){if(nomer_v==nomer_poslednego_voprosa()){s_itog(nomer_v,v_true);add_info_reg(1);itog();}

                     else{ nomer_v++;

                          Form4->Label13->Caption=nomer_v;

                          Show_vopros(nomer_v,3);}

                     }

        else{if(nomer_v==vop){s_itog(nomer_v,v_true);add_info_reg(1);itog();}

             else{nomer_v++;

                  Form4->Label13->Caption=nomer_v;

                  Show_vopros(test[nomer_v],3);

                  }

             }

        }

}

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

Form5

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

#include <vcl.h>

#pragma hdrstop

void Show_vopros(int n_v,int f);

void not_see3();

void not_see2(bool t);

void not_see4();

void where_show(AnsiString v,int f,int n_v);

void v_a_see(AnsiString v_a,int n,int f);

int nomer_poslednego_voprosa();

void add_see_EDIT_x();

void add_see_f();

void see_data_admin();

void see_predmet();

int end_BD();

void sbros();

AnsiString otvetu();

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

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

__fastcall TForm5::TForm5(TComponent* Owner)

        : TForm(Owner)

{Form3->Edit23->Text="1"; //(ВРЕМЕННО) номер вопроса вБД

}

int show_predmet() //?????????????????????????????????

{return 1;

}

void add_vuborka(int f)

{Form3->Button7->Visible=true;

 Form3->Edit11->Visible=true;

 Form3->Label11->Visible=true;

 Form3->CheckBox1->Visible=true;

 if(f==0){if(otvetu()!=""){Form3->CheckBox1->Checked=true;

                           Form3->CheckBox1->Enabled=false;

                           Form3->Edit11->Text=otvetu();

                           Form3->Edit11->Enabled=false;

                           Form3->Button7->Enabled=false;

                           }

          else {Form3->CheckBox1->Checked=false;

                Form3->CheckBox1->Enabled=false;

                Form3->Edit11->Text="нет";

                Form3->Edit11->Enabled=false;

                Form3->Button7->Enabled=false;

              }}

 if(f==1){if(otvetu()!=""){Form3->CheckBox1->Enabled=true;

                           Form3->CheckBox1->Checked=true;

                           Form3->Edit11->Text=otvetu();

                           Form3->Edit11->Enabled=true;