Практическая работа программирование в среде TURBO PASCAL. Управление экраном.
учебно-методическое пособие по информатике и икт (9 класс) на тему

0 – чёрный

1 – тёмно синий

2 – тёмно зелёный

3 – бирюзовый

4 - красный

5 - фиолетовый

6 - коричневый

7 – светло серый

8 – тёмно серый

9 - синий

10 – светло зелёный

11 – светло бирюзовый

12 - розовый

13 -  малиновый

14 - жёлтый

15 – белый

Вывод на экран окна.

Window (Xl, Уl, Х2, У2).

Здесь Хl, У1 − координаты левого верхнего угла выводимого окна,

Х2, У2− координаты правого нижнего угла.

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

Если на экране определено окно, все координаты определяются относительно границ окна. Исключением являются координаты процедуры Window установки границ окна, которые всегда задаются относительно границ экрана.

Перемещение курсора в заданную точку экрана

В режиме текстового вывода используются следующие координаты экрана: верхний левый угол экрана имеет координаты 1:1, горизонтальная координата возрастает слева направо, вертикальная сверху вниз.

Gotoxy(8, 10) 

Перемещение курсора в 8-й столбец и 10-ю строку экрана.  

Пример

Program text;

Uses Crt;

Begin

Textbackgrpound(3);

Clrscr;

Gotoxy(8,10);

Textcolor(5);

Write(’Hello’);

Readkey;

end.

Пример

Window(20,8,40,20) ;                                

Textbackground(l);                {красим окно}

Clrscr;                                            {выводим окно}

Текст ранее созданной программы нахождения площади комнаты

PROGRAM prim;

VAR dl,sh,pl:real;

BEGIN

Writeln('dlina komaty');

read(dl);

Writeln('shirina komaty');

read(sh);

PL:=Dl* Sh;

Writeln('ploshad=',pl:6:2);

END.

Внести изменения в текст программы, в связи с новыми условиями:

Вычислить стоимость покрытия комнаты керамической плиткой, площадь одной плитки = 0,5 м3.

Добавить в текс программы:

1. Функцию очистки экрана;
2. Функцию красного цвета символов для команд ввода;
3. Команду ввода стоимости 1 плитки;
4. Изменить формулу;
5. Функцию синего цвета символов для команды вывода;
6. Изменить команду вывода.