Var u,s,f:Real; {очередное слагаемое и сумма ряда}

n:Integer;

Begin

        n:=1; S:=1; F:=1;

        Repeat

            n:=n+1;

            F:=F*n;{вычисление факториала}

            U:=1/F; {вычисление очередного слагаемого}

            S:=S+U; {вычисление суммы ряда}

        Until Abs(S)<e;

        Writeln(‘Сумма ряда S=‘, S:7:4);

End.

Массивы

Массив – это структурированный тип данных, который используется для описания упорядоченной совокупности фиксированного числа элементов одного типа, имеющих общее имя. Для обозначения элементов массива используются имя переменной массива и индекс.

Type <имя типа массив> = Array [<тип индекса>] Of <тип элементов>;

Var <имя переменной>: <имя типа массив>;

<тип индекса> – перечисляемый, логический, символьный, диапазон.

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

Var <имя переменной>: Array [<тип индекса>] Of <тип элементов>;

Массивы обычно используются в тех программах, где требуется сохранять во время выполнения программы в памяти ЭВМ некоторую совокупность величин одного типа. Например, это требуется для задач, алгоритмы решения для которых предполагают неоднократное обращение к элементам заданной последовательности. Кроме того, массивы часто используются и в тех случаях, когда для решения задачи достаточно однократного использования каждого элемента последовательности и, следовательно, нет необходимости хранить все элементы в памяти ЭВМ. Примерами таких задач являются все задачи с последовательностями из предыдущего параграфа.

Пример.

Дана последовательность из n вещественных чисел. Упорядочить ее элементы по возрастанию.

Решение: рассмотрим метод сортировки выбором.

Отыскивается максимальный элемент и переносится в конец массива; затем этот метод применяется ко всем элементам, кроме последнего (он уже находится на своем окончательном месте), и т. д.

Program SortCase;

Const n=10;

Type mas: Array [1..n] Of Real;

Var x: mas;

i, j, m: Integer;

r: Real;

Begin

{ввод элементов массива}

For i := 1 To n Do Readln(x[i]);

For j := n Downto 2 Do

Begin {поиск m - номера max x[1..j]}

m:=1;

For i :=2 To j Do If x[i]>x[m] Then m:=i;

{перестановка элементов x[m] и x[j]}

r:=x[j]; x[j]:=x[m]; x[m]:=r;

End;

{вывод элементов упорядоченного массива}

For i:=1 To n Do Writeln(x[i])

End.