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

InstallerSamples/LanguageFeatures/ForeachExamples.pas

44 строки792 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������ ������������ ������������ ���� �����������, 
// �� ������� ����� ������������ � ������� ��������� foreach

uses System.Collections.Generic;

const n = 10;

var 
  x: integer;
  a: array [1..n] of integer;
  b: array of integer;
  s: set of integer;
  l: List<integer>;

begin
  for var i:=1 to n do 
    a[i] := Random(100);
  // ���� foreach �� ������������ �������
  foreach x in a do
    write(x,' ');
  writeln;  
    
  SetLength(b,n);
  for var i:=0 to n-1 do 
    b[i] := Random(100);
  
  // ���� foreach �� ������������� �������
  foreach x in b do
    write(x,' ');
  writeln;  
  
  s := [2..5,10..14];
  foreach x in s do
    write(x,' ');
  writeln;  
  
  l := new List<integer>;
  l.AddRange(b);
  l.Reverse;
  foreach x in l do
    write(x,' ');
  writeln;  
  
end.