Advertisement
Guest User

Untitled

a guest
May 29th, 2017
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.31 KB | None | 0 0
  1. #include <vcl.h>
  2. #pragma hdrstop
  3. #include <stdlib.h>
  4. #include "Unit1.h"
  5. #include "Unit2.h"
  6. #include "Unit3.h"
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9.  
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13. : TForm(Owner)
  14. {
  15. Memo1->Clear();
  16. float t;
  17. randomize();
  18. t=(float)rand()/RAND_MAX+(rand()%100);
  19. Label2->Caption=t;
  20. Edit2->Text = FloatToStrF(t, ffFixed, 5, 3);
  21. }
  22. //---------------------------------------------------------------------------
  23.  
  24. void __fastcall TForm1::Button1Click(TObject *Sender)
  25. {
  26.  
  27. int i,n, m;
  28.  
  29. i = Edit1->Text.Length();
  30. if ( (i<1) || (i>6) || (Edit1->Text < 0 ) )
  31. {
  32. m=0;
  33. }
  34. else { m=1; }
  35.  
  36. switch(m)
  37. {
  38. case 0: Edit1->Enabled = false; Button1->Enabled = false; Memo1->Enabled = false;
  39. Memo1->Lines->Add("Ваше число не входит в область от 0 до 99"); break;
  40.  
  41. case 1: { if ( Edit1->Text == Edit2->Text ) { n=0; }
  42. else if ( (Edit1->Text) < (Edit2->Text) ) { n=1; }
  43. else if ( (Edit1->Text) > (Edit2->Text) ) { n=2; }
  44.  
  45. switch(n)
  46. {
  47. case 0: Memo1->Lines->Add(" Молодец! Ты угадал!");
  48. Edit1->Enabled=false; Button1->Enabled=false; Memo1->Enabled=false;
  49. break;
  50. case 1: Memo1->Lines->Add("Мое число больше\n"); break;
  51. case 2: Memo1->Lines->Add("Мое число меньше\n"); break;
  52. }
  53. }
  54.  
  55. }
  56.  
  57. }
  58. //---------------------------------------------------------------------------
  59.  
  60. void __fastcall TForm1::N2Click(TObject *Sender)
  61. {
  62. ShellExecute(0,0,"Project1",0,0,0); //Project1 - имя исполняемого файла твоей программы
  63. Close();
  64. }
  65. //---------------------------------------------------------------------------
  66.  
  67. void __fastcall TForm1::N4Click(TObject *Sender)
  68. {
  69. Form2->Show();
  70. }
  71. //---------------------------------------------------------------------------
  72.  
  73. void __fastcall TForm1::N3Click(TObject *Sender)
  74. {
  75. Close();
  76. }
  77. //---------------------------------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement