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

UptoLike

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

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




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

                                Вариант 9

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

                               В а р и а н т 10

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