Процедура начинается
с заголовка, за которым следуют: П раздел объявления констант;
раздел объявления типов;
раздел объявления переменных;
раздел инструкций.
В общем виде процедура
выглядит так:
procedure
Имя (СписокПараметров);
const
//
здесь объявления констант
type
//
здесь объявления типов var
//
здесь объявления переменных
begin
//
здесь инструкции программы
end;
Заголовок процедуры
состоит из слова procedure, за которым следует имя процедуры, которое используется
для вызова процедуры, активизации ее выполнения. Если у процедуры есть параметры,
то они указываются после имени процедуры, в скобках. Завершается заголовок процедуры
символом "точка с запятой".
Если в процедуре используются
именованные константы, то они объявляются в разделе объявления констант, который
начинается словом const.
За разделом констант
следует раздел объявления типов, начинающийся словом type.
После раздела объявления
типов идет раздел объявления переменных, в котором объявляются (перечисляются)
все переменные, используемые в программе. Раздел объявления переменных начинается
словом var.
За разделом объявления
переменных расположен раздел инструкций. Раздел инструкций начинается словом
begin и заканчивается словом end, за которым следует символ "точка с запятой".
В разделе инструкций находятся исполняемые инструкции процедуры.
Ниже в качестве примера
приведен фрагмент программы вычисления стоимости покупки — процедура Summa.
procedure
Summa;
var
cena:
real; // цена
kol:
integer; // количество
s:
real; // сумма
mes:
string[255]; // сообщение
begin
cena
:= StrToFloat(Form1.Edit1.Text);
kol
:= StrToInt(Form1.Edit2.Text);
s
:= cena * kol; if s > 500 then
begin
s
:= s * 0.9;
mes
:= 'Предоставляется скидка 10%'
+
#13; end; mes := mes+ 'Стоимость покупки: '
+
FloatToStrF(s,ffFixed,4,2) +' руб.';
Forml.Label3.Caption
:= mes; end;
Знаете ли Вы, что cогласно релятивистской мифологии "гравитационное линзирование - это физическое явление, связанное с отклонением лучей света в поле тяжести. Гравитационные линзы обясняют образование кратных изображений одного и того же астрономического объекта (квазаров, галактик), когда на луч зрения от источника к наблюдателю попадает другая галактика или скопление галактик (собственно линза). В некоторых изображениях происходит усиление яркости оригинального источника." (Релятивисты приводят примеры искажения изображений галактик в качестве подтверждения ОТО - воздействия гравитации на свет) При этом они забывают, что поле действия эффекта ОТО - это малые углы вблизи поверхности звезд, где на самом деле этот эффект не наблюдается (затменные двойные). Разница в шкалах явлений реального искажения изображений галактик и мифического отклонения вблизи звезд - 1011 раз. Приведу аналогию. Можно говорить о воздействии поверхностного натяжения на форму капель, но нельзя серьезно говорить о силе поверхностного натяжения, как о причине океанских приливов. Эфирная физика находит ответ на наблюдаемое явление искажения изображений галактик. Это результат нагрева эфира вблизи галактик, изменения его плотности и, следовательно, изменения скорости света на галактических расстояниях вследствие преломления света в эфире различной плотности. Подтверждением термической природы искажения изображений галактик является прямая связь этого искажения с радиоизлучением пространства, то есть эфира в этом месте, смещение спектра CMB (космическое микроволновое излучение) в данном направлении в высокочастотную область. Подробнее читайте в FAQ по эфирной физике.
