}
Практична робота 4. Програма для роботи з візуальнімі компонентами керування
Завдання 4.1
За помощью 2-х контейнеров Panel поділіть простір форми на две части (головна та нижня) з прів`язкою до ее границь. На головній части розмістіть кнопку Button. На Нижній части розіістіть компонент TrackBar. При зміні позіцій повзунки TrackBar реалізуйте можлівість Зміни прозорості форми. При наведенні міші на кнопку Button реалізуйте можлівість Зміни ее положення відносно форми З нможлівістю виходим за Межі форми.
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form2;
//---------------------------------------------------------------------------
__ fastcall TForm2 :: TForm2 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm2 :: TrackBar1Change (TObject * Sender)
{
Form2- gt; AlphaBlendValue=TrackBar1- gt; Position;
}
//---------------------------------------------------------------------------__fastcall TForm2 :: Button1Click (TObject * Sender)
{t=Panel1- gt; Height - Button1- gt; Height; t2=Panel1- gt; Width - Button1- gt; Width; - gt; Top=rand ()% t; - gt ; Left=rand ()% t2;}
Практична робота 5. Програми ціклічної Структури
Завдання 5.1
Дано дві цілі числа A и B (A lt; B). Вивести в порядку зростання всі цілі числа, розташовані между AIB (включаючісамі числа A и B), а такоже Кількість N ціх чисел.
# pragma hdrstop
# pragma argsused
# ifdef _WIN32
# include lt; tchar.h gt;
# elsechar _TCHAR;
# define _tmain main
# endif
# include lt; stdio.h gt;
# include iostream.h _tmain (int argc, _TCHAR * argv [])
{A=0, B=0, N=0; bool boolean=true;lt;lt;laquo;Alt;BnA=raquo;;gt;gt;A;lt;lt;laquo;B=raquo;;gt;gt;B;(Alt;B)
for (; A lt;=B; A ++)
{
cout lt; lt; A lt; lt; raquo ;;
N ++;
}
{cout lt; lt; Error: A gt; B raquo ;; boolean=false;} lt; lt; endl; (boolean)
{ lt; lt; N= lt; lt; N lt; lt; n raquo ;;
} ( pause ); 0;
}
Завдання 5.2
. Обчісліті значення змінної z =. Вивести значення a, b, z.
a=
де k - Кількість інтерацій.
# pragma hdrstop
# pragma argsused
# ifdef _WIN32
# include lt; tchar.h gt;
# elsechar _TCHAR;
# define _tmain main
# endif
# include lt; stdio.h gt;
# include iostream.h
# include math.h f1 (double k)
{f=0;=(((cos ((2.1 * k)) * sin (abs (k)))/0.15) - 5.8); f;
} f2 (double k)
{f=0;=abs (((sin (k))/(3.12)) + cos (pow (k, 2))); f;
} _ tmain (int argc, _TCHAR * argv [])
{a=0, b=0, z=0; k=0;
cout lt; lt; k= raquo ;;
cin gt; gt; k;
for (int i=0; i lt;=k; i +=2)
{
a=f1 (i);
if (i% 8 == 0)
b=f2 (i);
z=abs ((12 * a) -b);
}
coutlt;lt;laquo;b=raquo;lt;lt;blt;lt;laquo;na=raquo;lt;lt;alt;lt;laquo;nz=raquo;lt;lt;zlt;lt;endl;
system ( pause );