В общем виде объявление
процедуры выглядит так: procedure Имя (var параметр1: тип1; ... var параметрК:
типК) ; var
//
здесь объявление локальных переменных
begin
//
здесь инструкции процедуры
end;
где:
procedure — зарезервированное
слово языка Delphi, обозначающее, что далее следует объявление процедуры;
имя — имя процедуры, которое
используется для вызова процедуры;
параметр K — формальный параметр,
переменная, которая используется в инструкциях процедуры. Слово var перед
именем параметра не является обязательным. Однако если оно стоит, то это означает,
что в инструкции вызова процедуры фактическим параметром обязательно должна
быть переменная.
Параметры процедуры
используются для передачи данных в процедуру, а также для возврата данных из
процедуры в вызвавшую ее программу.
В качестве примера
в листинге 6.5 приведена процедура решения квадратного уравнения (которое в
общем виде записывается так: ах2 + Ьх+ с = 0). У процедуры шесть
параметров: первые три предназначены для передачи в процедуру исходных данных
— коэффициентов уравнения; параметры xi и х2 используются для возврата результата
— корней уравнения; параметр ok служит для передачи информации о том, что решение
существует.
Листинг 6.5.
Процедура SgRoot
//
решает квадратное уравнение
procedure
SqRoot(a,b,c : real;
var
xl,x2 : real;
var
ok : boolean);
{
a,b,c — коэффициенты уравнения x1,x2 — корни уравнения ok = True — решение есть
ok = False — решения нет }
Знаете ли Вы, что такое "Большой Взрыв"? Согласно рупору релятивистской идеологии Википедии "Большой взрыв (англ. Big Bang) - это космологическая модель, описывающая раннее развитие Вселенной, а именно - начало расширения Вселенной, перед которым Вселенная находилась в сингулярном состоянии. Обычно сейчас автоматически сочетают теорию Большого взрыва и модель горячей Вселенной, но эти концепции независимы и исторически существовало также представление о холодной начальной Вселенной вблизи Большого взрыва. Именно сочетание теории Большого взрыва с теорией горячей Вселенной, подкрепляемое существованием реликтового излучения..." В этой тираде количество нонсенсов (бессмыслиц) больше, чем количество предложений, иначе просто трудно запутать сознание обывателя до такой степени, чтобы он поверил в эту ахинею. На самом деле взорваться что-либо может только в уже имеющемся пространстве. Без этого никакого взрыва в принципе быть не может, так как "взрыв" - понятие, применимое только внутри уже имеющегося пространства. А раз так, то есть, если пространство вселенной уже было до БВ, то БВ не может быть началом Вселенной в принципе. Это во-первых. Во-вторых, Вселенная - это не обычный конечный объект с границами, это сама бесконечность во времени и пространстве. У нее нет начала и конца, а также пространственных границ уже по ее определению: она есть всё (потому и называется Вселенной). В третьих, фраза "представление о холодной начальной Вселенной вблизи Большого взрыва" тоже есть сплошной нонсенс. Что могло быть "вблизи Большого взрыва", если самой Вселенной там еще не было? Подробнее читайте в FAQ по эфирной физике.