n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/ProcParam.pas

27 строк573 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ����������� ����������� ���������� ��� ���������� �����������
// ��� ������������ ���� � PascalABC.NET ����������� ����������� ��������������� �����
// ����������� ��� ���������� ����� �������� .NET
procedure for_each(var a: array of real; p: procedure(var r: real));
var i: integer;
begin
  for i := 0 to a.Length-1 do
    p(a[i]);
end;

procedure mult2(var r: real);
begin
  r := 2*r
end;

procedure print(var r: real);
begin
  write(r,' ');
end;

var a: array of real := (1,2,3,6,7);

begin
  for_each(a,print); writeln;
  for_each(a,mult2);
  for_each(a,print);
end.