Low.PAS

Язык:
Русский
English


 { Пример программы для функции Low }

var
  A : array[1 .. 100] of Integer;
  I : Integer;

type TDay = (Monday, Tuesday, Wednesday, Thursday,
             Friday, Saturday, Sunday);

const DayName : array[TDay] of String [2] =
  ('Пн', 'Вт', 'Ср', 'Чт', 'Пт', 'Сб', 'Вс');

var
  Day   : TDay;
  Hours : array[TDay] of 0 .. 24;

begin
 for I := Low(A) to High(A) do
    A[I] := 0;

 for Day := Low(TDay) to High(TDay) do
 begin
   Write('Сколько часов проработал в ', DayName[Day], ' ? ');
   ReadLn(Hours[Day]);
 end;
end.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //