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

TestSamples/CompilationSamples/Enum2.pas

25 строк810 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������������ ���
type Months = (January,February,March,April,May,June,July,August,September,October,November,December);

var m: Months;
  
begin
  m := February;
  writeln(m);
  // ������������� �������� ������������� ���� ����� ����� ���� ������: ����� ����� intellisense ���������� ������ ��������
  m := Months.April;
  writeln('��������� �����: ',m);
  Inc(m);
  writeln('��������� �����: ',m);
  m := Succ(m);  
  writeln('��������� �����: ',m);
  m := Pred(m);  
  writeln('����������� �����: ',m);
  Dec(m);
  writeln('����������� �����: ',m);
  writeln('��� ���������� ����� (��������� - � ����): ',Ord(m));
  // ������ ���
  writeln('����� ����� ������� - ����� �� �������: ',pred(Months.January));
  // ������ ���
  writeln('����� ����� ������� - ����� �� �������: ',succ(Months.December));
end.