5.4 Индивидуальные заданий по теме : « Процедуры и функции модуля crt»

5.4.1 Индивидуальное задание №1

1) Заполните экран 1600 случайными числами в диапазоне 0...9 стандартным белым цветом на красном фоне ярко-зелеными буквами. Установите зеленый фон и выведите еще 1600 случайных чисел желтым цветом. Не забудьте подключить модуль CRT, так как вам понадобятся экранные процедуры.

2) Покажите восемь возможных фонов экрана задержкой в три с. В левый верхний угол экрана выведите номер текущего цвета.

3) Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран.

4) Выведите на предварительно очищенный экран строку 'ЯРКИЙ И ТУСКЛЫЙ таким образом, чтобы первое слово было ярким, 'и' — менее ярким, а последнее слово—тусклым.

5) Выведите на предварительно очищенный экран строку 'Для продолжения работы нажмите клавишу Enter¹ таким образом, чтобы последнее слово ярко выделялось по сравнению с другими словами предложения.

6) Выведите 200 символов '*' случайного цвета в точки экрана со случайными коорди­натами. Фон экрана-черный.

7) Построите окно цвета LightRed и выведите в него две строки БАЗА ДАННЫХ и 'СРЕДНЕЙ ШКОЛЫ' черного цвета. Сделав паузу в три секунды, очистите экран черного цвета. Обратите внимание, что дня перехода от окна к полному экрану надо обязательно выполнить оператор Window (80,25). Эта программа — подход к выводу данных в различные места экрана и первый шаг к созданию заставок, содержащих название и назначение программы.

8) Постройте два окна по верхним углам экрана и выведите в каждое сообщение ‘Окно 1’, ‘Окно 2’. Сделайте паузу три секунды и очистите экран

9) У левого края экрана создайте окно цвета lightGreen и переместите его к- правому краю экрана, имитируя движение с шагом в одну позицию.

10) Постройте "взрывающееся" (т. е. постепенно увеличивающееся от мини-мального к максимально возможному размеру экрана) окно цветом Magerta для Х-координат=3, для Y-координат = 1.

11) Постройте "сходящееся" (т.е. постепенно уменьшающееся от макси-мально возможного к строке толщиной 1 символ) окно цветом Magerta

12) Постройте два окна (цветами Blue и Green) и подпишите их «ЧЕТНЫЕ», «НЕЧЕТНЫЕ » желтым цветом. С клавиатуры в цикле в строке 25 вводите цифры от 1 до 9. Если число четное, выводите его цветом LightRed в окно с надписью 'ЧЕТНЫЕ' и т.д.

13) Напишите программу, в которой вывод символов строки сопровождается звуковым сигналом. Формирование сигнала оформите отдельной процедурой Веер.

14) Напишите программу, которая вводит в цикле целые числа и если число превышает 100, подает звуковой сигнал с помощью пользовательской процедуры Веер. Выход из цикла — 99.

15) Напишите программу, которая генерирует 100 целых случайных чисел в диапазоне 1-300. Если случайное число попало в диапазон 60-100, подайте звуковой сигнал с помощью пользовательской процедуры Веер и выведите это число на экран.

16) Исследуйте датчик случайных чисел системы Турбо Паскаль. Для этого сгенерируйте 5000 случайных чисел и подсчитайте число четных и нечетных чисел. Если число четных чисел превысит 2500, подайте один звуковой сигнал, если количество нечетных чисел превысит 2500, подайте три сигнала.

17) Разработайте программу-модель датчика-анализатора температуры. В качестве ис­точника температуры возьмите случайное число, полученное по Random(300), 100 раз. Вы­полните анализ диапазонов 0-100, 101-200, 201-300. В первом случае выдайте сообщение Норма, во втором случае — Превышение нормы, в третьем — сообщение Тревога и один звуковой сигнал. (По принципу работы этой программы построена работа всех пожарных, химических и прочих датчиков аварийных ситуаций).

18) На основе функции Random постройте программу-исполнителя "случайной" электронной музыки. Продолжительность сигнала также случайна и может длиться от 0 до 500 мс.

19) Напишите программу, которая три раза проигрывает гамму от ДО до СИ, используя ноты ДО, РЕ, МИ, ФА, СОЛЬ, ЛЯ, СИ с частотами соответственно 262,294,330,349,392,440,494.

20) Изучите звучание различных частот, вводя с клавиатуры их значения в цикле и генерируя соответствующий.

5.4.2 Индивидуальное задание №2

Вариант 1

1 Открыть окно с координатами х1=10, y1=5, x2=70, y2=20.

2 Окрасить его в синий цвет.

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, заменив цвет фона на голубой и символов на красный.

9.Восстановить текстовый режим TextMode(co80).

10. Переместить курсор в центр окна.

11. Вывести сообщение: «ПРОВЕРКА ЗВУКА».

12. Определить и вывести на экран координаты курсора.

13. Установить частоту звука 100 и длительность 350, а затем отключить звук.

14. Восстановить цвета и режимы.

Вставлять функцию Readkey во всех необходимых для контроля местах.

Вариант 4

1. Открыть окно с координатами х1=14, y1=5, x2=66, y2=20.

2. Окрасить его в серый цвет.

3. Установить цвет символов - сиреневый.

4. Вывести на экран фамилии и имена членов строительной бригады, расположив информацию в центре окна.

5. Очистить текущее окно.

6. Установить режим TextMode(co40).

7. Открыть окно с координатами х1=5, y1=3, x2=33, y2=18.

8. Повторить пункты 2-5, заменив цвет фона на зеленый и символов на белый.

9. Восстановить текстовый режим TextMode(co80).

10. Переместить курсор в центр окна.

11. Вывести сообщение: «ПРОВЕРКА КООРДИНАТ И ЗВУКА».

12. Определить и вывести на экран координаты курсора.

13. Установить частоту звука 200 и длительность 450, а затем отключить звук

14. Восстановить цвета и режимы.

Вставлять функцию Readkey во всех необходимых для контроля местах.

Вариант 5

1. Открыть окно с координатами х1=7, y1=3, x2=74, y2=21.

2. Окрасить его в ceрый цвет.

3. Установить цвет символов - красный.

4. Вывести на экран ассортимент колледжной столовой, расположив

Информацию в центре окна.

5. Очистить текущее окно.

6. Установить режим TextMode(co40).

7. Открыть окно с координатами х1=5, y1=3, x2=35, y2=19.

8. Повторить пункты 2-5, изменив цвет фона на голубой и символов на желтый.

9. Восстановить текстовый режим TextMode(co80).

10. Переместить курсор в центр окна.

11. Вывести сообщение: «ПРОВЕРКА ЗВУКА И КООРДИНАТ».

12. Определить и вывести на экран координаты курсора.

13. Установить частоту звука 400 и длительность 450, а затем отключить звук.

14. Восстановить цвета и режимы.

Вставлять функцию Readkey во всех необходимых для контроля местах.

Вариант 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. Установить цвет символов - красный.

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).

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 во всех необходимых для контроля местах.

Вариант 13

1. Открыть окно с координатами х1=11, y1=4, x2=71, y2=22.

2. Окрасить его в зеленый цвет.

3. Установить цвет символов - черный.

4. Вывести на экран фамилии и имена членов бригады, расположив

информацию в центре окна.

5. Очистить текущее окно.

6. Установить режим TextMode(co40).

7. Открыть окно с координатами х1=6, y1=1, x2=34, y2=12.

8. Повторить п.п. 2-5, заменив цвет фона на голубой и символов на красный.

9. Восстановить текстовый режим TextMode(co80).

10. Переместить курсор в центр окна.

11. Вывести сообщение: «ПРОВЕРКАЗВУКА».

12. Определить и вывести на экран координаты курсора.

13. Установить частоту звука 1100 и длительность 350, а затем отключить звук

14. Восстановить цвета и режимы.

Вставлять функцию Readkey во всех необходимых для контроля местах.

Вариант 14

1. Открыт окноскоординатамих1=11, y1=5, x2=66, y2=23.

2. Окрасить его в серый цвет.

3. Установить цвет символов - сиреневый.

4. Вывести на экран фамилии и имена членов музыкальной группы, расположив информацию в центре окна.

5. Очистить текущее окно.

6. Установить режим TextMode(co40).

7. Открыть окно с координатами х1=4, y1=3, x2=33, y2=14.

8. Повторить пункты 2-5, заменив цветфона на черный и символов на белый.

9. Восстановить текстовый режим TextMode(co80).

10. Переместить курсор в центр окна.

11. Вывести сообщение: «ПРОВЕРКА КООРДИНАТ И ЗВУКА».

12. Определить и вывести на экран координаты курсора.

13. Установить частоту звука 300 и длительность 250, а затем отключить звук.

14. Восстановить цвета и режимы.

Вставлять функцию Readkey во всех необходимых для контроля местах.

Вариант 15

1. Открыть окно с координатами х1=7, y1=3, x2=74, y2=21.

2. Окрасить его в ceрый цвет.

3. Установить цвет символов - красный.

4. Вывести на экран фамилии и имена членов футбольной команды, расположив Информацию в центре окна.

5. Очистить текущее окно.

6. Установить режим TextMode(co40).

7. Открыть окно с координатами х1=5, y1=3, x2=35, y2=19.

8. Повторить пункты 2-5, изменив цвет фона на голубой и символов на желтый.

9. Восстановить текстовый режим TextMode(co80).

10. Переместить курсор в центр окна.

11. Вывести сообщение: «ПРОВЕРКА ЗВУКА И КООРДИНАТ».

12. Определить и вывести на экран координаты курсора.

13. Установить частоту звука 400 и длительность 450, а затем отключить звук.

14. Восстановить цвета и режимы.

Вставлять функцию Readkey во всех необходимых для контроля местах.

Вариант 16

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 во всех необходимых для контроля местах.

Вариант 17

1. Открыть окно с координатамих1=7, y1=2, x2=74, y2=23.

2. Окрасить его в черный цвет.

3. Установить цвет символов - белый.

4. Вывести на экран фамилии и имена членов бригады, расположив

информацию в центре окна.

5. Очистить текущее окно.

6. Установить режим TextMode(co40).

7. Открыть окно с координатами х1=4, y1=4, x2=34, y2=19.

8. Повторить пункты 2-5, изменив цвет фона на серый и символов на синий.

9. Восстановить текстовый режим TextMode(co80).

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 во всех необходимых для контроля местах.

Вариант 20

1. Открыть окно с координатами х1=6, y1=4, x2=75, y2=22.

2. Окрасить его в синий цвет.

3. Установить цвет символов - желтый.

4. Вывести на экран фамилии и имена членов бригады, расположив

информацию в центре окна.

5. Очистить текущее окно.

6. Установить режим TextMode(co40).

7. Открыть окно с координатами х1=5, y1=2, x2=38, y2=19.

8. Повторить пункты 2-5, изменив цвет фона на серый и символов - желтый.

9. Восстановить текстовый режим TextMode(co80).

10. Переместить курсор в центр окна.

11. Вывести сообщение: «ПРОВЕРКА ЗВУКА».

12. Определить и вывести на экран координаты курсора.

13. Установить частоту звука 200 и длительность 450, а затем отключить звук

14. Восстановить цвета и режимы.

Вставлять функцию Readkey во всех необходимых для контроля местах.