Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 18 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

18
18
9. Восстановить текстовый режим TextMode(co80).
10. Переместить курсор в центр окна.
11. Вывести сообщение: "ПРОВЕРКА ЗВУКА".
12. Определить и вывести на экран координаты курсора.
13. Установить частоту звука 100 и длительность 350, а затем отключить звук
14. Восстановить цвета и режимы.
Вставлять функцию Readkey во всех необходимых для контроля местах.
В а р и а н т 4
1. Открыть окно с координатами х1=14, y1=5, x2=66, y2=20.
2. Окрасить его в серый цвет.
3. Установить цвет символов - сиреневый.
4. Вывести на экран фамилии и имена членов бригады, расположив
информацию в центре окна.
5. Очистить текущее окно.
6. Установить режим TextMode(co40).
7. Открыть окно с координатами х1=5, y1=3, x2=33, y2=18.
8. Повторить пункты 2-5, заменив цвет фона на зеленый и символов
на белый.
9. Восстановить текстовый режим TextMode(co80).
10. Переместить курсор в центр окна.
11. Вывести сообщение: "ПРОВЕРКА КООРДИНАТ И ЗВУКА".
12. Определить и вывести на экран координаты курсора.
13. Установить частоту звука 200 и длительность 450, а затем отключить звук
14. Восстановить цвета и режимы.
Вставлять функцию Readkey во всех необходимых для контроля местах.
В а р
и а н т 5
1. Открыть окно с координатами х1=7, y1=3, x2=74, y2=21.
2. Окрасить его в ceрый цвет.
3. Установить цвет символов - красный.
4. Вывести на экран фамилии и имена членов бригады, расположив
информацию в центре окна.
5. Очистить текущее окно.
6. Установить режим TextMode(co40).
7. Открыть окно с координатами х1=5, y1=3, x2=35, y2=19.
8. Повторить пункты 2-5, изменив цвет
фона на голубой и символов на желтый.
9. Восстановить текстовый режим TextMode(co80).
10. Переместить курсор в центр окна.
11. Вывести сообщение: "ПРОВЕРКА ЗВУКА И КООРДИНАТ".
12. Определить и вывести на экран координаты курсора.
13. Установить частоту звука 400 и длительность 450, а затем отключить звук
14. Восстановить цвета и режимы.
Вставлять функцию Readkey во всех необходимых для контроля
местах. 
                                                                              18




9. Восстановить текстовый режим TextMode(co80).
10. Переместить курсор в центр окна.
11. Вывести сообщение: "ПРОВЕРКА ЗВУКА".
12. Определить и вывести на экран координаты курсора.
13. Установить частоту звука 100 и длительность 350, а затем отключить звук
14. Восстановить цвета и режимы.
Вставлять функцию Readkey во всех необходимых для контроля местах.

                                Вариант 4

1. Открыть окно с координатами х1=14, y1=5, x2=66, y2=20.
2. Окрасить его в серый цвет.
3. Установить цвет символов - сиреневый.
4. Вывести на экран фамилии и имена членов бригады, расположив
  информацию в центре окна.
5. Очистить текущее окно.
6. Установить режим TextMode(co40).
7. Открыть окно с координатами х1=5, y1=3, x2=33, y2=18.
8. Повторить пункты 2-5, заменив цвет фона на зеленый и символов на белый.
9. Восстановить текстовый режим TextMode(co80).
10. Переместить курсор в центр окна.
11. Вывести сообщение: "ПРОВЕРКА КООРДИНАТ И ЗВУКА".
12. Определить и вывести на экран координаты курсора.
13. Установить частоту звука 200 и длительность 450, а затем отключить звук
14. Восстановить цвета и режимы.
Вставлять функцию Readkey во всех необходимых для контроля местах.

                                Вариант 5

1. Открыть окно с координатами х1=7, y1=3, x2=74, y2=21.
2. Окрасить его в ceрый цвет.
3. Установить цвет символов - красный.
4. Вывести на экран фамилии и имена членов бригады, расположив
  информацию в центре окна.
5. Очистить текущее окно.
6. Установить режим TextMode(co40).
7. Открыть окно с координатами х1=5, y1=3, x2=35, y2=19.
8. Повторить пункты 2-5, изменив цвет фона на голубой и символов на желтый.
9. Восстановить текстовый режим TextMode(co80).
10. Переместить курсор в центр окна.
11. Вывести сообщение: "ПРОВЕРКА ЗВУКА И КООРДИНАТ".
12. Определить и вывести на экран координаты курсора.
13. Установить частоту звука 400 и длительность 450, а затем отключить звук
14. Восстановить цвета и режимы.
Вставлять функцию Readkey во всех необходимых для контроля местах.
                                                                              18

Страницы