Я готуюсь до курсу інформатики. Алгоритмізація та програмування

3 (Cyan) — блакитний

11 (LightCyan) — світло-блакитний

4 (Red) — червоний

12 (LightRed) — світло-червоний

5 (Magenta) — фіолетовий

13 (LightMagenta) — світло-фіолетовий

6 (Brown) — коричневий

14 (Yellow) — жовтий

7 (LightGray) — світло-сірий

15 (White) —білий

Щоб надати виведеним символам ефекту мерехтіння, при встановленні кольорів вказується константа Blink (або 16). Мерехтіння буде підтримуватися доти, поки не відбудеться установка кольору символів, що виводяться, без мерехтіння. Наприклад:

TextColor(Yellow+Blink); Write(‘Жовті символи, що миготять’);

TextColor (12+16) ; Write (‘Світло-червоні символи, що миготять’) ;

TextColor(6); Write(‘Коричневі символи’).

Існують також процедури, що керують яскравістю зображення. Всі вони діють до їх скасування, тобто до встановлення іншого режиму:

Low Video — встановлює режим мінімальної яскравості світіння виведених на екран символів.

Norm Video — встановлює режим нормальної яскравості світіння виведених на екран символів. Цей режим встановлюється автоматично при ініціалізації модуля Crt.

High Video — встановлює режим максимальної яскравості світіння. Існує можливість у будь-який момент роботи програми використовувати для виведення не весь екран, а деяку його частину, що називається вікном. Розмір вікна визначається користувачем, але вікно не може перевищувати розміру екрана.

Для організації вікон у Паскалі використовується процедура:

Window(X1, Y1, Х2, Y2);

де X1, Y1 — координати лівого верхнього, а Х2, Y2 — правого нижнього кута вікна. Розмір максимального вікна (повний екран)— (1,1,80,25), мінімального — один стовпчик на один рядок.

На екрані можуть знаходитися кілька вікон, але в поточний момент активним може бути тільки одне з них, і всі дії, які виконуються користувачем, стосуються цього поточного вікна.

Для формування складного зображення на екрані користувач має можливість переводити курсор у будь-яку позицію екрана. Для цього мовою Паскаль передбачені такі процедури і функції:

GoToXY(X, Y:byte) — процедура переводить курсор у задану позицію екрана з координатами X (стовпчик), Y (рядок); верхній лівий кут екрана має координати (1,1), а правий нижній у стандартному режимі (80,25);

WhereX, WhereY — функції для одержання відповідно значень X- або Y- координати курсору щодо поточного вікна. Діапазон значень, що повертаються, визначається розмірами поточного вікна або повного екрана.

Завдання учням: Написати фрагмент програми, що виведе в середині екрана прізвище учня червоним кольором, а у наступному рядочку під прізвищем — ім’я жовтим кольором. Прізвище необхідно вивести підвищеною яскравістю, а ім’я — з мерехтінням. Колір тла має бути синім,

program task;

uses crt;

begin

textbackground(blue); {встановлення кольору тла}

clrscr; {очищення екрана}

highvideo; {встановлення підвищеної яскравості зображення}

textcolor(red);{встановлення кольору виведення}

gotoxy(35,12); {переведення курсору в задану тонку - центр екрана}

writeln(‘Ivanov’); {виведення прізвища}

normvideo;

textcolor(yellow+blink); {встановлення хольору виведення зображення з мерехтінням}

gotoxy(35,13);

writeln(‘Petro’);