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

UptoLike

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

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




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


                                В а р и а н т 18

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

                                В а р и а н т 19

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