Компьютерные технологии в физике. Часть 1. Компьютерное моделирование физических процессов. Красов В.И - 21 стр.

              ловок подпрограммы и описывается ее структура. Раздел локальных опи-
              саний и раздел инструкций полностью аналогичен разделу описаний и раз-
              делу инструкций программы.

                                     {заголовок процедуры}
              procedure имя процедуры (параметры: тип; ……; параметры: тип);

              или
                                      {заголовок функции}
              function имя функции (параметры: тип; ……; параметры: тип): тип ре-
              зультата;

                                 {раздел локальных описаний}
              type …….     {описание типов}
              var ………      {описание переменных}
              const …….    {описание констант}
              procedure …. {описание внутренних процедур}
              function …… {описание внутренних функций}

                                           {раздел инструкций}
              begin
              Инструкция ;
              …………………
              имя функции := результат; {присвоение результата функции (только при
              описании функции)}
              …………………

              Инструкция ;
              end;

                    Раздел локальных описаний присутствует, если в подпрограмме оп-
              ределены локальные типы данных, локальные переменные и константы.
              Локальные описания действуют только в пределах той подпрограммы, где
              они определены.
                     В подпрограммах можно использовать стандартную процедуру Exit
              для досрочного завершения процедуры или функции. Обычно она исполь-
              зуется в составе условных инструкций if внутри подпрограммы.
                    Примеры описания процедур и функций:

              ………………………………….
              procedure EField (X,Y: real);
              var
                  R: real;

                                                        24

PDF created with FinePrint pdfFactory Pro trial version http://www.fineprint.com