Похожие презентации:
Програмування на мові Паскаль. Графіка (тема 7)
1.
Програмування намові Паскаль
Тема 7. Графіка
2.
3.
Система координатX
(0,0)
y
x
Y
(x,y)
4.
колір5.
SetPenColor(clRed);SetPenWidth(3);
Для замкнутих областей:
Brush.Color:=clNavy;
6.
7.
8.
Прозорість : від 0 до 2559.
10.
СвітлофорBrush.Color:=clNavy;
Rectangle (50, 20, 110, 220);
Rectangle (70, 220, 90, 330);
Rectangle (50, 330, 110, 350);
Brush.Color:=clRed;
Circle(80,60,20);
Brush.Color:=clYellow;
Circle(80,120,20);
Brush.Color:=clGreen;
Circle(80,180,20);
11.
Font.Color:=clRed;Font.Size:=20;
TextOut(350,400,' Triangle ');
Збереження малюнка:
SaveWindow(‘my_ex.bmp');
12.
Приклад(200, 50)
(100, 100)
(300, 200)
13.
Побудова графіків функційЗадача: побудувати графік функції y = 3 sin(x) на
інтервалі від 0 до 2π.
Аналіз:
максимальне значення ymax = 3 при x = π/2
мінімальне значення ymin = -3 при x = 3π/2
Проблема: функція задана в математичній системі
координат, будувати потрібно на екрані, вказуючи
координати в пікселях.
14.
Перетворення координатМатематична
система координат
Екранна система
координат (пікселі)
Y
(0,0)
x
(0,0)
(x,y)
y
b
a
xе
yе
X
(xе,yе)
зображення одиничного
відрізка на екрані)
xе = a + kx
yе = b - ky
k – масштаб (довжина
15.
Програмана екрані
цикл побудови
графіка
program qq;
2π
const a = 50; b = 200; k = 50;
xmin = 0; xmax = 6.2832;
var x, y, h: real;
h – крок зміни x
xe, ye, w: integer;
w – довжина осі ОХ в пікселях
begin
w := round((xmax - xmin)*k);
Line(a-10, b, a+w, b);
осі координат
Line(a, 0, a, 2*b);
x := xmin; h := 0.05;
while x <= xmax do begin
y := 3*sin(x);
xe := a + round(k*x);
ye := b - round(k*y);
Putpixel (xe, ye, clNavy);
x := x + h;
end;
end.