Инструменты пользователя

Инструменты сайта


remobject_pascal_script:procedury_i_funkcii

Различия

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

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

Предыдущая версия справа и слева Предыдущая версия
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>​
remobject_pascal_script/procedury_i_funkcii.txt · Последние изменения: 2018/04/23 08:39 — 7bit