§ 25 Некоторые специальные процедуры и функции, используемые в языке

1. Для использования возможностей дисплея, клавиатуры, включая управление режимом экрана, расширенные коды клавиатуры, цвет, окна и звуковые сигналы необходимо в начале программы написать предложение использования модуля CRT: USES CRT;

2. Процедуры

CLRSCR - очищает экран и помещает курсор в левом верхнем углу.

DELAY(n) - выполняет задержку на n миллисекунд.

GOTOXY(стол,стр)- прямая адресация курсора в указанные столбец и строку.

SOUND(n) - включает внутренний динамик, n-частота звука в герцах

NOSOUND - выключает внутренний динамик.

TextBackGround(цвет) - определяет фоновый цвет.

TextColor(цвет) - определяет цвет самого символа.

Примечание. Цвет определяется либо числом, либо прямым указанием в соответствии с таблицей:

0 - black (черный) 9 - lightblue (светлоголубой)

1 - blue (синий) 10 - lightgreen (светлозеленый)

2 - green (зеленый) 11 - linghtcyan (светлобирюзовый)

3 - cyan (бирюзовый) 12 - linhtred (светлокрасный)

4 - red (красный) 13 - lightmagenta (св.малиновый)

5 - magenta (малиновый) 14 - yellow (желтый)

6 - brown (коричневый) 15 - white (белый)

7 - lightgray (светлосерый) 128 - blink (мерцание)

8 - darkgray (темносерый)

RANDOM(x) - генерирует целое случайное число от 0 до x-1.

RANDOMIZE

§ 26 Разработка мультика

Пример. На зеленой дорожке у дома стоит человек, на него падает кирпич и человек вскрикивает.

USES CRT;

VAR I,J:INTEGER;

BEGIN

TEXTBACKGROUND(BLUE);CLRSCR;

TEXTCOLOR(GREEN);

{РИСОВАНИЕ ЗЕЛЕНОЙ ДОРОЖКИ В 23 СТРОКЕ, НАЧИНАЯ С 20 ПОЗИЦИИ}

GOTOXY(20,23);

FOR I:=1 TO 20 DO WRITE ('=');

{Рисование стены дома}

FOR I:=1 TO 20 DO

BEGIN

GOTOXY(79,I);

WRITE ('II');

END;

{рисование человечка}

TEXTCOLOR(15);

GOTOXY(30,21); WRITE('O');

GOTOXY(28,22); WRITE('/:::\');

GOTOXY(29,23); WRITE('I I');

{падающий красный кирпич}

TEXTCOLOR(4);

FOR I:=1 TO 21 DO

BEGIN

GOTOXY(30,I);WRITE('Ш');

DELAY(1000);

GOTOXY(30,I); WRITE(' ');

END; {FOR}

{изображение вскрика}

TEXTCOLOR(15); GOTOXY(30,21); WRITE('ОЙ');

SOUND (500); DELAY(500); NOSOUND;

END.

Задания к § 26

1. Сделать программу секундомер, отсчитывающий последние 10 сек перед стартом.

2. Сделать игру «Угадай число». Компьютер загадывает число случайным образом в некотором диапозоне. Человек должен его отгадать. При этом компьютер комментирует попытки словами «Много», «Мало» «Отгадал»

3. Сделать программу «Тараканьи бега»

4. Сценарии мультфильмов ( с бегущей строкой):

• Летящий самолет

• Едущий автомобиль

• Рыбы в аквариуме

• Лодка по морю

• Парашютист, прыгнувший из самолета

• Футболист забивает гол

• Из скворечника вылетает птичка

• Пуля летит в прямоугольник