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

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

Функции LENGTH и CONCAT.

Функция Length возвращает в качестве значения длину строки. Например, если в строковой переменной «stroka» записано слово «Pascal», то Length(stroka) будет равно 6. Эта операция аналогична операции Ord(stroka[0]), которую мы разбирали в 1-м уроке. ...

Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

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

Разветвляющийся вычислительный процесс.

Если вычислительный процесс зависит от определенных условий и реализуется по одному из нескольких заранее предусмотренных направлений, он называется разветвляющимся вычислительным процессом, а каждое ...

Итерационные циклы.

Если число повторений заранее не известно и решение о завершении цикла принимается на основе анализа некоторого условия, то такой повторяющийся вычислительный процесс называется итерационным циклом.

...

Процедура MoveRel (x,y) перемещает текущий указатель на расстояние x и y.
Процедура OutText (‘’) выводит текст на экран в графическом режиме. Текст заключается в кавычки и круглые скобки.

 Процедура MoveRel и OutText.





Program Graphika6;
Uses Graph;
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;
MoveTo(100,100);
OutText('PASCAL');
MoveRel(200,200);
OutText('PASCAL');
MoveRel(200,200);
OutText('PASCAL');
ReadLn;
CloseGraph;
End.



В строке №19 ставим текущий указатель в точке с координатами (100,100).

В строке №20 записываем процедуру OutText. Эта процедура выводит на экран текст, который указывается в скобках и кавычках после слова OutText. На экране текст будет выводиться в том месте, где установлен текущий указатель. Причем текущий указатель перемещается на конец текста. Итак, в строке №20 выводим текст («PASCAL»). Соответственно текст у нас выводится на экране с координатами (100,100).

В строке №21 записываем процедуру MoveRel(200,200). Теперь текущий указатель переместится на 200 пикселей по оси X и на 200 пикселей по оси Y т.е. в точку (300,300).

В строке №22 выводим тот же текст. Теперь он выведется на экране в точке с координатами (300,300).
То же самое происходит в строках №23 и №24. Текст выводится уже с координатами (500,500).

moverel outtext

moverel outtext.


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

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

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


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