Презентация на тему Программирование на языке Паскаль. Графика

Pen ( 1, 255, 0, 0 );
Цвет и

толщина линии

R(red)
0..255

G(green)
0..255

B(blue)
0..255

0 – выключить
1 - включить

R

G

B

R

G

B

Line (x1, y1, x2, y2);
Pen (1, 0, 0, 255);
Point

Pen (1, 255, 0, 0); MoveTo (x1, y1); LineTo (x2, y2);
LineTo (x3, y3);
LineTo (x4, y4);
LineTo (x5, y5);

255, 255, 0);
Rectangle (x1, y1, x2, y2);
Pen (1, 255,

Brush (1, 100, 200, 255);
Fill (x, y);

(20, 30, 600);
MoveTo (x, y);
writeln ('Привет!');
Привет!
(x, y)

размер
10 пикселей
угол
поворота
насыщенность:
400

30о

0, 255);
Brush(1, 0, 0, 255);
Rectangle(100,

y2);
Line( x1+h, y1, x1+h, y2);
Line( x1+2*h, y1,

h := (x2 – x1) / (N + 1);
Rectangle (x1, y1, x2, y2);
x := x1 + h;
for i:=1 to N do begin
Line( round(x), y1, round(x), y2);
x := x + h;
end;

var x, h: real;

x

округление до ближайшего целого

x

c, c );
Fill ( ???, ??? );
серый: R =

Шаг изменения c:

x

(x-1, y1+1)

var c, hc: integer;

hc := 255 div (N + 1);
c := 0;
for i:=1 to N+1 do begin
Line (round(x), y1, round(x), y2);
Brush (1, c, c, c);
Fill (round(x)-1, y1+1);
x := x + h; c := c + hc;
end;

x1+h-a, y2);
Line( x1+2*h, y1, x1+2*h-a, y2);
Line( x1+3*h, y1,

h := (x3 – x2) / (N + 1);
a := x2 – x1;
x := x1 + h;
for i:=1 to N do begin
Line( round(x), y1, round(x-a), y2);
x := x + h;
end;

x

x-a

y1+hy) ;
Line( x1, y1+2*hy, x1+2*hx, y1+2*hy);
Line( x1, y1+3*hy, x1+3*hx,

hx := (x2 – x1) / (N + 1);
hy := (y2 – y1) / (N + 1);
x := x1 + hx; y := y1 + hy;
for i:=1 to N do begin
Line( x1, round(y), round(x), round(y));
x := x + hx; y := y + hy;
end;

построить фигуру, залив все области разным цветом.







"5":

3 sin(x) на интервале от 0 до 2π.
Анализ:
максимальное

масштаб (длина изображения единичного отрезка на экране)
xэ = a

ОХ в пикселях
на экране
оси координат
цикл построения графика


program qq;
const a

(xэ,yэ)
иначе
отрезок в точку (xэ,yэ)
Программа:


начальное значение
выбор варианта действий

логическая

var first: boolean;
...
begin
...
first := True;
while x <= xmax do begin
...
if first then begin
MoveTo(xe, ye);
first := False;
end
else LineTo(xe, ye);
...
end;
end.

интервале [-3,3].







"5": Построить график функции (эллипс)

угол поворота
отличия: координаты, цвет

выполнения некоторых действий.
Применение:
выполнение одинаковых действий в разных местах программы
разбивка

в них общее (размеры, форма, угол поворота) и отличия

(x+100, y)

(x, y-60)

procedure Tr( x, y, r, g, b: integer);
begin
MoveTo(x, y);
LineTo(x, y-60);
LineTo(x+100, y);
LineTo(x, y);
Brush(1, r, g, b);
Fill(x+20, y-20);
end;

заголовок

тело процедуры

координаты

цвет

параметры

Tr(100, 100, 0, 0, 255);
Tr(200, 100, 0,

(100,100)

100

60

процедура

фактические параметры

вызовы процедуры

procedure Tr( x, y, r, g, b: integer);
begin
...
end;

формальные параметры

перечисляются формальные параметры, они обозначаются именами, поскольку могут меняться
при

procedure Tr( x, y, r, g, b: integer);

Tr (200, 100, 0, 255, 0);

x

y

r

g

b

тип
если однотипные параметры стоят рядом, их перечисляют через запятую
внутри

procedure A (x: real; y: integer; z: real);

procedure A (x, z: real; y, k, l: integer);

процедуры не имеют к ним доступа


program qq;
procedure A(x,

локальные переменные

переменных.
Особенности:
надо, чтобы изменения, сделанные в процедуре, стали известны вызывающей

program qq;
var x, y: integer;





begin
x := 1; y := 2;
Exchange ( x, y );
writeln ( ’x = ’, x, ’ y = ’, y );
end;

procedure Exchange ( a, b: integer );
var c: integer;
begin
c := a; a := b; b := c;
end;

эта процедура работает с копиями параметров

x = 1 y = 2

несколько значений,
Запрещенные варианты вызова
Exchange ( 2, 3 );

procedure Exchange ( a, b: integer );
var c: integer;
begin
c := a; a := b; b := c;
end;

var

параметры могут изменяться

процедуры, построить фигуру.

один или несколько таких же объектов.
У попа была

Сказка о попе и собаке

Примеры:

Сказка о попе и собаке:

Факториал:

если

если

Рисунок с рекурсией:

ствол и отходящие от него симметрично два дерева Пифагора

6 уровней:

уровней станет равно нулю!

(x1, y1)
(x0, y0)





α
α+45o

α-45o
L
x1 = x0 +

наклон "дочерних" деревьев

α + π/4
α – π/4

рекурсивные вызовы

закончить, если N=0

Рекурсивной называется процедура, вызывающая сама себя.

угол α

длина ствола

число уровней

x0

y0

Pifagor (250, 400, 2*pi/3, 150, 8);

Используя рекурсивную процедуру, построить фигуру:

Задания

внутри синего квадрата 400 на 400 пикселей слева направо

Проблема: как изобразить перемещение объекта на экране?
Привязка: состояние объекта задается координатами (x,y)
Принцип анимации:
рисуем объект в точке (x,y)
задержка на несколько миллисекунд
стираем объект
изменяем координаты (x,y)
переходим к шагу 1

stop: boolean;
k,code,i: integer;
begin
stop :=

если что-то произошло...

что произошло?

если нажата клавиша с кодом 27 (Esc), то стоп

True, если надо остановиться

запуск цикла

boolean);
begin
if flag then
Brush(1, 255, 255, 0)

(x, y)

(x+20, y+20)

Идеи
одна процедура рисует и стирает
стереть = нарисовать цветом фона
границу квадрата отключить (в основной программе)

рисовать (True) или нет (False)?

рисуем: цвет кисти – желтый

стираем: цвет кисти – синий

только заливка!

integer;
stop: boolean;
procedure Draw(x,y: integer; flag: Boolean);

процедура

начальные условия

выход по клавише Esc

выход при касании границы

синий фон

ждем 10 мс

отключить границу

"5": Два квадрата двигаются в противоположном направлении и отталкиваются

Задания

клавишами-стрелками. Коды клавиш:
влево – 37 вверх – 38 Esc – 27
вправо

if {было событие} then begin
if {нажата клавиша} then begin
{получить код клавиши - code}
if code = 37 then x := x – 1;
if code = 38 then y := y – 1;
if code = 39 then x := x + 1;
if code = 40 then y := y + 1;
if code = 27 then stop := True;
end;
end;

IsEvent

Event ( k, code, i);
if k = 1 then begin

case code of
37: x := x – 1; 38: y := y – 1;
39: x := x + 1; 40: y := y + 1;
27: stop := True;
end;

если было нажатие на клавишу, …

stop: boolean;



begin
...
repeat
Draw(x, y, True);

procedure Draw(x,y: integer; flag: Boolean);
begin
...
end;

if IsEvent then begin
...
end;

процедура

основной цикл

обработка событий

клавиша, квадрат перерисовывается через каждые 20 мс (мигание!)
Что хочется:

while not IsEvent do;

stop: boolean;




begin
...
repeat
Draw(x, y, True);

procedure Draw(x,y: integer; flag: Boolean);
begin
...
end;

Draw(x, y, False);
Event(k, code, i);
...

while not IsEvent do;

процедура

рисуем квадрат

ждем события

только теперь стираем

может выйти за границы синего квадрата:




"5": Квадрат

Задания

по окружности, как изменять координаты?
Решение: использовать в качестве независимой

(x0, y0)

α

L

(x, y)

x = x0 + L·cos(α)
y = y0 – L·sin(α)

10;
begin
if flag then
Brush(1, 100, 100, 255)

рисовать (True) или нет (False)?

рисуем: цвет кисти – голубой

стираем: цвет кисти – черный

только заливка!

радиус Земли

(x-r, y-r)

(x,y)

(x+r, y+r)

{ радиус Солнца}
L = 150;

procedure Draw(x, y: integer; flag: Boolean);
begin
...
end;

Brush(1, 255, 255, 0);
Ellipse(x0-rSun, y0-rSun, x0+rSun, y0+rSun);
a

залить фон черным

рисуем Солнце

новые координаты

поворот на ha

ждем 100 мс

if IsEvent then begin
Event(k, code, i);
if (k = 1) and (code = 27) then stop := true;
end;