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

              begin
                 R:= Sqrt(sqr(X-X0)+Sqr(Y-Y0));
                 Ex:=Q*(X-X0)/(R*R*R);
                 Ey:=Q*(Y-Y0)/(R*R*R);
                 E:=Sqrt(Sqr(Ex)+Sqr(Ey));
              end;

              function Potential (X,Y: real): real;
              var
                  R: real;
              begin
                  R:= Sqrt(Sqr(X-X0)+Sqr(Y-Y0));
                  Potential:=Q/R;    {присвоение результата функции}
              end;

              procedure Degree (A,B: real; var C: real);
              begin
                 C:=Exp(B*Ln(A));
              end;
              ……………………………………………

              {вызов подпрограмм из основного блока}
              EField (X,Y);
              Phi:=Potential(150,200.5);
              Degree(2.58e-3,56.4,C);
              …………………………………………….

              Передаваемые параметры.

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

                                                        25

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