{"id":7707,"date":"2009-04-09T10:11:10","date_gmt":"2009-04-09T07:11:10","guid":{"rendered":"http:\/\/studentpmr.ru\/?p=7707"},"modified":"2009-04-09T10:11:10","modified_gmt":"2009-04-09T07:11:10","slug":"%d1%84%d0%b0%d0%b9%d0%bb-kurscpp-%d0%be%d1%81%d0%bd%d0%be%d0%b2%d0%bd%d1%8b%d0%b5-%d1%84%d1%83%d0%bd%d0%ba%d1%86%d0%b8%d0%b8-%d0%bf%d1%80%d0%be%d0%b3%d1%80%d0%b0%d0%bc%d0%bc%d1%8b","status":"publish","type":"post","link":"http:\/\/studentpmr.ru\/?p=7707","title":{"rendered":"\u0424\u0430\u0439\u043b kurs.cpp – \u043e\u0441\u043d\u043e\u0432\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b."},"content":{"rendered":"

\/\/ TestMe -\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0442\u0435\u0441\u0442\u0438\u0440\u043e\u0432\u0449\u0438\u043a \u0437\u043d\u0430\u043d\u0438\u0439<\/p>\n

\/\/ \u0414\u0430\u0442\u0430 1 \u0438\u044e\u043d\u044f<\/p>\n

\/\/—————————————————————————<\/p>\n

#include "ToHelpc.h"<\/p>\n

#include "AboutTestMe.h"<\/p>\n

<\/p>\n

#include "StatisTestMe.h"<\/p>\n

#include <stdio.h><\/p>\n

#include <stdlib.h><\/p>\n

#include <vcl.h><\/p>\n

#pragma hdrstop<\/p>\n

#include "kurs.h"<\/p>\n

\/\/—————————————————————————<\/p>\n

#pragma package(smart_init)<\/p>\n

#pragma resource "*.dfm"<\/p>\n

TTester *Tester;<\/p>\n

TFont *FontAns=new TFont;<\/p>\n

\/\/—————————————————————————<\/p>\n

__fastcall TTester::TTester(TComponent* Owner)<\/p>\n

: TForm(Owner)<\/p>\n

{<\/p>\n

FontAns->Size=15;<\/p>\n

reset_bit->Enabled=false;<\/p>\n

}<\/p>\n

\/\/——————-\u041e\u0431\u044a\u044f\u0432\u043b\u0435\u043d\u0438\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445—————————-<\/p>\n

void DelQuestions(void);<\/p>\n

int number_of_variants( int);<\/p>\n

void rand_func( int, int *);<\/p>\n

int correct_answers;<\/p>\n

int variants_ans( int, int);<\/p>\n

void proverka();<\/p>\n

void output_q();<\/p>\n

int current_question;<\/p>\n

int *rand_q, count=0, *questions,count_of_string;<\/p>\n

\/\/————————\u041e\u0442\u043a\u0440\u044b\u0442\u0438\u0435 \u0444\u0430\u0439\u043b\u0430———————————————-<\/p>\n

void __fastcall TTester::N6Click(TObject *Sender)<\/p>\n

{<\/p>\n

FILE *norm, *shifr; \/\/ \u0438\u0441\u0445\u043e\u0434\u043d\u044b\u0439 \u0442\u0435\u0441\u0442, \u0437\u0430\u0448\u0438\u0444\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439<\/p>\n

randomize();<\/p>\n

OpenDialog->Title="\u0417\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c \u0442\u0435\u0441\u0442…";<\/p>\n

if (OpenDialog->Execute()) \/\/\u0440\u0430\u0441\u043a\u043e\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0437\u0430\u0448\u0438\u0444\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430<\/p>\n

{<\/p>\n

shifr=fopen(OpenDialog->FileName.c_str(),"r");<\/p>\n

norm=fopen("unshifr.txt","w");<\/p>\n

do<\/p>\n

{<\/p>\n

fputc(fgetc(shifr)-20, norm);<\/p>\n

}<\/p>\n

while(!feof(shifr));<\/p>\n

fclose(norm);<\/p>\n

fclose(shifr);<\/p>\n

ListBox->Items->LoadFromFile("unshifr.txt");\/\/ \u043f\u0435\u0440\u0435\u043d\u043e\u0441 \u0440\u0430\u0441\u0448\u0438\u0444\u0440\u043e\u0432. \u0444\u0430\u0439\u043b\u0430 \u0432 ListBox<\/p>\n

DeleteFile("unshifr.txt"); \/\/\u0443\u0434\u0430\u043b\u0435\u043d\u0438\u0435 \u0440\u0430\u0441\u0448\u0438\u0444\u0440\u043e\u0432\u043d\u043d\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u0430<\/p>\n

}<\/p>\n

count=0;<\/p>\n

count_of_string=ListBox->Items->Count; \/\/\u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0442\u0440\u043e\u043a \u0432 \u0442\u0435\u0441\u0442\u0435<\/p>\n

ListBox->Items->Delete( count_of_string-1);<\/p>\n

count_of_string=ListBox->Items->Count; \/\/\u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0442\u0440\u043e\u043a \u0432 \u0442\u0435\u0441\u0442\u0435<\/p>\n

for(int i=0; i<count_of_string; i++) \/\/\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0430<\/p>\n

if(!strcmp(ListBox->Items->Strings[i].c_str(), "") ) \/\/\u0432\u043e\u043f\u0440\u043e\u0441\u043e\u0432, \u0440\u0430\u0432\u043d\u043e\u0433\u043e<\/p>\n

count++; \/\/\u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0443 \u043f\u0443\u0441\u0442\u044b\u0445 \u0441\u0442\u0440\u043e\u043a<\/p>\n

StatusBar->Panels->Items[0]->Text="\u0412\u0441\u0435\u0433\u043e: "+IntToStr(count);\/\/\u0412\u044b\u0432\u043e\u0434 \u043d\u0430 \u0441\u0442\u0430\u0442\u0443\u0441\u043d\u0443\u044e<\/p>\n

questions=new int[count]; \/\/\u043f\u0430\u043d\u0435\u043b\u044c<\/p>\n

for(int i=0,j=0; i<count_of_string; i++) \/\/\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u043f\u043e\u0440\u044f\u0434\u043a\u043e\u0432\u044b\u0445 \u043d\u043e\u043c\u0435\u0440\u043e\u0432<\/p>\n

if(!strcmp(ListBox->Items->Strings[i].c_str(), "") ) \/\/\u0432\u043e\u043f\u0440\u043e\u0441\u043e\u0432<\/p>\n

{<\/p>\n

questions[j]=i+1;<\/p>\n

j++;<\/p>\n

}<\/p>\n

rand_q=new int[count];<\/p>\n

for(int i=0;i<count; i++) \/\/ \u043e\u0431\u043d\u0443\u043b\u0435\u043d\u0438\u0435<\/p>\n

rand_q[i]=-1;<\/p>\n

rand_func( count, rand_q); \/\/\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0441\u043b\u0443\u0447 \u0447\u0438\u0441\u0435\u043b \u043e\u0442 0 \u0434\u043e count<\/p>\n

output_q(); \/\/\u0412\u044b\u0432\u043e\u0434 \u0432\u043e\u043f\u0440\u043e\u0441\u0430<\/p>\n

Next_q->Enabled=true;<\/p>\n

N6->Enabled=false;<\/p>\n

open_bit->Enabled=false;<\/p>\n

reset_bit->Enabled=true;<\/p>\n

}<\/p>\n

\/\/—————————\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u043e\u0442\u0432\u0435\u0442\u043e\u0432————————————<\/p>\n

void __fastcall TTester::Next_qClick(TObject *Sender)<\/p>\n

{<\/p>\n

proverka();<\/p>\n

DelQuestions();<\/p>\n

output_q();<\/p>\n

}<\/p>\n

\/\/—————————\u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u043e\u0432 \u043e\u0442\u0432\u0435\u0442\u043e\u0432—————————<\/p>\n

void proverka(void)<\/p>\n

{<\/p>\n

int n,k=1;<\/p>\n

AnsiString user_ans;<\/p>\n

user_ans=" ";<\/p>\n

n=1;<\/p>\n

for(int i=0;i<List->Count;i++)<\/p>\n

if(((Rec*)List->Items[i])->Check->Checked==1)<\/p>\n

{<\/p>\n

user_ans[n]=i+49;<\/p>\n

n++;<\/p>\n

}<\/p>\n

do<\/p>\n

k++;<\/p>\n

while( variants_ans( k, current_question-1));<\/p>\n

AnsiString correct_ans=<\/p>\n

Tester->ListBox->Items->Strings[questions[rand_q[current_question-1]]+k].c_str();<\/p>\n

if(correct_ans==TrimRight(user_ans))<\/p>\n

{<\/p>\n

correct_answers++;<\/p>\n

Tester->StatusBar->Panels->Items[2]->Text="\u041f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u044b\u0445: "+IntToStr(correct_answers);<\/p>\n

Tester->ProgressBar->Position=100*correct_answers\/count;<\/p>\n

}<\/p>\n

}<\/p>\n

\/\/——————————-\u0421\u0431\u0440\u043e\u0441 \u0442\u0435\u0441\u0442\u0430————————————<\/p>\n

void __fastcall TTester::reset_bitClick(TObject *Sender)<\/p>\n

{<\/p>\n

current_question=count;<\/p>\n

output_q();<\/p>\n

DelQuestions();<\/p>\n

}<\/p>\n

\/\/————————\u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u044b\u0432\u043e\u0434\u0430 \u0432\u043e\u043f\u0440\u043e\u0441\u0430———————————<\/p>\n

void output_q(void)<\/p>\n

{<\/p>\n

Tester->StatusBar->Panels->Items[1]->Text="\u0422\u0435\u043a\u0443\u0449\u0438\u0439: "+IntToStr(current_question);<\/p>\n

if(current_question<count)<\/p>\n

{<\/p>\n

Tester->question->Width=Tester->QuestionBox->Width-70;<\/p>\n

Tester->question->Caption=<\/p>\n

Tester->ListBox->Items->Strings[questions[rand_q[current_question]]].c_str();<\/p>\n

List=new TList;<\/p>\n

Rec *otvet;<\/p>\n

int Height=10;<\/p>\n

for(int i=0;i<=number_of_variants(current_question);i++)<\/p>\n

{<\/p>\n

otvet=new Rec;<\/p>\n

otvet->Label=new TLabel( Tester->AnswerBox);<\/p>\n

otvet->Check=new TCheckBox( Tester->AnswerBox);<\/p>\n

otvet->Label->Left=70;<\/p>\n

otvet->Label->Font=FontAns;<\/p>\n

otvet->Check->Left=30;<\/p>\n

otvet->Check->Width=25;<\/p>\n

otvet->Check->Alignment=taLeftJustify;<\/p>\n

otvet->Label->WordWrap=true;<\/p>\n

otvet->Label->Width=Tester->AnswerBox->Width-100;<\/p>\n

otvet->Label->Cursor=crHandPoint;<\/p>\n

otvet->Check->Cursor=crHandPoint;<\/p>\n

otvet->Label->Caption=<\/p>\n

Tester->ListBox->Items->Strings[questions[rand_q[current_question]]+i+1].c_str(); ;<\/p>\n

List->Add( otvet);<\/p>\n

}<\/p>\n

int *posl=new int[number_of_variants(current_question)+1];<\/p>\n

rand_func(number_of_variants(current_question)+1,posl);<\/p>\n

for(int i=0;i<=number_of_variants(current_question);i++)<\/p>\n

{<\/p>\n

((Rec*)List->Items[posl[i]])->Check->Caption=i+1;<\/p>\n

((Rec*)List->Items[posl[i]])->Label->Top=Height+30;<\/p>\n

((Rec*)List->Items[posl[i]])->Check->Top=Height+30;<\/p>\n

((Rec*)List->Items[posl[i]])->Label->Parent=Tester->AnswerBox;<\/p>\n

((Rec*)List->Items[posl[i]])->Check->Parent=Tester->AnswerBox;<\/p>\n

Height+=((Rec*)List->Items[posl[i]])->Label->Height;<\/p>\n

}<\/p>\n

current_question++;<\/p>\n

delete []posl;<\/p>\n

}<\/p>\n

else<\/p>\n

{ int rez=100*correct_answers\/count;<\/p>\n

ShowMessage("\u0422\u0435\u0441\u0442 \u043e\u043a\u043e\u043d\u0447\u0435\u043d !");<\/p>\n

Application->CreateForm(__classid(TStatistica), &Statistica);<\/p>\n

Statistica->Memo1->Lines->Add("\u041d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0442\u0435\u0441\u0442\u0430:");<\/p>\n

Statistica->Memo1->Lines->Add(Tester->ListBox->Items->Strings[0]);<\/p>\n

Statistica->Memo1->Lines->Add("\u0412\u0441\u0435\u0433\u043e \u0432\u043e\u043f\u0440\u043e\u0441\u043e\u0432: "+ IntToStr(count));<\/p>\n

Statistica->Memo1->Lines->Add("\u041f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e \u043e\u0442\u0432\u0435\u0442\u0438\u043b\u0438 \u043d\u0430 : "+ IntToStr(correct_answers));<\/p>\n

Statistica->Memo1->Lines->Add("\u0412\u0430\u0448\u0430 \u043e\u0446\u0435\u043d\u043a\u0430 \u0437\u0430 \u0442\u0435\u0441\u0442: "+IntToStr(rez)+" \u0431\u0430\u043b\u043b\u043e\u0432");<\/p>\n

Statistica->ShowModal();<\/p>\n

Statistica->Free();<\/p>\n

Tester->Next_q->Enabled=false;<\/p>\n

Tester->ProgressBar->Position=0;<\/p>\n

correct_answers=0;<\/p>\n

Tester->question->Caption="";<\/p>\n

Tester->N6->Enabled=true;<\/p>\n

Tester->open_bit->Enabled=true;<\/p>\n

Tester->reset_bit->Enabled=false;<\/p>\n

current_question=0;<\/p>\n

}<\/p>\n

}<\/p>\n

\/\/—————————\u041a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u043e\u0432 \u043e\u0442\u0432\u0435\u0442\u043e\u0432————————<\/p>\n

int number_of_variants( int i)<\/p>\n

{<\/p>\n

int N;<\/p>\n

N=0;<\/p>\n

do<\/p>\n

N++;<\/p>\n

while( variants_ans( N+2, current_question));<\/p>\n

return(N);<\/p>\n

}<\/p>\n

\/\/——————————————————————————<\/p>\n

void DelQuestions(void)<\/p>\n

{<\/p>\n

for(int i = 0; i < List->Count; i++)<\/p>\n

{<\/p>\n

delete ((Rec *)List->Items[i])->Label;<\/p>\n

delete ((Rec *)List->Items[i])->Check;<\/p>\n

delete (Rec *)List->Items[i];<\/p>\n

}<\/p>\n

delete List;<\/p>\n

}<\/p>\n

\/\/————————\u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0433\u043e \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u0430 \u043e\u0442\u0432\u0435\u0442\u0430——————<\/p>\n

int variants_ans( int k, int current_question)<\/p>\n

{<\/p>\n

if( count_of_string==questions[rand_q[current_question]]+k+1)<\/p>\n

return 0;<\/p>\n

if (strcmp(Tester->ListBox->Items-><\/p>\n

Strings[questions[rand_q[current_question]]+k+1].c_str(),""))<\/p>\n

return (1);<\/p>\n

else return 0;<\/p>\n

}<\/p>\n

\/\/——————\u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u0441\u043b\u0443\u0447\u0430\u0439\u043d\u043e\u0433\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0447\u0438\u0441\u0435\u043b (0~number)——————<\/p>\n

void rand_func( int number, int *rand_m)<\/p>\n

{<\/p>\n

int n,N;<\/p>\n

int povtor=0;<\/p>\n

for(n=0;n<number;n++)<\/p>\n

{<\/p>\n

N=rand()%number;<\/p>\n

for(int i=0;i<number;i++)<\/p>\n

if(N==rand_m[i]) povtor=1;<\/p>\n

if(!povtor)<\/p>\n

rand_m[n]=N;<\/p>\n

else n—;<\/p>\n

povtor=0;<\/p>\n

}<\/p>\n

}<\/p>\n

\/\/———————————\u0412\u044b\u0445\u043e\u0434—————————————-<\/p>\n

void __fastcall TTester::N8Click(TObject *Sender)<\/p>\n

{<\/p>\n

Close();<\/p>\n

}<\/p>\n

\/\/——————————————————————————<\/p>\n

void __fastcall TTester::Exit_bitClick(TObject *Sender)<\/p>\n

{<\/p>\n

Close();<\/p>\n

}<\/p>\n

\/\/——————————————————————————<\/p>\n

void __fastcall TTester::N5Click(TObject *Sender)<\/p>\n

{<\/p>\n

Application->CreateForm(__classid(TAboutBox), &AboutBox);<\/p>\n

AboutBox->ShowModal();<\/p>\n

AboutBox->Free();<\/p>\n

}<\/p>\n

\/\/———————-\u0417\u0430\u0448\u0438\u0444\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0444\u0430\u0439\u043b\u0430—————————————<\/p>\n

void __fastcall TTester::N10Click(TObject *Sender)<\/p>\n

{<\/p>\n

FILE *norm, *shifr; \/\/ \u0438\u0441\u0445\u043e\u0434\u043d\u044b\u0439 \u0438 \u0437\u0430\u0448\u0438\u0444\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u0444\u0430\u0439\u043b\u044b<\/p>\n

OpenDialog->Title="\u0417\u0430\u0448\u0438\u0444\u0440\u043e\u0432\u0430\u0442\u044c \u0444\u0430\u0439\u043b…";<\/p>\n

if (OpenDialog->Execute()) norm=fopen(OpenDialog->FileName.c_str(),"r");<\/p>\n

if (SaveDialog->Execute()) shifr=fopen(SaveDialog->FileName.c_str(),"w");<\/p>\n

do<\/p>\n

{<\/p>\n

fputc(fgetc(norm)+20, shifr); \/\/ \u0448\u0438\u0444\u0440\u043e\u0432\u043a\u0430 \u043c\u0435\u0442\u043e\u0434\u043e\u043c \u0441\u0434\u0432\u0438\u0433\u0430 \u043a\u043e\u0434\u043e\u0432 \u0432 ASCII<\/p>\n

}<\/p>\n

while(!feof(norm));<\/p>\n

fclose(norm);<\/p>\n

fclose(shifr);<\/p>\n

}<\/p>\n

\/\/—————————\u041f\u043e\u043a\u0430\u0437 \u0445\u0438\u043d\u0442\u043e\u0432( \u0434\u0430 \/ \u043d\u0435\u0442 )—————————-<\/p>\n

void __fastcall TTester::N2Click(TObject *Sender)<\/p>\n

{<\/p>\n

N2->Checked=!N2->Checked;<\/p>\n

open_bit->ShowHint=!open_bit->ShowHint;<\/p>\n

Exit_bit->ShowHint=!Exit_bit->ShowHint;<\/p>\n

reset_bit->ShowHint=!reset_bit->ShowHint;<\/p>\n

}<\/p>\n

\/\/———————————\u0428\u0440\u0438\u0444\u0442 \u0432\u043e\u043f\u0440\u043e\u0441\u0430———————————<\/p>\n

void __fastcall TTester::N13Click(TObject *Sender)<\/p>\n

{<\/p>\n

TFont *Font=new TFont;<\/p>\n

if(FontDialog->Execute())<\/p>\n

Font->Assign(FontDialog->Font);<\/p>\n

question->Font=Font;<\/p>\n

delete Font;<\/p>\n

}<\/p>\n

\/\/—————————-\u0428\u0440\u0438\u0444\u0442 \u043e\u0442\u0432\u0435\u0442\u043e\u0432————————————-<\/p>\n

void __fastcall TTester::N14Click(TObject *Sender)<\/p>\n

{<\/p>\n

if(FontDialog->Execute()) FontAns->Assign(FontDialog->Font);<\/p>\n

AnswerBox->Font=FontAns;<\/p>\n

}<\/p>\n

\/\/——————————————————————————<\/p>\n

void __fastcall TTester::N17Click(TObject *Sender)<\/p>\n

{<\/p>\n

if(ColorDialog1->Execute())vopros->Color=ColorDialog1->Color;<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

void __fastcall TTester::N18Click(TObject *Sender)<\/p>\n

{<\/p>\n

if(ColorDialog1->Execute())otveti->Color=ColorDialog1->Color;<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

void __fastcall TTester::N19Click(TObject *Sender)<\/p>\n

{<\/p>\n

if(FontDialog->Execute()) Next_q->Font=FontDialog->Font;<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

void __fastcall TTester::N20Click(TObject *Sender)<\/p>\n

{<\/p>\n

if(ColorDialog1->Execute())StatusBar->Color=ColorDialog1->Color;<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

void __fastcall TTester::N22Click(TObject *Sender)<\/p>\n

{<\/p>\n

if(FontDialog->Execute()) vopros->Font=FontDialog->Font;<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

void __fastcall TTester::N23Click(TObject *Sender)<\/p>\n

{<\/p>\n

if(FontDialog->Execute()) otveti->Font=FontDialog->Font;<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

void __fastcall TTester::N25Click(TObject *Sender)<\/p>\n

{<\/p>\n

if(ColorDialog1->Execute()) QuestionBox->Color=ColorDialog1->Color;<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

void __fastcall TTester::N26Click(TObject *Sender)<\/p>\n

{<\/p>\n

if(ColorDialog1->Execute())AnswerBox->Color=ColorDialog1->Color;<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

void __fastcall TTester::N27Click(TObject *Sender)<\/p>\n

{<\/p>\n

if(ColorDialog1->Execute())Panel1->Color=ColorDialog1->Color;<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

void __fastcall TTester::N9Click(TObject *Sender)<\/p>\n

{<\/p>\n

Application->CreateForm(__classid(TToHelp), &ToHelp);<\/p>\n

ToHelp->ShowModal();<\/p>\n

ToHelp->Free();<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

\u0420\u0438\u0441. \u041f2. 2.<\/b><\/a>\u0424\u0430\u0439\u043b<\/b> kurs.h<\/b> \u2013 <\/b>\u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u0447\u043d\u044b\u0439<\/b> <\/b>\u0444\u0430\u0439\u043b<\/b>.<\/b><\/p>\n

\/\/—————————————————————————<\/p>\n

#ifndef kursH<\/p>\n

#define kursH<\/p>\n

\/\/—————————————————————————<\/p>\n

#include <Classes.hpp><\/p>\n

#include <Controls.hpp><\/p>\n

#include <StdCtrls.hpp><\/p>\n

#include <Forms.hpp><\/p>\n

#include <Menus.hpp><\/p>\n

#include <ActnList.hpp><\/p>\n

#include <DBActns.hpp><\/p>\n

#include <ComCtrls.hpp><\/p>\n

#include <Dialogs.hpp><\/p>\n

#include <ExtCtrls.hpp><\/p>\n

#include <Buttons.hpp><\/p>\n

\/\/—————————————————————————<\/p>\n

TList *List;<\/p>\n

typedef struct<\/p>\n

{<\/p>\n

TLabel *Label;<\/p>\n

TCheckBox *Check;<\/p>\n

} Rec;<\/p>\n

class TTester : public TForm<\/p>\n

{<\/p>\n

__published: \/\/ IDE-managed Components<\/p>\n

TMainMenu *MainMenu1;<\/p>\n

TMenuItem *N1;<\/p>\n

TMenuItem *Help1;<\/p>\n

TListBox *ListBox;<\/p>\n

TProgressBar *ProgressBar;<\/p>\n

TLabel *Label1;<\/p>\n

TMenuItem *N2;<\/p>\n

TOpenDialog *OpenDialog;<\/p>\n

TMenuItem *N6;<\/p>\n

TMenuItem *N7;<\/p>\n

TMenuItem *N8;<\/p>\n

TPanel *Panel1;<\/p>\n

TStatusBar *StatusBar;<\/p>\n

TButton *Next_q;<\/p>\n

TBitBtn *reset_bit;<\/p>\n

TBitBtn *open_bit;<\/p>\n

TMenuItem *N3;<\/p>\n

TFontDialog *FontDialog;<\/p>\n

TLabel *vopros;<\/p>\n

TBitBtn *Exit_bit;<\/p>\n

TMenuItem *N5;<\/p>\n

TMenuItem *N9;<\/p>\n

TMenuItem *N10;<\/p>\n

TMenuItem *N11;<\/p>\n

TMenuItem *N12;<\/p>\n

TMenuItem *N13;<\/p>\n

TMenuItem *N14;<\/p>\n

TMenuItem *N15;<\/p>\n

TSaveDialog *SaveDialog;<\/p>\n

TScrollBox *QuestionBox;<\/p>\n

TLabel *otveti;<\/p>\n

TSplitter *Splitter1;<\/p>\n

TScrollBox *AnswerBox;<\/p>\n

TLabel *question;<\/p>\n

TMenuItem *N4;<\/p>\n

TMenuItem *N16;<\/p>\n

TMenuItem *N17;<\/p>\n

TMenuItem *N18;<\/p>\n

TMenuItem *N20;<\/p>\n

TColorDialog *ColorDialog1;<\/p>\n

TMenuItem *N21;<\/p>\n

TMenuItem *N22;<\/p>\n

TMenuItem *N23;<\/p>\n

TMenuItem *N19;<\/p>\n

TMenuItem *N24;<\/p>\n

TMenuItem *N25;<\/p>\n

TMenuItem *N26;<\/p>\n

TMenuItem *N27;<\/p>\n

void __fastcall N8Click(TObject *Sender);<\/p>\n

void __fastcall N6Click(TObject *Sender);<\/p>\n

void __fastcall Next_qClick(TObject *Sender);<\/p>\n

void __fastcall reset_bitClick(TObject *Sender);<\/p>\n

void __fastcall Exit_bitClick(TObject *Sender);<\/p>\n

void __fastcall N5Click(TObject *Sender);<\/p>\n

void __fastcall N10Click(TObject *Sender);<\/p>\n

void __fastcall N2Click(TObject *Sender);<\/p>\n

void __fastcall N13Click(TObject *Sender);<\/p>\n

void __fastcall N14Click(TObject *Sender);<\/p>\n

void __fastcall N17Click(TObject *Sender);<\/p>\n

void __fastcall N18Click(TObject *Sender);<\/p>\n

void __fastcall N19Click(TObject *Sender);<\/p>\n

void __fastcall N20Click(TObject *Sender);<\/p>\n

void __fastcall N22Click(TObject *Sender);<\/p>\n

void __fastcall N23Click(TObject *Sender);<\/p>\n

void __fastcall N25Click(TObject *Sender);<\/p>\n

void __fastcall N26Click(TObject *Sender);<\/p>\n

void __fastcall N27Click(TObject *Sender);<\/p>\n

void __fastcall N9Click(TObject *Sender);<\/p>\n

private: \/\/ User declarations<\/p>\n

public: \/\/ User declarations<\/p>\n

__fastcall TTester(TComponent* Owner);<\/p>\n

};<\/p>\n

\/\/—————————————————————————<\/p>\n

extern PACKAGE TTester *Tester;<\/p>\n

\/\/—————————————————————————<\/p>\n

#endif<\/p>\n

\u0420\u0438\u0441. \u041f2. 3. \u0424\u0430\u0439\u043b <\/b>AboutTestMe<\/b>.<\/b>cpp<\/b> \u2013 \u0444\u043e\u0440\u043c\u0430 \u201c\u041e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435\u201d<\/b><\/p>\n

\/\/———————————————————————<\/p>\n

#include <vcl.h><\/p>\n

#pragma hdrstop<\/p>\n

#include "AboutTestMe.h"<\/p>\n

\/\/——————————————————————— <\/p>\n

#pragma resource "*.dfm"<\/p>\n

TAboutBox *AboutBox;<\/p>\n

\/\/——————————————————————— <\/p>\n

__fastcall TAboutBox::TAboutBox(TComponent* AOwner)<\/p>\n

: TForm(AOwner)<\/p>\n

{<\/p>\n

}<\/p>\n

\/\/———————————————————————<\/p>\n

\u0420\u0438\u0441<\/b>. <\/b>\u041f<\/b>2. 4. <\/b>\u0424\u0430\u0439\u043b<\/b> AboutTestMe.h \u2013 \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u0447\u043d\u044b\u0439 \u0444\u0430\u0439\u043b<\/b><\/p>\n

\/\/—————————————————————————-<\/p>\n

#ifndef AboutTestMeH<\/p>\n

#define AboutTestMeH<\/p>\n

\/\/—————————————————————————-<\/p>\n

#include <vcl\\System.hpp><\/p>\n

#include <vcl\\Windows.hpp><\/p>\n

#include <vcl\\SysUtils.hpp><\/p>\n

#include <vcl\\Classes.hpp><\/p>\n

#include <vcl\\Graphics.hpp><\/p>\n

#include <vcl\\Forms.hpp><\/p>\n

#include <vcl\\Controls.hpp><\/p>\n

#include <vcl\\StdCtrls.hpp><\/p>\n

#include <vcl\\Buttons.hpp><\/p>\n

#include <vcl\\ExtCtrls.hpp><\/p>\n

#include <jpeg.hpp><\/p>\n

\/\/—————————————————————————-<\/p>\n

class TAboutBox : public TForm<\/p>\n

{<\/p>\n

__published:<\/p>\n

TPanel *Panel1;<\/p>\n

TImage *ProgramIcon;<\/p>\n

TLabel *Nt;<\/p>\n

TLabel *Version;<\/p>\n

TLabel *Copyright;<\/p>\n

TLabel *Comments;<\/p>\n

TButton *OKButton;<\/p>\n

TLabel *Label1;<\/p>\n

private:<\/p>\n

public:<\/p>\n

virtual __fastcall TAboutBox(TComponent* AOwner);<\/p>\n

};<\/p>\n

\/\/—————————————————————————-<\/p>\n

extern PACKAGE TAboutBox *AboutBox;<\/p>\n

\/\/—————————————————————————-<\/p>\n

#endif<\/p>\n

\u0420\u0438\u0441. \u041f2 .5. <\/b>\u0424\u0430\u0439\u043b <\/b>StatisTestMe<\/b>.<\/b>cpp<\/b> \u2013 \u0444\u043e\u0440\u043c\u0430 \u0432\u044b\u0432\u043e\u0434\u0430 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430<\/b><\/p>\n

<\/b><\/p>\n

\/\/—————————————————————————<\/p>\n

#include <vcl.h><\/p>\n

#pragma hdrstop<\/p>\n

#include "StatisTestMe.h"<\/p>\n

\/\/—————————————————————————<\/p>\n

#pragma package(smart_init)<\/p>\n

#pragma resource "*.dfm"<\/p>\n

TStatistica *Statistica;<\/p>\n

\/\/—————————————————————————<\/p>\n

__fastcall TStatistica::TStatistica(TComponent* Owner)<\/p>\n

: TForm(Owner)<\/p>\n

{<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

void __fastcall TStatistica::StatisticaClick(TObject *Sender)<\/p>\n

{<\/p>\n

Close();<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

\u0420\u0438\u0441. \u041f2. 6. <\/b>\u0424\u0430\u0439\u043b<\/b> StatisTestMe.h \u2013 \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u0447\u043d\u044b\u0439 \u0444\u0430\u0439\u043b<\/b><\/p>\n

\/\/—————————————————————————<\/p>\n

#ifndef StatisTestMeH<\/p>\n

#define StatisTestMeH<\/p>\n

\/\/—————————————————————————<\/p>\n

#include <Classes.hpp><\/p>\n

#include <Controls.hpp><\/p>\n

#include <StdCtrls.hpp><\/p>\n

#include <Forms.hpp><\/p>\n

\/\/—————————————————————————<\/p>\n

class TStatistica : public TForm<\/p>\n

{<\/p>\n

__published: \/\/ IDE-managed Components<\/p>\n

TButton *Statistica;<\/p>\n

TMemo *Memo1;<\/p>\n

void __fastcall StatisticaClick(TObject *Sender);<\/p>\n

private: \/\/ User declarations<\/p>\n

public: \/\/ User declarations<\/p>\n

__fastcall TStatistica(TComponent* Owner);<\/p>\n

};<\/p>\n

\/\/—————————————————————————<\/p>\n

extern PACKAGE TStatistica *Statistica;<\/p>\n

\/\/—————————————————————————<\/p>\n

#endif<\/p>\n

\u0420\u0438\u0441. \u041f2. 7. <\/b>\u0424\u0430\u0439\u043b<\/b> TestMe.cpp \u2013 \u0433\u043b\u0430\u0432\u043d\u044b\u0439 \u0444\u0430\u0439\u043b<\/b><\/p>\n

\/\/—————————————————————————<\/p>\n

#include <vcl.h><\/p>\n

#pragma hdrstop<\/p>\n

USERES("TestMe.res");<\/p>\n

USEFORM("kurs.cpp", Tester);<\/p>\n

USEFORM("AboutTestMe.cpp", AboutBox);<\/p>\n

USEFORM("StatisTestMe.cpp", Statistica);<\/p>\n

USEFORM("ToHelpc.cpp", ToHelp);<\/p>\n

\/\/—————————————————————————<\/p>\n

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)<\/p>\n

{<\/p>\n

try<\/p>\n

{<\/p>\n

Application->Initialize();<\/p>\n

Application->CreateForm(__classid(TTester), &Tester);<\/p>\n

Application->CreateForm(__classid(TAboutBox), &AboutBox);<\/p>\n

Application->CreateForm(__classid(TStatistica), &Statistica);<\/p>\n

Application->CreateForm(__classid(TToHelp), &ToHelp);<\/p>\n

Application->Run();<\/p>\n

}<\/p>\n

catch (Exception &exception)<\/p>\n

{<\/p>\n

Application->ShowException(&exception);<\/p>\n

}<\/p>\n

return 0;<\/p>\n

}<\/p>\n

\/\/—————————————————————————<\/p>\n

\u0420\u0438\u0441. \u041f2. 8. <\/b>\u0424\u0430\u0439\u043b <\/b>ToHelpc<\/b>.<\/b>cpp<\/b> \u2013 \u0444\u043e\u0440\u043c\u0430 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e<\/b><\/p>\n

\/\/———————————————————————<\/p>\n

#include <vcl.h><\/p>\n

#pragma hdrstop<\/p>\n

#include "ToHelpc.h"<\/p>\n

\/\/——————————————————————— <\/p>\n

#pragma resource "*.dfm"<\/p>\n

TToHelp *ToHelp;<\/p>\n

\/\/——————————————————————— <\/p>\n

__fastcall TToHelp::TToHelp(TComponent* AOwner)<\/p>\n

: TForm(AOwner)<\/p>\n

{<\/p>\n

}<\/p>\n

\/\/———————————————————————<\/p>\n

\u0420\u0438\u0441. \u041f2. 9. <\/b>\u0424\u0430\u0439\u043b<\/b> ToHelpc.h \u2013 \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u0447\u043d\u044b\u0439 \u0444\u0430\u0439\u043b<\/b><\/p>\n

\/\/—————————————————————————-<\/p>\n

#ifndef ToHelpcH<\/p>\n

#define ToHelpcH<\/p>\n

\/\/—————————————————————————-<\/p>\n

#include <vcl\\System.hpp><\/p>\n

#include <vcl\\Windows.hpp><\/p>\n

#include <vcl\\SysUtils.hpp><\/p>\n

#include <vcl\\Classes.hpp><\/p>\n

#include <vcl\\Graphics.hpp><\/p>\n

#include <vcl\\Forms.hpp><\/p>\n

#include <vcl\\Controls.hpp><\/p>\n

#include <vcl\\StdCtrls.hpp><\/p>\n

#include <vcl\\Buttons.hpp><\/p>\n

#include <vcl\\ExtCtrls.hpp><\/p>\n

\/\/—————————————————————————-<\/p>\n

class TToHelp : public TForm<\/p>\n

{<\/p>\n

__published:<\/p>\n

TButton *OKButton;<\/p>\n

TMemo *Memo1;<\/p>\n

private:<\/p>\n

public:<\/p>\n

virtual __fastcall TToHelp(TComponent* AOwner);<\/p>\n

};<\/p>\n

\/\/—————————————————————————-<\/p>\n

extern PACKAGE TToHelp *ToHelp;<\/p>\n

\/\/—————————————————————————-<\/p>\n

#endif<\/p>\n","protected":false},"excerpt":{"rendered":"

\/\/ TestMe -\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0442\u0435\u0441\u0442\u0438\u0440\u043e\u0432\u0449\u0438\u043a \u0437\u043d\u0430\u043d\u0438\u0439 \/\/ \u0414\u0430\u0442\u0430 1 \u0438\u044e\u043d\u044f \/\/————————————————————————— #include "ToHelpc.h" #include "AboutTestMe.h"<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[67],"tags":[],"_links":{"self":[{"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/7707"}],"collection":[{"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7707"}],"version-history":[{"count":0,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=\/wp\/v2\/posts\/7707\/revisions"}],"wp:attachment":[{"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7707"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7707"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/studentpmr.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7707"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}