МАССИВЫ

End.

Repeat

Begin

Program SumRow;

Пример.

End.

Begin

Begin

Program Table;

Пример.

End.

End

Writeln(f3);

Begin

Begin

Program Fib;

Сonst n=10; {количество чисел}

Var i,f1,f2,f3:Integer;

f1 := 1; f2 := 1; {первые два числа Фибоначчи}

For i := 3 To n Do

f3 := f1 + f2; {следующее число}

f1 := f2; f2 := f3

Оператор цикла с предусловием

While <логическое выражение> Do <оператор>;

Здесь, тело цикла выполняется до тех пор, пока логическое выражение возвращает значение True.

Оператор цикла с постусловием

Repeat <операторы> Until <логическое выражение> ;

Здесь, тело циклавыполняется до тех пор, пока логическое выражение возвращает значение False.

Если в теле цикла операторов For и While более одного оператора, то необходимо использовать составной оператор.

Напечатать таблицу значений функций sin x и cos xна отрезке [0,1] с шагом 0.1 в следующем виде:

x sin(x) cos(x)

---------------------------------

0.0000 0.0000 1.0000

0.1000 0.0998 0.9950

. . . . . . . . . . . . . . . . . . . . . . . . .

1.0000 0.8415 0.5403

Решение:

Const a=0; b=1; h=0.1; { границы и шаг табулирования}

Var x: Real;

x:=a;

Writeln(‘x sin(x) сos(x)‘); { заголовок таблицы}

Writeln(‘---------------------------------‘);

While x<=b Do

Writeln(x:7:4,sin(x):7:4,cos(x):7:4);

{вывод значений аргумента и функций}

x:=x+h {увеличение аргумента на шаг}

End; Writeln(‘---------------------------------‘)

Найти приближенное значение суммы ряда , учитывающее все слагаемые, от начала ряда до первого, величина которого меньше e = 0,0001 .

Решение:

Сonst e=1E-4; {точность вычислений}

Var U,S,F:Real; {очередное слагаемое и сумма ряда}

n:Integer;

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

n:=n+1;

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

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

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

Until Abs(S)<e;

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

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

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

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

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

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

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

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