6. Самостоятельные задания

• Дано натуральное число n. Найти сумму ряда: 2 + 22 + 222 + ... + 22...2 (n двоек)

Указание: каждый элемент этого ряда можно представить в виде элемента рекуррентной последовательности. Вам нужно найти рекуррентное соотношение и сложить первые n элементов последовательности.

• Дано натуральное число n и целое чиисло s из отрезка [0, 9]. Найти сумму:

(s) + (ss) + (sss) + ... + (sss...s) (последне число состоит из n цифр s).

• Найдите первые 10 элементов рекуррентной последовательности, которая задана таким соотношением: a₁=1 a₂=2 a_i=i + a_i-1 + a_i-2

• Найти сумму первых 10 элементов последовательности из предыдущего задания.

• Составьте функцию, которая проверит, является ли введённое число числом Фибоначчи.

• Найдите первые 22 элемента последовательности, в которой первые два элемента равны 1, а каждый последующий чётный по счёту элемент – сумме двух предыдущих, а каждый нечётный – произведению двух предыдущих.

6. Оформление программ

Turbo Pascal 7.0 предоставляет программисту массу возможностей по оформлению программ, как в текстовом режиме, так и в графическом. Для того, чтобы начать использовать все эти возможности в собственной программе, надо подключить к ней соответствующий модуль.

1. Понятие модуля

Модуль – это библиотека, содержащая процедуры и функции. Каждый модуль представляет собой отдельный файл и может быть использован в разных программах пользователя. Для этого его надо подключить после заголовка программы в разделе uses (см. программы ниже). Turbo Pascal 7.0 включает 10 различных модулей. С одним мы уже познакомились, это модуль System, в котором содержатся все стандартные процедуры и функции языка Паскаль, такие, как write, read, sin, cos и др. Этот модуль подключается автоматически к каждой программе. Сейчас мы рассмотрим модуль crt. В нём содержится подпрограммы управления цветом выводимых символов, организации простых звуковых эффектов, опроса клавиатуры, управление курсором.

2. Управление цветом

Для того чтобы изменить цвет выводимых на экран символов (цвет тона) можно использовать процедуру

TextColor (color);

Где Color – переменная целого типа, в которой хранится номер цвета тона. Номера и названия цветов приведены в таблице:

Таблица 8. Компьютерная радуга

Тёмные цвета	№	Имя	Яркие цвета	№	Имя
Черный	0	Black	Тёмно-серый	8	DarkGray
Синий	1	Blue	Светло-синий	9	LightBlue
Зелёный	2	Green	Светло-зелёный	10	LightGreen
Голубой	3	Cyan	Светло-голубой	11	LightCyan
Красный	4	Red	Светло-красный	12	LightRed
Фиолетовый	5	Magenta	Светло-фиолетовый	13	LightMagenta
Коричневый	6	Brown	Жёлтый	14	Yellow
Светло-серый	7	LightGray	Белый	15	White

Для включения нужного цвета нужно написать соответствующий ему номер, либо непосредственно английское название цвета! При желании можно выводить на экран мигающие фразы. Для этого надо установить цвет с номером на 128 (blink) больше, чем необходимый цвет. Например, для переключения на мигающие жёлтые буквы можно написать:

TextColor (14+128); или TextColor (Yellow+blink);

Можно ещё менять цвет фона (“бумаги”), на который выводятся буквы. Для этого используют процедуру

TextBackGround (color);

которая используется аналогично TextColor, но значение color может быть только от 0 до 7. Для того, чтобы окрасить весь экран в один цвет – цвет фона – надо сначала установить этот цвет фона, а потом воспользоваться процедурой очистки экрана

ClrScr;

Эта процедура полностью очищает экран и перемещает курсор в левый верхний угол экрана.

Используя все эти процедуры можно достаточно красочно оформлять свои программы! Следующая программа демонстрирует разные возможности:

Program Color_Demo;

uses crt;

begin

TextBackGround (1); { Синий фон }

ClrScr; { Весь экран стал синим }

TextColor (2); { Зелёные “чернила” }

writeln (’I am green line! ’);

TextColor (LightGreen); { Светло-зелёные }

writeln (’I am also green line, but I am better!’);

TextColor (LightRed+128); { Светло-красные, мигающие! }

writeln (’And I am very nice line!’);

end.