9.12.Примеры программирования итерационных алгоритмов

Пример 1. Вычислить y = x^n путем многократного умножения (n- целое положительное число).

Program Mult;

Var x,y : real;

i,n : word;

Begin

Ввод и печать x,n

y:=x;

For i:=1 to n do y:=y*x;

Печать y

End.

Раздел №13 (2 часа)

Диапазонный тип данных. Массивы

План:

• Понятие диапазонного типа данных

• Массивы. Описание и использование массивов

Диапазонный тип данных. Массивы

9.13.Диапазонные типы данных

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

Синтаксис объявления можно пояснить следующими примерами:

Type

Positive = 1 .. MaxInt;

Natural = 0 .. MaxInt;

Rist = -20 .. 20;

Parn = 'a' .. 'k';

В этих примерах MaxInt – предопределённая константа, соответствующая максимальному целому числу, допустимому для используемой платформы/компилятора.

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

9.14.Массивы. Описание и использование массивов

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

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

Объявление массива в программе осуществляется с использованием ключевого слова array, используемого следующим образом:

Type

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

Рассмотрим несколько примеров декларации массивов:

Type

Ar = array[1..100] of integer; Var

A,B,C : Ar;

Декларацию переменных-массивов можно осуществлять непосредственно в разделе переменных:

Var

A,B,C : array[1..100] of integer;

Пример использования отдельных элементов – обращение через оператор присваивания, считывание с клавиатуры, использование в арифметических выражениях. Обратить внимание на принципиальное отличие от обычной переменной — возможность использования косвенной адресации, по номеру (индексу) элемента.

Пример ввода одномерного массива с клавиатуры и последующего вывода его на экран.

const

Nmax = 10;

var

n : integer;

a : array [1..Nmax] of integer;

begin

{Сначала ввод}

for n:=1 to Nmax do

begin

write(‘Введите элемент a[’, n, ‘]: ’);

read(a[n]);

end;

{Теперь вывод}

for n:=1 to Nmax do

writeln(‘Элемент a[’, n, ‘] = ’, a[n]);

end.

В качестве примера работы с массивом рассмотрим задачу расчета среднего арифметического элементов массива:

Const

Nmax = 500; {константа, определяющая максимальный

размер массива}

Var

X : array[1..Nmax] of integer; {массив для хранения целых чисел}

n : integer; {переменная для хранения выбранного пользователем

количества используемых элементов массива}

i : integer; {переменная-параметр цикла}

S : real; {Переменная для хранения

рассчитываемой суммы элементов}

Begin

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

write(‘Введите n: ’);

read(n);

{Ввод массива X}

for i:=1 to n do

begin

write(‘Введите X[’, i, ‘]: ’);

read(X[i]);

end;

{Расчёт среднего арифметического}

S:=0;

For i:=1 to n do

S:=S+X[i];

S:=S/n;

writeln(‘S = ’, S);

End.

Раздел №14 (4 часа)

Процедуры и функции

План:

• Структурный подход к разработке программы. Подпрограммы

• Синтаксис объявления и использования процедур

• Синтаксис объявления и использования функций

• Примеры использования подпрограмм на Паскале

• Параметры-переменные и параметры-значения