Реферат Порівняльний аналіз мов програмування

Тема: Курсовые проекты

ble == true) {-gt;ShowModal();-gt;Enabled=false;}(RadioButton2-gt;Visible==false)-gt;Caption=Label3-gt;Caption+laquo;Ъraquo;;++;(vgt;15)Form10-gt;ShowModal();

}

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

void __fastcall TForm2 :: FormShow (TObject * Sender)

{= 0; (time (NULL));=rand ()% 5 + 1; (sl == 1) Form2- gt; Label2- gt; Caption= Фізик, який винайшов цикл роботи сучасних ТЕС. raquo ;; (sl == 2) Form2- gt; Label2- gt; Caption= Фізик, який відкрив 3 яблучних закону. raquo ;; (sl == 3) Form2- gt; Label2- gt ; Caption= Почуття, що штовхає людей на подвиги. raquo ;; (sl == 4) Form2- gt; Label2- gt; Caption= Книга про набір символів мови. raquo ;; (sl == 5) Form2- gt; Label2- gt; Caption= Основний породоразрушающий інстумент в Газпроме.raquo;;-gt;ShowModal();-gt;Visible=false;-gt;Visible=false;-gt;Visible=false;

}

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

void __fastcall TForm2 :: RadioButton2Click (TObject * Sender)

{=0;-gt;Visible=false;-gt;Visible=false;-gt;Visible=false;-gt;Visible=false;-gt;Visible=false;-gt;Visible=false;-gt;Visible=false;-gt;Visible=true;-gt;Visible=true;-gt;Visible=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;-gt;Enabled=true;

}

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

void __fastcall TForm2 :: Button34Click (TObject * Sender)

{- gt; Caption= raquo ;;=0;

}

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

void __fastcall TForm2 :: Button35Click (TObject * Sender)

{(Label3- gt; Caption == ) ShowMessage ( Ви не ввели відповідь на питання. ); else(((sl==1)amp;(Label3-gt;Caption==laquo;РЕНКИНraquo;))||((sl==2)amp;(Label3-gt;Caption==laquo;НЬЮТОНraquo;))||((sl==3)amp;(Label3-gt;Caption==laquo;ЛЮБОВЬraquo;))||((sl==4)amp;(Label3-gt;Caption==laquo;АЗБУКАraquo;))||((sl==5)amp;(Label3-gt;Caption==laquo;ДОЛОТОraquo;)))

{- gt; Caption=StrToInt (Panel8- gt; Caption) +1500; ( Ваш відповідь вірний ); - gt; ShowModal ();

} Form10- gt; ShowModal ();

}

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

void __fastcall TForm2 :: FormClose (TObject * Sender, TCloseAction amp; Action)

{( Поточне кількість очок: + Panel8- gt; Caption); (MessageDlg ( Вийти з гри? raquo ;, mtConfirmation, TMsgDlgButtons () lt; lt; mbYes lt; lt; mbNo, 0) == mrYes)

{Action=caFree; - gt; ShowModal (); }=CaNone;

}

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

Форма, що інформує про наявності букви в слові

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

# include Spros.h

# include lt; vcl.h gt;

# pragma hdrstop

# include Baraban.h

# include Est_bukva.h

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

# pragma package (smart_init)