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

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

Ветвления в Pascal.

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

Div, Mod, сложение, вычитание в Pascal.

Помимо операций умножения и сложения, над целочисленными переменными производятся операции Div (операция целочисленного деления), Mod (вычисление остатка от целочисленного деления), операция вычитания «-».

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

Поиск минимального и максимального элементов массива.

Одной из наиболее распространенных задач обработки массивов является поиск минимального (максимального) элемента.

Использование массивов и функций в качестве формального параметра.

Формальным параметром функции может быть не только переменная скалярного типа, но и идентификатор переменной структурированного типа данных.

В этом уроке мы напишем программу, которая выводит на экран линию из точек. Для этого нам понадобится процедура вывода на экран точки PutPixel.

 Программа, которая выводит на экран линию, состоящую из точек.




Program graphika7;
Uses Graph, Crt;
Var x:Integer;
procedure GraphInterFace;
Var driver, mode, error:Integer;
s: String;
begin
driver:=detect; s:='';
InitGraph(driver,mode,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error);
end;
end;
Begin
GraphInterFace;
While x<=300 Do
Begin
PutPixel(x, 100,14);
x:=x+20;
end;
Repeat Until KeyPressed;
CloseGraph;
end.



В строке №3 записываем переменную «X» , в которой будет храниться значение  координаты X для выводимых точек.

В строке №19 записывается условие. Пока «X» меньше либо равно 300 должно выполняться действие, записанное после слова Do.

Строка №20. После слова Do у нас перечисляется несколько операторов, заключенных в операторные скобки begin…end.

Строка №21. Первое действие, которое будет выполняться в цикле, описано процедурой PutPixel. Данная процедура выводит на экран точку. После слова PutPixel в круглых скобках записываются координаты точки и ее цвет. В нашем примере точка имеет координаты (x, 100). Т.е. координата по оси OX задается с помощью переменной «x». Цвет точки определяется как «14», что соответствует желтому цвету в Паскаль.

Строка №22. В переменную «x» записывается значение, которое на 20 пикселей больше предыдущего значения.
Таким образом, на экран будут выводиться точки. Координата «Y» этих точек равна 100 пикселей и не изменяется (т.е. точки будут расположены на одной горизонтальной линии),  а координата «X» будет меняться от 0 до 300 пикселей с интервалом 20 пикселей.

putpixel

putpixel.


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

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

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


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