Управление положением выводимой информации

Program SecondErasesFirst1;

{заголовок программы, имя программы – SecondErasesFirst1}

Uses {начало раздела подключения модулей)

CRT; {подключение модуля CRT)

Var {начало раздела описания переменных}

X, Y:Integer; {описание двух переменных типа}

Integer с именами Х и У}

Begin {начало раздела описания логики программы}

TextColor(White);{установка белого цвета в качестве текущего для текста}

TextBackGround(Black) ;

{установка черного цвета в качестве текущего для фона}

WriteLn; {установка каретки в новую строку}

Write('Первая строка'); {вывод первой строки}

Х:= WhereX;{заносим горизонтальную координату

каретки в переменную X}

Y:= WhereY; {заносим вертикальную координату каретки в переменную Y}

Х: = Х - 2; {уменьшаем значение переменной Х на 2. Данный оператор присваивания работает в два этапа – вычисление значения выражения Х-2 и присвоение этого значения переменной X}

GotoXY(X,Y); {устанавливаем каретку в новое положение – на два символа левее предыдущего}

Write('Вторая строка'); {вывод второй строки}

ReadKey;{программа приостанавливается до нажатия пользователем клавиши}

ClrScr; {очистка экрана}

End. {Конец раздела описания логики программы}.

Результатом работы программы будет строка текста «Первая строВторая строка», выведенная с новой экранной строки, вне зависимости от того, где находился курсор до начала работы программы.

Рассмотрим фрагмент программы, в котором определяются координаты каретки и осуществляется ее перенос на новое место:

X := WhereX;{получение горизонтальной координаты каретки}

Y:= WhereY;{получение вертикальной, координаты каретки}

X:= Х - 2; {уменьшение значения переменной, в которой хранится горизонтальная координата, на 2}

GotoXY(X, Y); {перемещение каретки в новое положение}

Попробуем упростить, объединив получение горизонтальной координаты и ее уменьшение:

X := WhereX - 2; {получение горизонтальной координаты каретки с одновременным ее уменьшением на 2}

Y := WhereY;{получение вертикальной координаты каретки}

UifiotoXY(X, Y); {перемещение каретки в новое положение}

Теперь переменной X присваивается не значение, возвращаемое функцией WhereX, как в предыдущем варианте, а сразу же необходимая новая горизонтальная координата каретки (уменьшенная на 2). Данный фрагмент можно упростить еще больше, используя в качестве параметров процедуры GotoXY не переменные X и Y, а сразу же значения, которые им присваивались:

GotoXY(WhereX - 2,WhereY);

{перемещение каретки в новое положение, смещенное по горизонтали влево на два символа относительно предыдущего положения}

Значения выражений, использованных в качестве параметров процедуры GotoXY, будут автоматически рассчитаны при вызове этой процедуры и, соответственно, данный фрагмент по своей функциональности не будет отличаться от начального варианта, однако он имеет некоторые плюсы. Рекомендуется всегда пытаться упрощать программы, уменьшая количество строк. Это приводит к повышению читабельности программы и дает более широкую свободу действийоптимизатору, встроенному в компилятор. В Данном случае мы получили возможность отказаться от использования переменных х и Y, в которых ранее хранили промежуточные значения параметров для процедуры GotoXY. Теперь, проблему хранения этих значений решает компилятор. Скорее всего, новый вариант программы будет работать быстрее, так как промежуточная информация может быть размещена программой в регистрах процессора, которые также являются ячейками памяти, но доступ к ним происходит в сотни раз быстрее, чем к ОЗУ.

В результате упрощения программа принимает следующий вид.