Правила форума
Low.PASЯзык:
Русский
English
{Low.PAS}
{ Пример программы для функции 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.
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.
::
::
::
