Процедуры (пример описания)

Пример 1. Описание процедуры для решения квадратного уравнения  ax²+bx+c=0:

Р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; [Конец описания процедуры.]

2 пример

procedure NumString(N: integer; var S: string);

             var
               V: integer;
             begin
               V := Abs(N);
               S := '';
               repeat
                 S := Chr(N mod 10 + Ord('0')) + S;
                 N := N div 10;
               until N = 0;
               if N < 0 then S := '-' + S;
             end;