![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Додаток А. #include iostream.h ⇐ ПредыдущаяСтр 6 из 6
(обов’язковий) Код програми
//---------------------------------------------------------------------------
#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); } //---------------------------------------------------------------------------
|