Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
remobject_pascal_script:procedury_i_funkcii [2018/04/01 20:36]
jurist23rus [Передача массивов в качестве параметров]
remobject_pascal_script:procedury_i_funkcii [2018/04/23 08:39] (текущий)
7bit Форматирование кода
Строка 10: Строка 10:
 procedure MyProc([список параметров]); procedure MyProc([список параметров]);
 begin begin
- +  
 end; end;
 // Определение функции // Определение функции
 function MyFunc([список параметров]): [тип данных]; function MyFunc([список параметров]): [тип данных];
 begin begin
- +  
 end; end;
 </code> </code>
Строка 38: Строка 38:
 procedure MyProc(Param1: Integer); procedure MyProc(Param1: Integer);
 var var
- i, j: Integer;+  i, j: Integer;
 begin begin
- i := 1; +  i := 1; 
- …+  
 end; end;
 </code> </code>
Строка 66: Строка 66:
 <code delphi> <code delphi>
 var var
- a: Word; +  a: Word; 
- MyStr, MyResult: String; +  MyStr, MyResult: String; 
- b: Boolean;+  b: Boolean;
 begin begin
- b := MyFunc(1, a, AnyFunc(20) + 30 / 0.5, MyStr, ‘Hello, World’, MyResult);+  b := MyFunc(1, a, AnyFunc(20) + 30 / 0.5, MyStr, ‘Hello, World’, MyResult);
 end; end;
 </code> </code>
Строка 83: Строка 83:
 <code delphi> <code delphi>
 type type
- TMyArr = array [1..20] of Integer; +  TMyArr = array [1..20] of Integer; 
- TMyArr2d = array [1..10] of array [1..5] of Byte; +  TMyArr2d = array [1..10] of array [1..5] of Byte; 
- TDynaArr = array of String;+  TDynaArr = array of String;
  
 procedure MyProc(Arr: TMyArr; var Arr2d: TMyArr2d; DynaArr: TDynaArr); procedure MyProc(Arr: TMyArr; var Arr2d: TMyArr2d; DynaArr: TDynaArr);
 begin begin
- +  
 end; end;
  
 procedure AnyProc; procedure AnyProc;
 var var
- A: TMyArr; +  A: TMyArr; 
- A2d: TMyArr2d; +  A2d: TMyArr2d; 
- DArr: TDynaArr;+  DArr: TDynaArr;
 begin begin
- … +  … 
- MyProc(A, A2d, DArr);+  MyProc(A, A2d, DArr);
 end; end;
 </code> </code>
Строка 115: Строка 115:
 procedure AnyProc; procedure AnyProc;
 var var
-A: array [1..10] of String;+  A: array [1..10] of String;
 begin begin
-MyProc(a); // type mismatch+  MyProc(a); // type mismatch
 end; end;
 </code> </code>
Строка 133: Строка 133:
 procedure MyProc(Arr: array of Integer); procedure MyProc(Arr: array of Integer);
 begin begin
- // Low(открытый массив) = 0 +  // Low(открытый массив) = 0 
- for i := Low(Arr) to High(Arr) do +  for i := Low(Arr) to High(Arr) do 
- …+  
 end; end;
  
 procedure AnyProc; procedure AnyProc;
 var var
- arr: array [1..10] of Integer; +  arr: array [1..10] of Integer; 
- arr2: array [-2..5] of Integer;+  arr2: array [-2..5] of Integer;
 begin begin
- MyProc(arr); +  MyProc(arr); 
- MyProc(arr2); +  MyProc(arr2); 
- MyProc([1,4,8,9,11,34,23]);+  MyProc([1,4,8,9,11,34,23]);
 end; end;
 </code> </code>
Строка 165: Строка 165:
 function SumAB(A, B: Double): Double; function SumAB(A, B: Double): Double;
 begin begin
- Result := A + B;+  Result := A + B;
 end; end;
 </code> </code>