Изучение среды программирования Turbo Pascal

     Структурные операторы  операторов,  порядок  выполнения которых должен быть последовательным (составные операторы и  операторы  над записями   (with)),   определяемым  условной  передачей  управления (условные операторы) или повторяющимся (операторы цикла).

     Составные операторы

     Составные операторы задают порядок выполнения операторов, являющихся их элементами. Они должны выполняться в том порядке, в котором они записаны.

     Составные операторы  обрабатываются,  как один оператор,  что имеет  решающее  значение  там,  где  синтаксис  Паскаля  допускает использование  только  одного  оператора.  Операторы  заключаются в ограничители begin и end и  отделяются  друг  от  друга  точками  с запятой.

     Условные  операторы

     Условные  операторы позволяют выбрать  для выполнения один из составных операторов (или не выбрать ни одного)

     Оператор if

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

     If (выражение) then (оператор)

        else(оператор)

     В выражении  должен получаться результат,  имеющий стандартный тип Boolean.  Если результатом выражения является истинное значение (True), то выполняется оператор, следующий за ключевым словом then.

     Если  результатом выражения является значение false и присутствует ключевое слово else, то выполняется оператор, следующий за ключевым словом else. Если ключевое слово else отсутствует, то не выполняется никакой оператор.

     Оператор case

     Оператор  case состоит из выражения (селектора) и списка операторов, каждому из которых предшествует одна или более констант (они  называются  константами  выбора) или ключевое слово else. Селектор должен иметь порядковый тип размера байт или слово. Таким образом, строковый тип и тип LongInt являются недопустимыми типами селектора.

Синтаксис оператора  case  следующий:

     case (выражение) of

     (константа  1) : (оператор 1);

     (константа  2) : (оператор 2);

     (константа  n) : (оператор n);

     else (оператор);

     Операторы цикла

     Операторы цикла задают повторное выполнение  определенных операторов.

     Если  число повторений заранее известно, то подходящей конструкцией является оператор for. В противном случае  следует использовать операторы while или repeat.

     Операторы цикла repeat

     В операторе цикла repeat выражение, которое управляет повторным выполнением последовательности, содержится внутри оператора repeat

     Repeat. (оператор 1);

(оператор 2);

     (оператор  n);

     Until (выражение);

     Результатом выражения должен быть результат булевского типа. Операторы, заключенные между ключевыми словами repeat и until, выполняются последовательно до тех пор, пока результат выражения не примет значения True.  Последовательность операторов выполняется, по крайней мере, один раз,  поскольку вычисление выражения производится после каждого выполнения последовательности операторов.

     Операторы цикла while

     Оператор  цикла while содержит в себе выражение, которое управляет повторным выполнением оператора (который может быть составным оператором).

     While (выражение) do (оператор);

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

     Операторы цикла For

     Оператор  цикла for вызывает повторяющееся выполнение оператора (который может быть составным оператором), пока управляющей переменной присваивается возрастающая  последовательность значений.

     В качестве  управляющей переменной   должен   использоваться идентификатор переменной (без какого-либо квалификатора), который обозначает переменную, объявленную локальной в  блоке,  в  котором содержится   оператор  for.  Управляющая переменная  должна  иметь порядковый тип.  Начальное и конечное значения  должны  иметь  тип, совместимый по присваиванию с этим порядковым типом.

     Когда в  операторе  цикла  используется ключевое слово downto, значение управляющей переменной уменьшается при  каждом повторении на единицу.  Если начальное значение в таком операторе меньше,  чем конечное значение,  то содержащийся в теле оператора цикла оператор не выполняется.

     Пример:

           for J := 1 to 10 do

                  begin

                      X := X + Mat1[I,K]*Mat2[K,J];

                  end;

     Оператор  над записями with

     В операциях над записями оператор with удобно использовать для краткого обращения к полям записи и к полям,  методам, конструктору и деструктору объекта.  В операторе with к полям  одной  или  более конкретных  переменных  типа  запись  можно  обращаться,  используя только  идентификаторы  полей.

     В операторе with сначала производится проверка  каждой  ссылки на  переменную. Если можно,  то она всегда интерпретируется  именно  таким образом, даже если имеется доступ к переменной с тем же именем.

     Процедуры и функции позволяют включать в  основной программный блок дополнительные блоки.  Каждое объявление процедуры или функции содержит заголовок, за которым следует блок, Процедура активизируется с помощью оператора процедуры. Функция активизируется при вычислении выражения,  содержащего вызов функции, и возвращаемое функцией значение подставляется в это выражение.

     Описание  процедуры  позволяет  связать  идентификатор с процедурным  блоком.  Процедуру можно  затем  активизировать с помощью оператора процедуры.

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

     Приведем пример описания процедуры:

       procedure NumString (N: integer; var S: string);

       var

         V: integer;

       begin

         V := Abs(N);

         S := '';

         repeat

           S := Chr(N mod 10 + Ord('0')) + S;

           N := N div 10;

         until N = 0;

         if N < 0 then S := '-' + S;

       end; 

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

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

     В своей простейшей форме программа  состоит из заголовка программы, который именует программу, и основного программного блока,  выполняющего  назначение  программы.  В основном программном блоке находится секция кода, заключенная между ключевыми словами begin и end.  Приведем простейшую программу, иллюстрирующую эти принципы: 

                  program Privet;

                  begin

                    Writeln('Добро пожаловать в Borland Pascal');

                  end. 

     Первая  строка  -  это  заголовок программы,  который именует данную программу.  Остальная часть программы - это  исходный  код, который начинается ключевым словом begin и заканчивается end. Хотя данная конкретная программа содержит только  одну  строку,  их может быть  много.  В любой программе Турбо Паскаль все действия выполняются между begin и end.

     Код между  последними  операторами begin и end программы управляет логикой  программы.  В очень простой программе в этой секции кода может содержаться все,  что вам нужно. В более крупных и сложных программах размещение в этой  секции  всего  программного кода может затруднить чтение и понимание программы.  К тому же ее будет труднее разрабатывать.