Posibnik_Pascal

Зображення дуг, кіл, еліпсів

Перед зображенням деяких із наступних фігур треба встановити стиль лінії чи

зафарбування.

A

10.

Circle(x, y:integer; R:word) – процедура зображає коло з центром

B

у точці (x, y) і радіусом R.

11.

Arc(x, y:integer; φ1,φ2, R:word) – процедура зображає дугу кола з

φ2

φ1

центром у точці (x, y) і радіусом R від кута φ1 до кута φ2. Кути

рахуються від додатного напрямку осі ОХ проти годинникової

O(x,

X

стрілки та вимірюються в градусах. Якщо φ1 = 0, а φ2 = 359, то

буде зображене все коло. На малюнку 2 зображена відповідна

дуга АВ, кут ХОА дорівнює φ1, а кут ХОВ дорівнює φ2, ОА = R.

Мал. 2

12.

PieSlice(x, y:integer; φ1,φ2, R:word) – процедура зображає

годинникової стрілки та вимірюються в градусах. Якщо φ1

= 0 і φ2

= 359, то буде

зафарбований круг.

13. Ellipse(x, y:integer; φ1,

φ2:word,

a, b:word)

–

C

процедура зображає дугу еліпса з центром у точці

M

(x, y) від кута φ1 до кута φ2, a, b – горизонтальна і

вертикальна

осі еліпса.

Кути

рахуються

від

N

φ2

φ1

додатного напрямку осі ОХ проти годинникової

A

X

стрілки та вимірюються в градусах. Якщо φ1 = 0 і

O

B

φ2 = 359, то буде зображений еліпс. На малюнку 3

зображена дуга MCN, О(х, у) – центр еліпса, кут

XOM дорівнює φ1, кут XON дорівнює φ2, АВ = а,

D

CD = b.

Мал. 3

14. FillEllipse(x,

y:integer; a,

b:word) – процедура

Файл

Шрифт

№ шрифту

Назва шрифту

DefaultFont

0

Матричний шрифт 8х8

(за замовчуванням)

trip.chr

TriplexFont

1

Напівжирний шрифт

litt.chr

SmallFont

2

Тонкий шрифт

sans.chr

SansSerifFont

3

Рубаний шрифт

goth.chr

GothicFont

4

Готичний шрифт

Min := 6.234;

{дійсне число}

Str(Min:6:3, SMin);

{перетворення числа Min у рядок SMin }

begin

randomize;

{ініціалізація генератора випадкових чисел}

GrDriver := Detect;

{визначити драйвер автоматично}

InitGraph(GrDriver, GrMode, ‘c\tp\bgi’);

{ініціалізація графічного режиму}

if GraphResult<>0 then

{ініціалізація неуспішна}

begin

writeln(‘Не ініціалізований графічний режим‘); halt(1);

end;

{-----------------------------------

ініціалізація успішна----------------------------------------------------

}

{-----------------------------

РІЗНОКОЛЬОРОВА РАМКА-----------------------------------------------

}

SetBkColor(14);

{вибір кольору фону}

SetLineStyle(CenterLn, 0, ThickWidth);

{вибір стилю лінії}

for i := 1 to 10 do

begin

SetColor(random(15));

{випадковий вибір кольору}

Rectangle(10+i, 10+i, 630 – i, 470 – i);

{прямокутник}

end;

delay(2000);

{затримка}

{-------------------------------------------

КІЛЬЦЕ------------------------------------------------------------

}

ClearDevice;

SetBkColor(11);

{вибір кольору фону}

SetLineStyle(0, 0, 1);

{вибір стилю лінії}

for i := 0 to 25 do

begin

SetColor(random(15));

{випадковий вибір кольору}

Circle(300, 200, 50 – i);

{коло}

end;

delay(2000);

{затримка}

{-------------------------------------------

ПАРАЛЕЛЕПІПЕД----------------------------------------------

}

ClearDevice;

SetBkColor(10);

{вибір кольору фону}

SetColor(5);

{вибір кольору лінії}

SetLineStyle(0, 0, 3);

{вибір стилю лінії}

SetFillPattern(Zakraska, 12);

{вибір стилю зафарбування}

Bar3D(200, 300, 400, 400, 100, true);

{паралелепіпед}

delay(2000);

{затримка}

{-------------------------------------------

ЗАФАРБОВАНА ЗІРКА---------------------------------------

}

ClearDevice;

SetBkColor(14);

{вибір кольору фону}

SetColor(12);

{вибір кольору лінії}

DrawPoly(11, Zirka);

{зірка}

SetFillStyle(8, 1);

{вибір стилю зафарбування}

FloodFill(50, 50, 12);

{зафарбування зірки}

delay(2000);

{затримка}

{-------------------------------------------

ВИВЕДЕННЯ ТЕКСТУ----------------------------------------

}

ClearDevice;

SetBkColor(14);

{вибір кольору фону}

SetColor(12);

{вибір кольору}

for i := 0 to 5 do

begin

SetTextStyle(0, 0, i);

{вибір стилю тексту}

OutTextXY(50, 50*(i+1), ‘Горизонталь‘);

{виведення тексту}

end;

SetTextStyle(0, 1, 2);

{вибір стилю тексту}

OutTextXY(400, 200, ‘Вертикаль‘);

{виведення тексту}

Readln;

{затримка графічного зображення}

CloseGraph;

{закриття графічного режиму}

end.

Program Example2;

uses Graph;

{підключення модулів}

Var

GrDriver, GrMode: integer;

{змінні графічного драйвера і режиму}

begin

i : integer;

GrDriver := Detect;

{визначити драйвер автоматично}

InitGraph(GrDriver, GrMode, ‘c:\bp\bgi’);

{ініціалізація

графічного

режиму}

if GraphResult<>0 then

{ініціалізація неуспішна}

begin

writeln(‘Не ініціалізований графічний режим‘); halt(1);

end;

{-----------------------------------

ініціалізація успішна

----------------------------------------------------

}

SetBkColor(14);

{вибір кольору фону}

SetColor(12);

{вибір кольору}

SetLineStyle(0, 0, 3);

{вибір стилю лінії}

for i := 1 to 200 do

begin

Circle(100+i, 100+i, 50);

{коло}

ClearDevice;

{очищення екрану}

end;

Readln;

{затримка графічного зображення}

CloseGraph;

{закриття графічного режиму}

end.

Program Example3;

uses

Graph, Crt;

{підключення модулів}

Var

GrDriver, GrMode : integer;

{змінні графічного драйвера і режиму}

x, y,

{координати об’єкта під час руху}

dx, dy : integer;

{приріст координат}

prt : pointer;

{вказівник на область пам’яті, де зберігатиметься зображення}

size : word;

{розмір пам’яті, необхідної для збереження зображення}

leftX, leftY,

{координати лівого верхнього і }

rightX, rightY : integer;

{правого нижнього кута прямокутника,}

i : integer;

{який містить зображення}

{параметр циклу}

{----------------------------------

зображення зоряного неба----------------------------------------------

}

procedure Sky;

begin

randomize;

{ініціалізація генератора випадкових чисел}

SetBkColor(1);

{вибір кольору фону}

SetColor(14);

{вибір кольору}

SetLineStyle(0, 0, 1);

{вибір стилю лінії}

for i := 1 to 200 do

end;

Circle(random(640), random(480), 1);

{коло}

{----------------------------------

зображення місяця на небі----------------------------------------------

}

procedure Moon;

begin

SetColor(14);

{вибір кольору}

Arc(450, 100, 270, 90, 50);

{дуга кола}

Arc(390, 100, 320, 40, 80);

SetFillStyle(1, 14);

{вибір стилю зафарбування}

end;

FloodFill(480, 100, 14);

{зафарбування місяця}

{----------------------------

збереження зображення у динамічній пам’яті---------------------------

}

procedure SaveClip;

begin

leftX := 445; leftY := 45;

{координати прямокутника,}

rightX := 505;

rightY := 155;

{який містить місяць}

size := ImageSize(leftX, leftY, rightX, rightY);

GetMem(prt, size);

{виділити пам’ять}

GetImage(leftX, leftY, rightX, rightY, prt^);

{зберегти зображення у пам’яті}

end;

PutImage(leftX, leftY, prt^, xorput);

{приховати зображення}

{--------------------------------------------

рух місяця-------------------------------------------------------

}

procedure Move;

begin

x := leftX;

y := lefty;

{стартові координати}

dx := 10;

dy := 10;

{приріст координат}

repeat

x := x+dx;

{зміна координат місяця}

y := y+dy;

PutImage(x, y, prt^, xorput);

{зобразити фігуру в нових координатах}

delay(2000);

{затримати рух}

PutImage(x, y, prt^, xorput);

{сховати фігуру в старих координатах}

if (x>640) or (x<0) then

{якщо фігура сягнула межі екрану,}

dx := -dx;

{змінити напрям її руху}

else

if (y<0) or (y>480) then dy := -dy;

until

keypressed;

end;

{--------------------------------------------

основна програма

-----------------------------------------------}

begin

GrDriver := Detect;

{визначити драйвер автоматично}

InitGraph(GrDriver, GrMode, ‘c:\tp\bgi’);

{ініціалізація графічного режиму}

Sky;

Moon;

SaveClip;

Move;

end.

у-екрану = у-центру-екрану – масштаб-осі-у * у.

Знайдену точку (х-екрану, у-екрану) зображаємо на екрані.

Program Example4;

{ графік функції у = |sin x| + cos|x|}

uses

Graph, Crt;

Var

GrDriver, GrMode : integer;

scale : real;

{масштаб}

cx, cy : integer;

{координати центру екрану}

{--------------------------------

аналітична функція, графік якої будується---------------------------

}

{----------------------------------------

виведення осей координат----------------------------------------

}

procedure axes;

begin

SetColor(1);

Line(cx, 0, cx, GetMaxY);

{вісь У}

Line(0, cy, GetMaxY, cy);

{вісь Х}

{стрілки на осі Х}

end;

{----------------------------------------

розмітка осей координат------------------------------------------

}

procedure graduir;

var

i, j : real;

{позначки на осях}

begin

s : string[7];

{рядок для виведення позначки на осях}

SetColor(1);

j := 0;

{позначка ‘0’ в центрі координат}

{--------------------------

розмітити вісь Х-------------------------

}

str(-j:6:2, s);

{перетворити числову позначку в текстову}

end;

OutTextXY(round(i)-10, cy+10, s);

{і відобразити її на екрані}

{зобразити позначки на горизонтальній осі}

i := cx+j*scale;

Line(round(i), cy-5, round(i), cy+5);

if j<>0

then

begin

str(j:6:2, s);

{перетворити число на рядок}

end;

OutTextXY(round(i)-10, cy+10, s);

j := j+pi;

until j = 8*pi;

{позначка вичерпано}

{--------------------------

розмітити вісь У-------------------------

}

j := 0;

repeat

i := cx - j*scale;

{розташування позначки на осі У}

Line(cx+3, round(i), cx-3, round(i));

if j<>0

then

begin

str(j:4:1, s);

{перетворення числа на рядок}

str(-j:4:1, s);

{перетворити число на рядок}

{вивести позначки на вертикальній осі в межах від -2 до 0}

OutTextXY(cx+15, round(i)-2, s); {і відобразити її на екрані}

end;

j := j+0.5;

{розмітити вертикальну вісь через кожні 0.5 ділень}

end;

until j = 2;

{діапазон позначок від -2 до 2}

{--------------------------------------------

побудова графіка-----------------------------------------------

}

procedure build_graph;

var

x0, y0, x1, y1 : integer;

{екранні координати кінців відрізка графіка}

begin

x : real;

for x0 := 0 to GetMaxX do

{вибір екранної абсциси}

begin

x := (x0-cx)/scale;

{обчислити х координату графіка}

y0 := round(cy – scale*f(x));

if x0>0 then

Line(x0, y0, x1, y1);

{зобразити відрізок графіка}

x1 := x0;

{зберегти координати кінця попереднього відрізка}

y1 := y0;

end;

end;

{--------------------------------------------

основна програма----------------------------------------------

}

begin

GrDriver := Detect;

{визначити драйвер автоматично}

InitGraph(GrDriver, GrMode, ‘c:\tp\bgi’);

{ініціалізація графічного режиму}

cx := GetMaxX div 2;

{визначити координати центру екрану}

cy := GetMaxY div 2;

SetBkColor(15);

{вибір кольору фону}

SetColor(1);

{вибір кольору}

OutText(‘ input scale (20 … 100):’);

gotoxy(27, 1);

read(scale);

{ввести масштаб}

ClearDevice;

{очистити екран}

axes;

{зобразити осі координат}

graduir;

{розмітити осі}

OutTextXY(10, 30, ‘y=|sin(x)| + cos|x|’); {вивести напис}

end.

build_graph;

{зобразити графік}

1. y = x 2 − x 2 ,

x [− 2, 2] .

5. y = x ln2 x ,

x > 0 .

7.

y =

x 2

.

x 2

+3

9.

y = x ln x,

x > 0

1

10.

y = x

Пі

.

11.

y = x2 e−x .

12.

y = 8cos2 (

x

−12) .

2

№

Вид фігури

Колір фону

Колір ліній

Колір

п/п

штриховки

1

1.

жовтий

фіолетовий

чорний

1.

2

2.

синій

1

1.

світло-сірий

2

блакитний

червоний

2.

2.

білий