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

TestSamples/CompilationSamples/Foreach2.pas

26 строк575 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������ ������������ ����������� ��������� foreach
uses System.Collections.Generic;

var 
  a: array [1..5] of integer := (1,3,5,7,9);
  s: set of integer;
  l: List<integer>;

begin
  write('foreach �� �������� �������: ':35);
  foreach x: integer in a do
    write(x,' ');
  writeln;  
  
  s := [2..5,10..14];
  write('foreach �� ���������: ':35);
  foreach x: integer in s do
    write(x,' ');
  writeln;  
  
  l := new List<integer>;
  l.Add(7); l.Add(2); l.Add(5);
  write('foreach �� ������������� �������: ':35);
  foreach x: integer in l do
    write(x,' ');
end.