8. Алгоритм нахождения количества отрицательных чисел.

9. package src;

10.  

11. import java.util.ArrayList;

12.  

13.  

14. public class SvinkaPeppa1 {

15.     ArrayList<SvinkaPeppa1> lst = new ArrayList<SvinkaPeppa1>();

16.     for (int j1=0; j<n; j++)

17.              lst.Add(1 + Math.random(100));

18.     for (int i=0; i<n-1; i++)

19.           for (int j=i+1; j<n; j++)

20.               if (A[i]<A[j]);

21.  

22.    

23. }

24. }

1. Структура программы на языке объектно-ориентированного программирования.

2. Delphi (Де́лфи, произносится /ˈdɛlˌfi:/^[1]) — императивный, структурированный, объектно-ориентированный язык программирования, диалект Object Pascal^[2]. Начиная со среды разработки Delphi 7.0^[3], в официальных документах Borland стала использовать название Delphi для обозначения языкаObject Pascal. Начиная с 2007 года уже язык Delphi (производный от Object Pascal) начал жить своей самостоятельной жизнью и претерпевал различные изменения, связанные с современными тенденциями (например, с развитием платформы .NET) развития языков программирования: появилисьclass helpers, перегрузки операторов и другое.

3. Понятия составной оператор.

18. Последовательность произвольных операторов, заключенная в операторные скобки - begin ... end (зарезервированные слова) являются составным оператором.  Составной оператор имеет большое значение в языке Delphi, он позволяет писать программы в современной технологии структурного программирования, позволяя  исключить оператор GOTO. Если сказать общедоступно, то это те же скобки используемые в математики при записи уравнений.

19.  Составной оператор может иметь произвольную глубину вложенности:

20. begin

21. begin

22. ..........

23. begin

24. ...........

25. ...........

26. end;

27. ...........

28. end;

29. ............

30. end;

31.  Для лучшего просмотра кода желательно, чтобы каждый, отдельный составной оператор вместе с набором операторов входящих в скобки  - begin ... end, располагался равноудалено от левого края

4. Алгоритм нахождения количества положительных чисел.

package src;

 

import java.util.ArrayList;

 

 

public class SvinkaPeppa1 {

    ArrayList<SvinkaPeppa1> lst = new ArrayList<SvinkaPeppa1>();

    for (int j1=0; j<n; j++)

             lst.Add(1 + Math.random(100));

    for (int i=0; i<n-1; i++)

          for (int j=i+1; j<n; j++)

              if (A[i]<A[j]);

 

   

}

}

1. Перечислите свойства компоненты PaintBox.

2. Компонент delphi PaintBox это область рисования. Компонент визуальный и используется для создания на форме некоторой области, для рисовать т.е. назначение этого компонента дать простое окно с канвой для рисования изображений. Основных свойств, кроме Canvas, объект не имеет. В этом компоненте имеются следующие свойства для рисования:

   Canvas	канва для рисования;
   Font	для выбора шрифта на поверхности рисования;
   Pen	для установки параметров пера;
   Brush	для установки параметров кисти;
   Picture	для выбора готового изображения.

3. А само рисование осуществляется в обработчике события OnPaint.

4. Свойство Canvas доступно при выполнении приложения, поэтому рисунки являются динамическими. Созданный рисунок можно сохранить в графическом файле или вывести на принтер. Рисунки, создаваемые при выполнении приложения, могут быть как неподвижными, так и анимационными, т.е. изменяющими размеры, форму, расположение. Для рисования на Canvas геометрических фигур используются методы, приведенные в таблице.

   Наименование	Рисование	Наименование	Рисование
   Arc	дуги	LineTo	Линии
   Chord	Хорды эллипса	Polygon	Заполненного прямоугольника
   Elipse	эллипса	PolyLine	Незаполненного многоугольника
   FillRect	Заполненного прямоугольника	Rectangle	Заполненного прямоугольника
   FrameRect	Незаполненного прямоугольника	RoundRect	Заполненного прямоугольника со скругленными углами

5. 

6. рисунок 1

7. Например, следующий обработчик создаст окно, показанное на рис.1.:

procedure TForm1.PaintBox1Paint(Sender: TObject); begin PaintBox1.Canvas.Pen.Color:=clRed; PaintBox1.Canvas.Pen.Width:=5; PaintBox1.Canvas.Ellipse (5,5,PaintBox1.Width-5,PaintBox1.Height-5); end;