Процедуры. Процедура - это подпрограмма, предназначенная для решения подзадачи, необязательно связанной с вычислением значений

Процедура - это подпрограмма, предназначенная для решения подзадачи, необязательно связанной с вычислением значений. Процедуры можно использовать для ввода или вывода данных структурированных типов, вычисления нескольких значений, преобразования данных и т.п.

Заголовок процедуры:

Идентификатор после ключевого слова procedure - имя процедуры.

Пример 1. Описание процедуры для решения квадратного уравнения :

Рrocedure sqr_equation(a,b,c: real; var x1,x2: real; var flag:boolean);

{a, b, c - исходные данные (коэффициенты квадратного уравнения), параметры-значения; flag - параметр для записи: true - есть корни, false - нет корней; x1 и x2 - параметры-переменные для записи корней}

var d:real; { дискриминант}

begin

d:= b*b-4*a*c;

flag:= d>=0

if d>0 then

begin

d:= sqrt(d);

x1:= (-b+d)/(2*a); x2:= (-b-d)/(2*a)

end

else if abs(d)<1E-10 then

begin

x1:= -b/(2*a); x2:= x1

end

end; {Конец описания процедуры.}