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

UptoLike

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

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




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


                                В а р и а н т 11

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

                                В а р и а н т 12

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