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

UptoLike

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

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




                                Вариант 6

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

                                Вариант 7

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

                                Вариант 8

1. Открыть окно с координатами х1=2, y1=2, x2=78, y2=20.
2. Окрасить его в зеленый цвет.
3. Установить цвет символов - красный.
                                                                              19