Тест на C++ Builder 6

  • Автор темы FreeMadMan
  • Дата начала
F

FreeMadMan

#1
Обычный тест на проверку знаний нужен на этом языке.
Если видели где то подобное или у вас есть и знаете где исходники есть буду признателен.
 
F

FreeMadMan

#3
Вот как я решил это в прошлом году.

Код:
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (RadioButton2->Checked==true)ballov++;
if (RadioButton5->Checked==true)ballov++;
if (RadioButton11->Checked==true)ballov++;
if (RadioButton16->Checked==true)ballov++;
Form2->Show();
Form1->Visible=false;

*-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "Unit1.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2; 
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)
{
if (RadioButton1->Checked==true)Form1->ballov++;
if (RadioButton7->Checked==true)Form1->ballov++;
if (RadioButton12->Checked==true)Form1->ballov++;
Form3->Show();
Form2->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
Form1->Close();		
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
*-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-**-*-*-*-*-
#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3; 
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm3::Button1Click(TObject *Sender)
{
if (RadioButton4->Checked==true)Form1->ballov++;
if (RadioButton8->Checked==true)Form1->ballov++;
if (RadioButton9->Checked==true)Form1->ballov++;
Button1->Enabled=false;
Label1->Caption = IntToStr(Form1->ballov) + " балла(ов)";
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{
Form1->Close();
}
//---------------------------------------------------------------------------
Я на трех формах разместил по 4-3 вопроса и на картинках сделал вопросы. На картинках делал потому что там матрицы.

Теперь мне нужна программа которая будет читать вопросы и ответы к ней из текстового файла :)