4.5.4 Циклические конструкции

Цикл с предусловием.

Для реализации циклов с предусловием используется составной оператор, включающий оператор while, do, операторные скобки.

В общем виде цикл реализуется записью:

while <условие> do <действие>;

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

while <условие> do

begin        <оператор 1>;

<оператор 2>;

   ...

   <оператор n>;

end;.

Цикл с постусловием.

Для реализации цикла используется составной оператор, состоящий из операторов repeat и until.

В общем виде цикл записывается так:

repeat       <действие>;     until <условие>;

Пример: задано целое число. Вывести на печать все цифры введенного числа.

var a,b:longint;     Begin       read(a);       repeat         b:=a mod 10;         writeln(b);         a:=a div 10;       until a=0;     End.

Цикл с параметром.

Для реализации в языке Pascal используется составной оператор, состоящий из операторов for, to, downto, do и при необходимости из операторных скобок. Переменная параметр обязательно объявляется в декларационной части программы и может принадлежать одному из порядковых типов. Если при изменении переменной параметра необходимо использовать переход к следующему значению, то используется оператор to; если переход необходимо осуществить к предыдущему значению, то используется оператор downto. Тогда в общем виде цикл записывается так:

for I:=I₀ to I_n do

      begin         <оператор 1>;

        <оператор 2>;

       ...         <оператор n>;

    end;

4.6 Структурированные типы данных

Традиционно к структурированным типам данных в языке Pascal относят массивы, множества и записи. Иногда структурированным считают строковый тип. На самом деле строки занимают промежуточное положение между простыми и структурированными типами, но т.к. большинство их свойств реализуются как свойства сложных данных, то строки рассматриваются как структурированный тип.

4.6.1 Массивы

Массивом будем называть упорядоченную последовательность данных одного типа, объединенных под одним именем Объявление переменной массива происходит в разделе var. При этом используется зарезервированное слово array, указывается тип массива и его размерность перечислением индексов, а также объявляется тип данных в массиве.

Пример:  

 var masiv: array ['a'..'z'] of integer;

Пример:

Для обращения к элементу массива в Pascal-программе указывается имя массива и в квадратных скобках индексы элемента.

Пример 1:

a [2,4]

а) ввести значение:

   read (A[2,4]);

б) изменить значение:

   A[2,4]:=5;

в) сообщить значение:

   write (A[2,4]);

Пример 2:

masiv ['b'];

masiv['b']:=47*24;

Задача ввода элементов массива.

а) линейного:

program vvod;    var A: array [1..10] of integer;       i:integer;    begin       for i:=1 to 10 do          read (A[i]);    end.

б) двумерного:

program vvod;    const n=5; m=7;    var A: array [1..n,1..m] of real;       i,j: integer;    begin       for i:=1 to n do          for j:=1 to m do             read (A[i,j]);    end.

Задача 2: найти минимальный элемент в массиве:

program min;    const n=10;    var i: byte;       a: array [1..n] of real;       min: real;    begin       for i:=1 to n do read (A[i]);       min:=A[1];       for i:=1 to n do          if min>A[i] then min:=A[i];       write (min);    end.