Функции LENGTH и CONCAT.

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

Ввод логических переменных с клавиатуры.

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

Abs, Sqr в Pascal.

Abs - функция языка Паскаль, которая вычисляет модуль числа.
Sqr - функция языка Паcкаль, которая возводит число в квадрат.

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

Сортировка одномерного массива. Метод пузырька.

Сортировка — перестановка местами объектов в определенном порядке. Известно несколько сотен алгоритмов сортировки и их модификаций.

Циклы с параметром. Оператор FOR.

Эти циклы организуются в программах, где заранее известно число повторений. При этом повторное выполнение сопровождается изменением управляющего параметра (переменной цикла).

В этом уроке мы напишем программу, которая выводит на экран линию из точек. Для этого нам понадобится процедура вывода на экран точки 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.


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

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

   ГлавнаяПаскальГрафика в Паскаль