X, s, eps, a : real;

begin

write ('введите х и epsilon - ');

readln (x, eps);

s:=0;

a:=1; { задание параметру цикла его начального значения }

while abs(a) > eps do { проверка условия выхода из цикла }

begin

s := s + a; a := a * x;

end;

writeln ('сумма прогрессии = ', s:10:3)

end.

Второй вариант

var

x, s, eps, a : real;

begin

write ('введите х и epsilon - ');

readln (x, eps);

s := 0;

a := 1; { задание параметру цикла его начального значения }

repeat

s := s + a; a := a * x;

until abs(a) < eps; { проверка условия выхода из цикла }

writeln ('сумма прогрессии = ', s:10:3)

end.

Пример 4.18. Выполнить задание, приведённое в примере 4.15, используя оператор for.

var s: real;

n, k : integer;

begin

n := 20; s:=0;

for k := 1 to n do

s := s + 1/sqr(k);

writeln ('s = ', s:10:3);

end.

Тема 4. Структурированные типы данных

Структурированныеили сложные типы данных, в отличие от простых типов, содержат более одной компоненты, т.е. состоят из нескольких элементов. Из существующих вPASCALструктурированных типов мы рассмотрим только наиболее используемый тип – “массив”.

4.1. Одномерные массивы

Массив – это упорядоченная совокупность переменных одно­го типа, называемых элементами массива.

Массив может быть одномерным или многомерным. Одномерный массив (линейный) соответствует в математике понятию вектора. Двумерный массив соответствует понятию матрицы. Трехмерный массив можно считать набором матриц или кубом. Массивы большей размерности на практике встречаются редко.

Все элементы имеют одно и то же имя, совпадающее с именем массива. Каждый элемент снабжает­ся индексом (порядковым номером), определяющим его относительную позицию в ряду других элементов. Индекс элемента записывается вслед за его именем в квадратных скобках, например, a[3], max[10] и т.д.

Характеристиками каждого массива являются его имя, размер­ность и длина. Имя массива выбирается по тем же правилам, что и имя простой (неиндексированной) переменной. Под длиной массива будем понимать количест­во составляющих его элементов.

В программе каждый массив должен быть описан. Его описание может быть сделано либо в разделе описания переменных – var, либо в двух разделах: описания типов – type и описания переменных – var.

Описание массива в разделе переменных выглядит так:

Var имя массива : array [тип индекса] of тип элементов;

В качестве элементов массива могут выступать переменные любого типа, допустимого в языке. Тип индекса задает количество элементов в массиве; это количество определяется числом возможных значений типа, указанного в описании массива. Для индексации элементов массива чаще всего используется ограниченный тип, который образуется из какого-либо порядкового типа, кроме longint,

Пример 4.1

a) var amper : array [0..30] of real;

Описан массив с именем amper, состоящий из 31 элемента типа real; индексация его элементов начинается с нуля и заканчивается целым числом 30.

б) var v, w: array [-1..15] of integer;

Описаны два эквивалентных массива v и w целого типа, содер­жащие по 17 элементов в каждом.

Описание массивов с помощью описания типов. Этот способ вклю­чает себя два этапа: сначала в разделе описания типов объявляется пользовательский тип, а затем в разделе описания переменных указывается имя массива, принадлежащего данному типу:

type имя типа = array [тип индекса] of тип элементов;