Паскаль в примерах. Иринчеев А.А - 61 стр.

 i,n: integer;
  procedure IN1(var a,b:real;n:integer;var y:real);
   var
    p:real;
    i:integer;
      begin
        y:=1;
         for i:=1 to n do
          begin
           p:=exp(b*ln(a));
            y:=p*y;
          end;
      end;
 procedure IN2(var a, b:real; n:integer; var y1:real);
  var
   p:real;
   i:integer;
    begin
     y1:=0;
       for i:=1 to n do
        begin
        p:=exp(b*ln(a));
        y1:=y1+p;
       end;
    end;
begin
write(' Введите a, b,n');
readln(a,b,n);
 IN1(a,b,n,y2);
   writeln('p1 ',y2:10:2);
    writeln(' Введите c, b,m');
    read(a,b,n);
  IN2(a,b,n,y3);
  writeln('s ',y3:10:2);
  write(' Введите e, f,L');
    readln(a,b,n);
    IN1(a,b,n,y5);
    writeln('p2 ',y5:10:2);
     y6:=(y2+y3)/y5;
writeln(y6:8:3); end.
                                         2.21. Функции

     В Паскале, помимо процедур, разрешены похожие на них конструкции, которые назы-
ваются функциями. Обращение к функции приводит к вычислению ее значения - объекта ти-
па real, integer, char. Тип фиксируется в описании функции.
     Имеются две отличительные особенности описания функции в сравнении с описанием
процедуры. Первая особенность связана с заголовком, он должен начинаться со служебного
слова function (функция) и заканчиваться именем того типа, которому принадлежит значе-
ние функции.

     Например:
function f(a:real; var b:t):rael;

                                                                                    61