{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"
Лабораторная работа №12.
Выполнил: ст.гр. МЛ-112, Фомин Александр
г.Новосибирск, 2012г.
}

Program Lab5_6; uses crt;

const sex:array [1..2] of string=('Мужчина','Женщина');
      s_item=2;

var ch:char;
    i:byte;
    m_sex:string;
     age:byte;

Begin clrscr;
TextColor(White);
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Write('--------------------------------------------------------------------------------');
i:=0;
TextColor(Cyan); Write(' Пол: ');
TextColor(White); Write('[ Для управления используйте стрелки "',#26, '" и "', #27,'" ]');

Readkey; GotoXY(19,WhereY); clrEol;

Repeat
TextColor(Yellow); {Цвет текста текущего элемента массива}
Ch:=ReadKey;
if (Ch in [#13,#75,#77]) then {#77 - стрелка вправо / #75 - стрелка влево / #13 - клавиша Enter}
   Begin
   Case Ch of
        #77:Begin {Стрелка вправо}
            Inc(i); {Определяем номер элемента в массиве}

            {Если элемент был последним, то возвращаемся к первому}
                if (i > s_item) then
                                Begin
                                i:=1; {Первый элемент массива}
                                        GotoXY(7,WhereY); clrEol;
                                Write(Sex[i]);
                                end;
                   GotoXY(7,WhereY); clrEol;
             Write(Sex[i]);
             end;

        #75:Begin {Стрелка влево}
                  if (i = 0) then i:=1;
            Dec(i); {Определяем номер элемента в массиве}

              {Если элемент был первым, то возвращаемся к последнему}
            if (i < 1) then
                                   Begin
                           i:=s_item; {Последний в массиве}
                                   GotoXY(7,WhereY); clrEol;
                           Write(Sex[i]);
                           end;
                  GotoXY(7,WhereY); clrEol;
                  Write(Sex[i]);
            end;

                #13:Begin
            m_Sex:=Sex[i]; {Заоминаем выбранный элемент массива}
            Writeln;
            end;
   end;{Case}
   end; {Begin (офератор If)}
Until Ch=#13; {Подтверждения выбора (кнопка Enter)}
{----- Форма правления End -----}

TextColor(Cyan); Write(' Возраст: ');
TextColor(Yellow); Readln(Age);

TextColor(White);
Write('--------------------------------------------------------------------------------');
TextColor(Cyan); Write(' Результат: '); TextColor(Yellow);
if ((m_Sex = Sex[1]) and ((18 <= Age) and (Age <= 27))) then Writeln(' Человек является военнообязанным')
                                                        else Writeln(' Человек не является военнообязанным');
TextColor(White);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.