Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Алгоритм





1.1. Задать пункты меню.

1.2. Очистить экран.

1.3. Начальное положение курсора (пункт меню) pm = 1.

2. Повторять {движение по меню}

2.1. Повторять

2.1.1. Вывести все пункты меню основной парой цветов.

2.1.2. Вывести текущий пункт меню pm другой парой цветов.

2.1.3. Считать символ с клавиатуры {действия пользователя}

2.1.4. Если символ = #0, то {нажата управляющая клавиша}

а) Считать символ {читаем второй код нажатой клавиши}

б) Выбрать символ из значений

#77: Движение вправо

#75: Движение влево

Пока Символ не будет равен Esc или Enter.

2.2. Если Символ равен Enter то

Выбрать pm из значений

1: Вывести: ’Выполняется пункт 1’

2: Вывести: ’Выполняется пункт 2’

3: Вывести: ’Выполняется пункт 3’

4: Вывести: ’Выполняется пункт 4’

5: Закончить (Символ = Esc)

Пока Символ не будет равен Esc.

3. Закончить

 

Движение вправо и влево должно быть круговым, т.е. при движении вправо номер пункта увеличивается на 1, пока он не станет равен последнему номеру. После этого номер должен принять значение 1. При движении влево после первого пункта номер должен стать последним.

В программе необходимо задать координаты первого пункта. Если принять названия всех пунктов меню одинаковыми, то начало пункта с номером pm на экране будет иметь координаты:

(xn + (pm - 1)*dl, yn),

где xn и yn – координаты начала первого пункта меню;

dl - длина названия пункта меню (одинаковая для всех пунктов).

 

Программа для описанного выше алгоритма имеет вид.

 

Program Gor_Menu;

Uses

Crt;

Const

Dl = 12; {длина названия пункта меню - шаг перемещения}

M = 5; { количество пунктов }

Enter = #13;

Esc = #27;

Var

Punkt: Array[1..m] of String[dl]; { Массив названий }

{ пунктов меню}

pm, i, xn, yn: Integer;

Sim: Char;

Begin

{п. 1.1 }

Punkt[1]: = ’ Операция 1 ’;

Punkt[2]: = ’ Операция 2 ’;

Punkt[3]: = ’ Операция 3 ’;

Punkt[4]: = ’ Операция 4 ’;

Punkt[5]: = ’ Выход ’;

{ Очистка экрана }

TextBackGround(Blue);

ClrScr;

{ Начальное положение курсора и меню }

pm: = 1;

xn: = 10;

yn: = 3;

Repeat { п. 2 }

Repeat { Цикл движения по меню }

GotoXY(xn, yn);

{ Основные цвета меню }

TextBackGround(Blue);

TextColor(White);

For i: = 1 to m do

Write(Punkt[i]);

{ Текущий пункт перекрашиваем }

TextBackGround(Green);

TextColor(Red);

GotoXY(xn+dl*(pm-1), yn);

Write(Punkt[pm]);

{ Ожидаем действий пользователя на клавиатуре}

Sim: = Readkey;

If Sim = #0 then

Begin { Управляющая клавиша }

Sim: = Readkey;

Case Sim of

#77: { Движение вправо }

If pm=m then

pm: =1

Else

pm: =pm+1;

#75: { Движение влево }

If pm=1 then

pm: =m

Else

pm: =pm-1;

End; { Case }

End; { If }

Until (Sim = Enter) Or (Sim = Esc); { Цикл движения }

 

If Sim = Enter then

{ Пункт меню выбран }

If pm = m then

Sim: = Esc {Выбран последний пункт меню - выход}

Else

Begin

GotoXY(30, 10);

Write(’Выполняется ’, Punkt[pm]);

End;

Until Sim = Esc; { Внешний цикл, окончание работы }

GotoXY(30, 10);

Writeln(’Конец работы, нажмите любую клавишу ’);

Repeat Until KeyPressed;

End.

 

 







Дата добавления: 2014-12-06; просмотров: 626. Нарушение авторских прав; Мы поможем в написании вашей работы!




Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...


Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...


Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...


Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...

Типовые примеры и методы их решения. Пример 2.5.1. На вклад начисляются сложные проценты: а) ежегодно; б) ежеквартально; в) ежемесячно Пример 2.5.1. На вклад начисляются сложные проценты: а) ежегодно; б) ежеквартально; в) ежемесячно. Какова должна быть годовая номинальная процентная ставка...

Выработка навыка зеркального письма (динамический стереотип) Цель работы: Проследить особенности образования любого навыка (динамического стереотипа) на примере выработки навыка зеркального письма...

Словарная работа в детском саду Словарная работа в детском саду — это планомерное расширение активного словаря детей за счет незнакомых или трудных слов, которое идет одновременно с ознакомлением с окружающей действительностью, воспитанием правильного отношения к окружающему...

Интуитивное мышление Мышление — это пси­хический процесс, обеспечивающий познание сущности предме­тов и явлений и самого субъекта...

Объект, субъект, предмет, цели и задачи управления персоналом Социальная система организации делится на две основные подсистемы: управляющую и управляемую...

Законы Генри, Дальтона, Сеченова. Применение этих законов при лечении кессонной болезни, лечении в барокамере и исследовании электролитного состава крови Закон Генри: Количество газа, растворенного при данной температуре в определенном объеме жидкости, при равновесии прямо пропорциональны давлению газа...

Studopedia.info - Студопедия - 2014-2025 год . (0.013 сек.) русская версия | украинская версия