17.Описание процедур и функции языка программированияPascal.

В языке Паскаль существуют понятия процедуры и функции. Процедуры и функции можно определить как замкнутые программные единицы, реализующие некоторый алгоритм.

Описание и вызов процедур и функций

Структура описания процедур и функций до некоторой степени похожа на структуру Паскаль-программы: у них также имеются заголовок, раздел описаний и исполняемая часть. Раздел описаний содержит те же подразделы, что и раздел описаний программы: описания констант, типов, меток, процедур, функций, переменных. Исполняемая часть содержит собственно операторы процедур.

 

Формат описания процедуры имеет вид:

procedure имя процедуры (формальные параметры);

  раздел описаний процедуры

begin

  исполняемая часть процедуры

end;

 

Формат описания функции:

function имя функции (формальные параметры):тип результата;

  раздел описаний функции

begin

  исполняемая часть функции

end;

 

Формальные параметры в заголовке процедур и функций записываются в виде:

var имя параметра: имя типа

 

и отделяются друг от друга точкой с запятой. Ключевое слово var может отсутствовать (об этом далее). Если параметры однотипны, то их имена можно перечислять через запятую, указывая общее для них имя типа. При описании параметров можно использовать только стандартные имена типов, либо имена типов, определенные с помощью команды type.Список формальных параметров может отсутствовать.

 

Вызов процедуры производится оператором, имеющим следующий формат:

имя  процедуры(список фактических параметров);

 

Рассмотрим использование процедуры на примере программы поиска максимума из двух целых чисел.

var x,y,m,n: integer;

 

procedure MaxNumber(a,b: integer; var max: integer);

begin

   if a>b then max:=a else max:=b;

end;

 

begin

   write('Введите x,y ');

   readln(x,y);

   MaxNumber(x,y,m);

   MaxNumber(2,x+y,n);

   writeln('m=',m,'n=',n);

end.

 

Аналогичную задачу, но уже с использованием функций, можно решить так:

var x,y,m,n: integer;

 

function MaxNumber(a,b: integer): integer;

   var max: integer;

begin

   if a>b then max:=a else max:=b;

   MaxNumber := max;

end;

 

begin

   write('Введите x,y ');

   readln(x,y);

   m := MaxNumber(x,y);

   n := MaxNumber(2,x+y);

   writeln('m=',m,'n=',n);

end.

 

19.Мультимедийные возможностиDelphi

В Delphi мы можем создавать анимации, загружать графические объекты, а также интегрировать звук и видео 

Анимация

Для организации движения можно использовать компонент Timer с вкладки System. Компонент TTimer, предназначен для отсчета интервалов  времени.  Таймер предназначен для инициирования каких-либо операций через заданные промежутки времени.

 Событие OnTimer. Возникает периодически по истечении интервала времени, определяемого свойством Interval.

Основные свойства:

Enabled. Если свойство имеет значение True, то таймер «включен», реагирует на собственное событие OnTimer. Чтобы «выключить» таймер свойству присваивают значение False

Interval.  Определяет временной интервал в миллисекундах, после которого появляется событие OnTimer. По умолчанию равно 1000 (1 секунда).

   Графические компоненты

Чтобы вставлять в свой проект какие-либо графические объекты необходимо использовать компонент с вкладки Additional – Image, и выбрав в инспекторе объектов свойство Picture, загрузить нужный нам графический объект.

Picture определяет изображение, помещенное в компоненте.

Как и другие графические элементы управления, компонент TImage обрабатывает все события от мыши. События по умолчанию не имеет.

 При проектировании следует помнить, что изображение, помещенное на форму во время дизайна, включается в файл .DPR и затем прикомпилируется к EXE файлу.

Поэтому такой EXE файл может иметь большой объем. Как альтернативу можно рассмотреть загрузку картинки во время выполнения программы, для этого у свойства Picture (которое является объектом со своим набором свойств и методов) есть специальный метод LoadFromFile.

Например, так:

  Image1.Picture.LoadFromFile('c:\windows\1.bmp');

Stretch установлено в True, то изображение будет сжиматься или растягиваться (масштабироваться) таким образом, чтобы заполнить весь объект TImage.

Рисовать же различные графические объекты мы можем с помощью компонента с вкладки  Additional - TShape

            TShape - простейшие графические объекты на форме типа круг, квадрат и т.п. Вид объекта указывается в свойстве Shape. Свойство Pen определяет цвет и вид границы объекта. Brush задает цвет и вид заполнения объекта.

 

Интеграцию звука и видео в Delphi можно осуществить с помощью компонента OleContainer и Media Player