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

   Пример. Рассмотрим определение площади четырехугольника по формуле Герона.
   PROGRAM PR44;
    VAR
    AB,BC,CD,DA,AC:REAL;
    funcrion tr1(a, b, c: real): real;
     var p:real:
      begin
       p:=(a+b+c)/2;
        tr1:=sqrt(p*(p-a)*(p-b)*(p-c))
      end;
   BEGIN
   WRITE(‘ Введите AB,BC,CD,DA,AC ‘);
   READLN(AB,BC,CD,DA,AC);
    WRITE(tr1(AB,BC,AC) +tr1(CD,DA,AC):8:3)
   END.
                                      n         m
   Пример. Вычислить значение y = ∑ a + ∑ b j
                                            i

                                     i =1       j =1

   program pr45;
   var
    a,b,S:real;
    n,e:integer;
     function TR(n:integer;m:REAL):real;
      var
       k:real;    i:integer;
        begin
         S:=0;
        for i:=1 to n do
          begin
        k:=exp(i*ln(m));       S:=k+S;
        TR:=S;
          end;
        end;
   begin
   write(' Введите n,a ');
   readln(n,a);
     write(' Введите m,b ');
    readln(m,b);
    S:=TR(n,a)+TR(m,b);
    writeln('S= ',S:8:3); end.

                           2.22. Сложный тип данных - массивы

     Типы данных делятся на простые и сложные. К простым типам относятся стандартные,
перечисляемые и ограниченные. К сложным типам - массивы, множества, записи, файлы.
Элементами сложных типов могут быть простые и сложные типы.
Упорядоченный набор объектов одного типа данных (числа, таблицы и т.д.) называются мас-
сивами. Массив обозначается одним именем. Каждый элемент массива обозначается именем
массива с индексом. Элементы массива упорядочены по значениям индекса.
    Массивы описываются в разделе VAR или в разделе TYPE (тип).
   Пример записи:

   CONST

                                                                                     63