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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

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




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

                                Вариант 2

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

                                Вариант 3

1. Открыть окно с координатами х1=12, y1=3, x2=74, y2=21.
2. Окрасить его в зеленый цвет.
3. Установить цвет символов - черный.
4. Вывести на экран фамилии и имена членов бригады, расположив
  информацию в центре окна.
5. Очистить текущее окно.
6. Установить режим TextMode(co40).
7. Открыть окно с координатами х1=6, y1=3, x2=34, y2=22.
8. Повторить п.п. 2-5, заменив цвет фона на голубой и символов на красный.
                                                                              17

Страницы