Реферат Розробка програмного забезпечення

---------------------------__fastcall TForm1 :: Button1Click (TObject * Sender)

{- gt; Canvas - gt; Rectangle (0,0,200,100); - gt; Canvas - gt; Font - gt; Size=10; - gt; Canvas - gt; Font - gt; Name= Arial raquo ;; - gt; Canvas - gt; TextOutW (2,2, Software development ); - gt; Canvas - gt; Font - gt; Size=15; - gt; Canvas - gt; Font - gt; Name= Times New Roman raquo ;; - gt; Canvas - gt; TextOutW (2,22, Zhideikina Nata );

}

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

Завдання 12.3

Написати програму для побудова на екрані Наступний фігур:

# include lt; vcl.h gt;

# pragma hdrstop

# define PI 3.1415926535897932

# include Unit1.h

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

# pragma package (smart_init)

# pragma resource *. dfm * Form1;

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

__ fastcall TForm1 :: TForm1 (TComponent * Owner)

: TForm (Owner)

{}

//---------------------------------------------------------------------------__fastcall TForm1 :: Button1Click (TObject * Sender)

{double a=50; - gt; Canvas - gt; MoveTo (100,100); - gt; Canvas - gt; LineTo (100-a * sin (36 * PI/180), 100-a * cos (36 * PI/180)); - gt; Canvas - gt; LineTo (100-a * sin (36 * PI/180) + a * sin (72 * PI/180), 100-a * cos (36 * PI/180) -a * cos (72 * PI/180)); - gt; Canvas - gt; LineTo (100 + a + a * sin (36 * PI/180), 100-a * cos (36 * PI/180)); - gt; Canvas - gt; MoveTo (100,100); - gt; Canvas - gt; LineTo (100 + a, 100); - gt; Canvas - gt; LineTo (100 + a + a * sin (36 * PI/180), 100-a * cos (36 * PI/180)); - gt; Canvas - gt; LineTo (100 + a + a * sin (36 * PI/180) + a * sin (36 * PI/180), 100-a * cos (36 * PI/180) + a * cos (18 * PI/180)); - gt; Canvas - gt; LineTo (100 + a + (a * sin (18 * PI/180)) + a * sin (72 * PI/180), 100 + a * (cos (18 * PI/180)) + a * cos (72 * PI/180)); - gt; Canvas - gt; MoveTo (100 + a, 100); - gt; Canvas - gt; LineTo (100 + a + (a * sin (18 * PI/180)), 100 + a * (cos (18 * PI/180))); - gt; Canvas - gt; LineTo (100 + a + (a * sin (18 * PI/180)) + a * sin (72 * PI/180), 100 + a * (cos (18 * PI/180)) + a * cos (72 * PI/180)); - gt; Canvas - gt; LineTo(100+a+(a*sin(18*PI/180))+a*sin(72*PI/180)-a*sin(36*PI/180),100+a*(cos(18*PI/180))+a*cos(72*PI/180)+a*cos(36*PI/180));-gt; Canvas - gt; LineTo(100+a+(a*sin(18*PI/180))-(a*cos(36*PI/180)),100+a*(cos(18*PI/180))+(a*sin(36*PI/180))+a);-gt; Canvas - gt; MoveTo (100 + a + (a * sin (18 * PI/180)), 100 + a * (cos (18 * PI/180))); - gt; Canvas - gt; LineTo (100 + a + (a * sin (18 * PI/180)) - (a * cos (36 * PI/180)), 100 + a * (cos (18 * PI/180)) + (a * sin (36 * PI/180))); - gt; Canvas - gt; LineTo(100+a+(a*sin(18*PI/180))-(a*cos(36*PI/180)),100+a*(cos(18*PI/180))+(a*sin(36*PI/180))+a);-gt; Canvas - gt; LineTo(100+a+(a*sin(18*PI/180))-(a*cos(36*PI/180))-a*cos(18*PI/180),100+a*(cos(18*PI/180))+(a*sin(36*PI/180))+a-a*sin(18*PI/180));-gt; Canvas - gt; LineTo (100 + a + (a * sin (18 * PI/180)) - 2 * (a * cos (36 * PI/180)) - a * sin (72 * PI/180), 100 + a * (cos (18 * PI/180)) + a * cos (72 * PI/180)); - gt; Canvas - gt; MoveTo (100 + a + (a * sin (18 * PI/180)) - (a * cos (36 * PI/180)), 100 + a * (cos (18 * PI/180)) + (a * sin (36 * PI/180))); - gt; Canvas - gt; LineTo (100 + a + (a * sin (18 * PI/180)) - 2 * (a * cos (36 * PI/180)), 100 + a * (cos (18 * PI/180))); - gt; Canvas - gt; LineTo (100 + a + (a * sin (18 * PI/180)) - 2 * (a * cos (36 * PI/180)) - a * sin (72 * PI/180), 100 + a * (cos (18 * PI/180)) + a * cos (72 * PI/180)); - gt; Canvas - gt; LineTo (100-a * sin (36 * PI/180) -a * sin (36 * PI/180), 100-a * cos (36 * PI/180) + a * cos (18 * PI/180)) ; - gt; Canvas - gt; LineTo (100-a * sin (36 * PI/180), 100-a * cos (36 * PI/180)); - gt; Canvas - gt; MoveTo (100 + a + (a * sin (18 * PI/180)) - 2 * (a * cos (36 * PI/180)), 100 + a * (cos (18 * PI/180))); - gt; Canvas - gt; LineTo (100,100);}

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

Практична робота 13. Програми для роботи з глобальними ідентіфікаторамі Screen, Mouse, Application

Завдання 13.1

создать! застосування, Пожалуйста:

користуючися Глобальний про єктом Screen при своєму за...