Перевод числа из десятичной системы счисления в шестнадцатеричную.

Напишем программу, которая вводит с клавиатуры целое число в диапазоне от 0 до 15 и преобразует его к шестнадцатеричной системе счисления. Напомню, что в шестнадцатеричной системе счисления числа в диапазоне от 0 до 9 соответствуют таким же числам в ...

Тип данных Char. Функции Ord, Chr.

Мы с Вами уже рассмотрели типы данных, которые позволяют хранить и обрабатывать целые числа (integer) и дробные числа (real). Теперь рассмотрим тип данных, позволяющий хранить и обрабатывать различные символы. Символы – это все буквы и значки, ...

Использование Var, Integer, Readln.

Процедура Readln используется не только для задержки экрана. Ее основная задача - ввод данных с клавиатуры. В этой статье мы научимся вводить числа с клавиатуры, и потом выводить их на экран. Для этого нам будет необходимо познакомиться с разделом ...

Циклы и массивы

Алфавит языка Паскаль.

Алфавит и словарь языка программирования Паскаль. Программа формируется из предложений, состоящих из лексем и разделителей, которые в свою очередь формируются из конечного набора литер, образующих ...

Программирование вычислительных процессов.

Решение задачи на ЭВМ — это сложный процесс, в ходе которого пользователю приходится выполнять целый ряд действий, прежде чем он получит интересующий его результат.

Функция GetX возвращает значение, которое содержит текущие координаты указателя по оси X.
Функция GetY возвращает значение, которое содержит текущие координаты указателя по оси Y.

 Использование функций GetX и GetY.




Program Graphika24;
Uses Graph;
var x,y:integer;
Procedure Graphinterface;
Var  gd, gm, error:Integer;
s:String;
Begin
gd:=detect;
s:='';
Initgraph(gd,gm,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error)
end
end;
begin
Graphinterface;
settextstyle(4,0,4);
outtext('Язык ');
x:=getx;
y:=gety;
outtextxy(0,50,'Pascal');
outtextxy(x,y,'программирования');
readln;
closegraph
end.




В строке №3 записываем переменные «x» и «y» для хранения значений функций GetX и GetY.

В строке №21 выводим на экран слово «Язык». Теперь текущий указатель сместился в конец этого слова. Для того чтобы запомнить координаты текущего указателя применяются функции GetX и GetY.

В строке №22 присваиваем переменной «x» значение функции GetX, т.е. координату текущего указателя по оси X.

В строке №23 присваиваем переменной «y» значение функции GetY, т.е. координату текущего указателя по оси Y.

В строке №24 выводим на экран текст «Pascal». Этот текст будет находиться на 50 пикселей ниже слова «Язык».

Строка №25. Предположим, что по условия задачи нам необходимо вывести слово «программирование» справа от слова «Язык». Это можно сделать с помощью процедуры OutTextXY, которая выводит текст в точке с координатами X и Y. При этом координата Y должна быть равна 0, а вот координату X придется подбирать, чтобы новый текст не залез на старый, а находился чуть подальше. Для того чтобы избежать ситуации, когда необходимо подбирать координаты, используются функции GetX и GetY. Для того чтобы вывести слово «программирование» рядом со словом «Язык», указываем в качестве координат для процедуры OutTextXY (в строке №25) переменные «x» и «y» (которым присвоены координаты текущего указателя после вывода на экран слова «Язык»). 

Funkcii GetX i GetY

Funkcii GetX i GetY.


Предыдущая статья : Процедура Str.

Оглавление : Уроки Паскаль. Графика.

Следующая статья : Процедура SetViewPort.


Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальГрафика в ПаскальПроцедура SetUserCharSize.