D: output.txt , ios_base :: app); (i=0; i lt;=n; i ++)
{(mas [i]!=0)
{fl lt; lt; mas [i]; lt; lt; raquo ;;} j ++;
} (j!=0)
{fl lt; lt; 0; j -;}. close ();
} cout lt; lt; fale is missed lt; lt; endl;
return 0;
}
Практична робота 12. Програми для роботи з графічної підсістемою
Завдання 12.1
користуючися компонентами мови програмування С ++ Написати програму для Виведення на екран Наступний фігур.
Розміри: Фігура 1=101, Фігура 2=87, Фігура 3=89, Координати Х, У=30,50.
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form1;
//---------------------------------------------------------------------------
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button1Click (TObject * Sender)
{a=101; x=50; y=30; - gt; Repaint (); - gt; Repaint (); - gt; Canvas- gt; Rectangle (x, y, a + x, a + y); - gt; Canvas- gt; MoveTo (x, y); - gt; Canvas- gt; LineTo (a + x, a + y); - gt; Canvas- gt; MoveTo (a + x, y); - gt; Canvas- gt; LineTo (a-x, a + y); - gt; Canvas- gt; MoveTo ((a/2) + x, y); - gt; Canvas- gt; LineTo ((a/2) + x, a + y); - gt; Canvas- gt; MoveTo (a + x, (a/2) + y); - gt; Canvas- gt; LineTo (x, (a/2) + y);
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button2Click (TObject * Sender)
{a=87; b=a/3; x=50; y=30; - gt; Repaint (); - gt; Repaint (); - gt; Canvas- gt; MoveTo (x, (a/4) + y); - gt; Canvas- gt; LineTo (b + x, (a/4) + y); - gt; Canvas- gt; MoveTo (x, (a/2) + y); - gt; Canvas- gt; LineTo (b + x, (a/2) + y); - gt; Canvas- gt; MoveTo (x, (a * 0.75) + y); - gt; Canvas- gt; LineTo (b + x, (a * 0.75) + y); - gt; Canvas- gt; Rectangle (b + x, y, b * 2 + x, a + y); - gt; Canvas- gt; MoveTo (b * 2 + x, (a/2) + y); - gt; Canvas- gt; LineTo (a + x, (a/2) + y);
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button3Click (TObject * Sender)
{double a=89; x=50; y=30; - gt; Repaint (); - gt; Repaint (); - gt; Canvas- gt; MoveTo (x, (a/4) + y); - gt; Canvas- gt; LineTo (x + (a/3), (a/4) + y); - gt; Canvas- gt; MoveTo (x + (2 * a/3), (a/4) + y); - gt; Canvas- gt; LineTo (x + a, (a/4) + y); - gt; Canvas- gt; MoveTo (x + (a/3), y); - gt; Canvas- gt; LineTo (x + (a/3), (a/2) + y); - gt; Canvas- gt; MoveTo (x + (2 * a/3), y); - gt; Canvas- gt; LineTo (x + (2 * a/3), (a/2) + y);
}
//---------------------------------------------------------------------------
Завдання 12.2
Підготуваті програму на мові С ++ для Виведення на екран двох рядків тексту:
Software development
lt; Your name and surname gt;
Рядки Вказаною тексту Надрукувати двома гарнітурамі, для кожної з якіх Задати дві різніх кеглі з Наступний кутамі нахилится відносно горизонтальної вісі: 0 0, 90 0.
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form1;
//---------------------------------------------------------------------------
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{}
//------------------------------------------------...
