Додаток А. #include iostream.h

(обов’язковий)

Код програми

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

#include < vcl.h>

#pragma hdrstop

#include " iostream.h"

#include " Unit1.h"

#include " Unit2.h"

#include " Unit3.h"

#include " Unit4.h"

#include " Unit5.h"

#include " Unit6.h"

#include " Unit7.h"

#include " Unit8.h"

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

#pragma package(smart_init)

#pragma resource " *.dfm"

extern pravil_otvet;

TForm1 *Form1;

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

__fastcall TForm1:: TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1:: BitBtn2Click(TObject *Sender)

{

Form1-> Close();

Form2-> Close();

Form3-> Close();

}

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

void __fastcall TForm1:: BitBtn1Click(TObject *Sender)

{

if(Edit1-> Text> 5)

{ShowMessage(" Â ï ð î ã ð à ì ³ 5 â à ð ³ à í ò ³ â, ï î â ò î ð ³ ò ü â â ³ ä! "); }

int g;

g=StrToFloat(Edit1-> Text);

if (g==1)

{Form2-> Visible=true;

Form1-> Visible=false;

Form2-> Label6-> Caption=" 1";

Form2-> Label5-> Caption=" Ö è ê ë ñ ï î ñ ë å ó ñ ë î â è å ì? ";

Form2-> Label1-> Caption=" while";

Form2-> Label2-> Caption=" do while";

Form2-> Label3-> Caption=" for";

Form2-> Label4-> Caption=" if";

pravil_otvet=2;

}

if (g==2)

{Form4-> Visible=true;

Form4-> Label6-> Caption=" 1";

Form4-> Label5-> Caption=" Ä î ê à ê è õ ï î ð á ó ä ó ò â û ï î ë í ÿ ò ü ñ ÿ î ï å ð à ò î ð û â ò å ë å ö è ê ë à while (x < 100)? ";

Form4-> Label1-> Caption=" Ï î ê à õ ñ ò ð î ã î ì å í ü ø å ñ ò à ";

Form4-> Label2-> Caption=" Ï î ê à õ ì å í ü ø å è ë è ð à â å í ñ ò à ì ";

Form4-> Label3-> Caption=" Ï î ê à õ ð à â å í ñ ò à ì ";

Form4-> Label4-> Caption=" Ï î ê à õ á î ë ü ø å ñ ò à ";

pravil_otvet=3;

}

if (g==3)

{Form5-> Visible=true;

Form1-> Visible=false;

Form5-> Label6-> Caption=" 1";

Form5-> Label5-> Caption=" Ê à ê î å ç í à ÷ å í è å, ï î ó ì î ë ÷ à í è þ, â î ç â ð à ù à å ò ï ð î ã ð à ì ì à î ï å ð à ö è î í í î é ñ è ñ ò å ì å â ñ ë ó ÷ à å ó ñ ï å ø í î ã î ç à â å ð ø å í è ÿ? ";

Form5-> Label1-> Caption=" -1";

Form5-> Label2-> Caption=" 0";

Form5-> Label3-> Caption=" 1";

Form5-> Label4-> Caption=" Ï ð î ã ð à ì ì à í å â î ç â ð à ù à å ò ç í à ÷ å í è å ";

pravil_otvet=3;

}

if (g==4)

{Form6-> Visible=true;

Form1-> Visible=false;

Form6-> Label6-> Caption=" 1";

Form6-> Label5-> Caption=" Ó ê à æ è ò å î á ú å ê ò í î -î ð è å í ò è ð î â à í í û é ÿ ç û ê ï ð î ã ð à ì ì è ð î â à í è ÿ ";

Form6-> Label1-> Caption=" Ñ ++";

Form6-> Label2-> Caption=" Â ñ å â à ð è à í ò û î ò â å ò î â ";

Form6-> Label3-> Caption=" Java";

Form6-> Label4-> Caption=" Eiffel";

pravil_otvet=4;

}

if (g==5)

{Form7-> Visible=true;

Form1-> Visible=false;

Form7-> Label6-> Caption=" 1";

Form7-> Label5-> Caption=" Ê à ê î é è ç ñ ë å ä ó þ ù è õ î ï å ð à ò î ð î â - î ï å ð à ò î ð ñ ð à â í å í è ÿ ä â ó õ ï å ð å ì å í í û õ? ";

Form7-> Label1-> Caption=": =";

Form7-> Label2-> Caption=" ==";

Form7-> Label3-> Caption=" equal";

Form7-> Label4-> Caption=" =";

pravil_otvet=1;

}

}

void __fastcall TForm1:: Edit1KeyPress(TObject *Sender, char & Key)

{

if((Key! =VK_BACK)& & (Key< '0'||Key> '9'))Key=0;

}

void __fastcall TForm1:: FormCreate(TObject *Sender)

{

Form8=new TForm8(this);

Form8-> ShowModal();

Form8-> Free();

if(Edit2-> Text==" ")

{BitBtn1-> Enabled=false; }

}

void __fastcall TForm1:: N2Click(TObject *Sender)

{

HWND h; //³ ä å í ò è ô ³ ê à ò î ð â ³ ê í à

h= FindWindow(" HH Parent", " Ì à ò ð è ö ÿ ");

if (h==0)

WinExec(" hh.exe Help.chm", SW_RESTORE);

else

{

ShowWindow(h, SW_RESTORE);

SetForegroundWindow(h);

} }

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

void __fastcall TForm1:: Edit2Change(TObject *Sender)

{

if (! Edit2-> Text.IsEmpty())

{

BitBtn1-> Enabled = true;

}

else

{

BitBtn1-> Enabled = false;

}

}

void __fastcall TForm1:: FormClick(TObject *Sender)

{

if(Edit2-> Text==" ")

{MessageDlg(" Â â å ä ³ ò ü ñ â î ¿ ³ í ³ ö ³ à ë è! ", mtError, TMsgDlgButtons() < < mbOK, 0); }

}

#include < vcl.h>

#pragma hdrstop

#include " fstream.h"

#include " iostream.h"

#include " Unit1.h"

#include " Unit2.h"

#include " Unit3.h"

#include " Unit4.h"

#include " Unit5.h"

#include " Unit6.h"

#include " Unit7.h"

#pragma package(smart_init)

#pragma resource " *.dfm"

int s=0, i=0, pravil_otvet, nomer=0, n=2;

TForm2 *Form2;

__fastcall TForm2:: TForm2(TComponent* Owner)

: TForm(Owner)

{

}

void __fastcall TForm2:: BitBtn2Click(TObject *Sender)

{

Form2-> Visible=false;

Form3-> Visible=true;

Form3-> Label2-> Caption=s;

if (s==1)

{Form3-> Label3-> Caption=" Á à ë "; }

if(s==2)

{Form3-> Label3-> Caption=" Á à ë è "; }

if(s==3)

{Form3-> Label3-> Caption=" Á à ë è "; }

if(s==4)

{Form3-> Label3-> Caption=" Á à ë è "; }

if(s==5)

{Form3-> Label3-> Caption=" Á à ë ³ â "; }

if(s==6)

{Form3-> Label3-> Caption=" Á à ë ³ â "; }

if(s==7)

{Form3-> Label3-> Caption=" Á à ë ³ â "; }

if(s==8)

{Form3-> Label3-> Caption=" Á à ë ³ â "; }

if(s==9)

{Form3-> Label3-> Caption=" Á à ë ³ â "; }

if(s==10)

{Form3-> Label3-> Caption=" Á à ë ³ â "; }

if(s==0)

{Form3-> Label3-> Caption=" Á à ë ³ â "; }

Form2-> Label4-> Caption=s;

if(s==0)

{Form3-> Label4-> Caption=" Å ê ç à ì å í ï ð î â à ë å í î."; }

if(s> 8)

{Form3-> Label4-> Caption=" Å ê ç à ì å í ñ ê ë à ä å í î! "; }

if(s< 8)

{Form3-> Label4-> Caption=" Å ê ç à ì å í ï ð î â à ë å í î."; }

}

void __fastcall TForm2:: BitBtn1Click(TObject *Sender)

{

if(RadioButton1-> Checked==true)i=1;

if(RadioButton2-> Checked==true)i=2;

if(RadioButton3-> Checked==true)i=3;

if(RadioButton4-> Checked==true)i=4;

if(i==pravil_otvet)s++;

i=0;

RadioButton1-> Checked=false;

RadioButton2-> Checked=false;

RadioButton3-> Checked=false;

RadioButton4-> Checked=false;

nomer++;

Form2-> Label6-> Caption=n;

n++;

switch(nomer)

{

case 1:

Form2-> Label5-> Caption=" Ê à ê ó þ ô ó í ê ö è þ ä î ë æ í û ñ î ä å ð æ à ò ü â ñ å ï ð î ã ð à ì ì û í à Ñ ++? ";

Form2-> Label1-> Caption=" start()";

Form2-> Label2-> Caption=" program()";

Form2-> Label3-> Caption=" system()";

Form2-> Label4-> Caption=" main()";

pravil_otvet=2;

break;

case 2:

Form2-> Label5-> Caption=" Ò å ë î ë þ á î ã î ö è ê ë à â û ï î ë í ÿ å ò ñ ÿ ä î ò å õ ï î ð, ï î ê à å ã î ó ñ ë î â è å...";

Form2-> Label1-> Caption=" ó ö è ê ë à í å ò ó ñ ë î â è ÿ ";

Form2-> Label2-> Caption=" ë î æ í î ";

Form2-> Label3-> Caption=" è ñ ò è í í î ";

Form2-> Label4-> Caption=" ñ ë î æ í î ";

pravil_otvet=2;

break;

case 3:

Form2-> Label5-> Caption=" Ê à ê î é è ç í è æ å ï å ð å ÷ è ñ ë å í í û õ î ï å ð à ò î ð î â, í å ÿ â ë ÿ å ò ñ ÿ ö è ê ë î ì â Ñ ++? ";

Form2-> Label1-> Caption=" repeat until";

Form2-> Label2-> Caption=" do while";

Form2-> Label3-> Caption=" while";

Form2-> Label4-> Caption=" for";

pravil_otvet=3;

break;

case 4:

Form2-> Label5-> Caption=" Ï ð î ñ ò û å ò è ï û ä à í í û õ â Ñ ++";

Form2-> Label1-> Caption=" ö å ë û å – int, â å ù å ñ ò â å í í û å – float è ë è double, ñ è ì â î ë ü í û å – string";

Form2-> Label2-> Caption=" ö å ë û å – int, â å ù å ñ ò â å í í û å – float è ë è double, ñ è ì â î ë ü í û å – char";

Form2-> Label3-> Caption=" ö å ë û å – int, â å ù å ñ ò â å í í û å – float è ë è real, ñ è ì â î ë ü í û å – char";

Form2-> Label4-> Caption=" ö å ë û å – bool, â å ù å ñ ò â å í í û å – float è ë è double, ñ è ì â î ë ü í û å – string";

pravil_otvet=3;

break;

case 5:

Form2-> Label5-> Caption=" Ê à ê î é î ï å ð à ò î ð í å ä î ï ó ñ ê à å ò ï å ð å õ î ä à î ò î ä í î ã î ê î í ñ ò à í ò í î ã î â û ð à æ å í è ÿ ê ä ð ó ã î ì ó? ";

Form2-> Label1-> Caption=" end; ";

Form2-> Label2-> Caption=" break; ";

Form2-> Label3-> Caption=" ò î ÷ ê à ñ ç à ï ÿ ò î é ";

Form2-> Label4-> Caption=" stop; ";

pravil_otvet=2;

break;

case 6:

Form2-> Label5-> Caption=" × ò î á û ï î ä ê ë þ ÷ è ò ü ç à ã î ë î â î ÷ í û é ô à é ë â ï ð î ã ð à ì ì ó í à Ñ ++, í à ï ð è ì å ð iostream í å î á õ î ä è ì î í à ï è ñ à ò ü: ";

Form2-> Label1-> Caption=" include #iostream, h; ";

Form2-> Label2-> Caption=" #include < >; ñ iostream.h â í ó ò ð è ñ ê î á î ê ";

Form2-> Label3-> Caption=" #include < > ñ iostream â í ó ò ð è ñ ê î á î ê ";

Form2-> Label4-> Caption=" include (iostreamh)";

pravil_otvet=2;

break;

case 7:

Form2-> Label5-> Caption=" Ö è ê ë ñ ï ð å ä ó ñ ë î â è å ì? ";

Form2-> Label1-> Caption=" for";

Form2-> Label2-> Caption=" while";

Form2-> Label3-> Caption=" do while";

Form2-> Label4-> Caption=" if";

pravil_otvet=1;

break;

case 8:

Form2-> Label5-> Caption=" Ó ê à æ è ò å ï ð à â è ë ü í î å î ï ð å ä å ë å í è å ô ó í ê ö è è main â ñ î î ò â å ò ñ ò â è è ñ î ñ ï å ö è ô è ê à ö è å é ñ ò à í ä à ð ò à ANSI";

Form2-> Label1-> Caption=" int main(void)";

Form2-> Label2-> Caption=" void main(void)";

Form2-> Label3-> Caption=" int main()";

Form2-> Label4-> Caption=" void main()";

pravil_otvet=3;

break;

case 9:

Form2-> Label5-> Caption=" Ê à ê è ì è ç í à ê à ì è ç à ê à í ÷ è â à å ò ñ ÿ á î ë ü ø è í ñ ò â î ñ ò ð î ê ê î ä à â Ñ è ++? ";

Form2-> Label1-> Caption=": (ä â î å ò î ÷ è å)";

Form2-> Label2-> Caption=", (ç à ï ÿ ò à ÿ)";

Form2-> Label3-> Caption="; (ò î ÷ ê à ñ ç à ï ÿ ò î é)";

Form2-> Label4-> Caption=". (ò î ÷ ê à)";

pravil_otvet=2;

break;

case 10:

Form2-> Label6-> Caption=" 10";

BitBtn1-> Enabled=false;

RadioButton1-> Enabled=false;

RadioButton2-> Enabled=false;

RadioButton3-> Enabled=false;

RadioButton4-> Enabled=false;

}

}

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

#include < vcl.h>

#pragma hdrstop

#include " iostream.h"

#include " Unit1.h"

#include " Unit2.h"

#include " Unit3.h"

#include " Unit4.h"

#include " Unit5.h"

#include " Unit6.h"

#include " Unit7.h"

#pragma package(smart_init)

#pragma resource " *.dfm"

TForm3 *Form3;

__fastcall TForm3:: TForm3(TComponent* Owner)

: TForm(Owner)

{

}

void __fastcall TForm3:: BitBtn1Click(TObject *Sender)

{

Form1-> Close();

Form2-> Close();

Form3-> Close();

Form3-> Label5-> Caption=Form1-> Edit2-> Text;

Form3-> Label6-> Caption=" ";

FILE *file;

char* file_name = " test.txt";

file = fopen(file_name, " w");

fputs(Label5-> Caption.c_str(), file);

fputs(Label6-> Caption.c_str(), file);

fputs(Label2-> Caption.c_str(), file);

fputs(Label6-> Caption.c_str(), file);

fputs(Label3-> Caption.c_str(), file);

fclose(file);

}

void __fastcall TForm3:: BitBtn2Click(TObject *Sender)

{

Form1-> Visible=true;

Form2-> Visible=false;

Form3-> Visible=false;

Form4-> Visible=false;

Form5-> Visible=false;

Form6-> Visible=false;

Form7-> Visible=false;

Form1-> Edit1-> Clear();

Form1-> Edit2-> Clear();

}

void __fastcall TForm3:: FormDeactivate(TObject *Sender)

{

Form3-> Label5-> Caption=Form1-> Edit2-> Text;

Form3-> Label6-> Caption=" ";

FILE *file;

char* file_name = " test.txt";

file = fopen(file_name, " w");

fputs(Label5-> Caption.c_str(), file);

fputs(Label6-> Caption.c_str(), file);

fputs(Label2-> Caption.c_str(), file);

fputs(Label6-> Caption.c_str(), file);

fputs(Label3-> Caption.c_str(), file);

fclose(file);

}

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

void __fastcall TForm3:: FormClick(TObject *Sender)

{

Form3-> Label5-> Caption=Form1-> Edit2-> Text;

Form3-> Label6-> Caption=" ";

FILE *file;

char* file_name = " test.txt";

file = fopen(file_name, " w");

fputs(Label5-> Caption.c_str(), file);

fputs(Label6-> Caption.c_str(), file);

fputs(Label2-> Caption.c_str(), file);

fputs(Label6-> Caption.c_str(), file);

fputs(Label3-> Caption.c_str(), file);

fclose(file);

}

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