nd;
end
else Writeln ('Graphics error:', GraphErrorMsg (ErrCode));
Settextstyle (0,0,3); {встановлюємо стиль шрифту}
cleardevice;
setcolor (red);
OuttextXY (200,240, 'Rejs zavershen! '); {виводимо напис}
readln;
CloseGraph;
end.
Завдання 4. Анімація - прямоугольнічек червоного кольору робить повний шлях по екрану монітора!
program kv;
uses
crt, graph;
var
x, y, dx, dy, w, h, driver, mode: integer;
begin
initgraph (driver, mode, 'G :/ BP/BGI');
if graphresult <> 0 then begin
writeln ('none');
halt
end;
dx: = 1;
dy: = 0;
w: = 100;
h: = 10;
repeat
setfillstyle (1, black);
bar (x, y, x + w, y + h);
x: = x + dx;
y: = y + dy;
setfillstyle (1, red);
bar (x, y, x + w, y + h);
delay (100);
if (X + w> = getmaxx) and (y <= 0) then
begin
dx: = 0;
dy: = 1;
end
else
if (Y + h> = getmaxy) and (x + w> = getmaxx) then
begin
dx: = -1;
dy: = 0;
end
else
if (X <= 0) and (y + h> = getmaxy) then
begin
dx: = 0;
dy: = -1;
end
else
if (Y <= 0) and (x <= 0) then
begin
dx: = 1;
dy: = 0;
end;
until keypressed;
closegraph;
end.
Завдання 5. Люди часто просять намалювати самий звичайний малюнок з різних тем ... наприклад намалюю "програміста"
Program bugalteria;
Uses crt, graph;
Var gd, gm: integer;
begin
clrscr;
Detectgraph (Gd, gm);
Initgraph (Gd, gm, 'C: tp7');
{Замальовка столу}
Bar (120,330,360,360);
Bar (180,360,330,480);
{Замальовка комп'ютера}
Line (180,240,180,330);
Line (180,270,210,330);
Line (172,210,202,300);
Line (180,210,210,300);
Line (210,300,202,300);
Line (180,210,172,210);
Line (270,322,270,330);
Line (270,322,330,330);
{Замальовка стільця}
Bar (420,405,510,420);
Bar (456,420,480,480);
{Замальовка бухгалтера працюючого за комп'ютером}
Line (510,405,540,300);
Line (334,480,390,390);
Line (390,390,510,390);
Line (360,480,420,405);
Line (510,390,450,240);
Line (480,390,420,300);
Line (420,300,430,240);
Line (450,270,330,300);
Line (330,300,310,310);
Circle (435,195,40);
Readln
end.
Завдання 6. Побудувати один прямокутник і заповнити його випадково розташованими точками (у межах 100 штук) і другий прямокутник у якому проведені випадкові лінії (Різними кольорами)
program приклад;
uses graph, crt;
var gd, gm, xl, yl, x2, y2, x, y, x3, y3, i, errcode: integer;
begin
gd: = 0; gm: = 0; p> InitGraph (Gd, gm, '');
[побудова першого прямокутника]
x1: = 10; y1: = 10; x2: = 200; y2: = 200;
rectangle (x1, y1, x2, y2);
[висновок випадкових точок]
for i: = 1 to 100 do
begin
x: = random (x2-xl) + x1;
у: = random (y2-yl) + y1;
putpixel (x, y, 2) p> end;
[побудова другого прямокутника]
xl: = 210; yl: = 210; x2: = 400; y2: = 400;
rectangle (xl, yl, x2, y2);
[висновок випадкових ліній]
for i: = l to 100 do
begin
setcolor (random (15));
x: = random (x2-xl) + xl; p> y: = random (y2-yl) + yl; p> x3: = random (x2-xl) + xl; p> y3: = random (y2-yl) + yl ;
Iine (x, y, x3, y3),
end;
while not keypressed do;
closegraph
end.
Завдання 7. Зобразити лінії різного стилю і товщини
program приклад;
[висновок ліній різного виду]
uses graph, crt;
var gd, gm: integer;
begin
gd: = 0; gm: = 0; initgraph (gd, gm, '');
line (0, 0, 300, 0); [лінія звичайного зразка]
setlinestyle (l, 0, l); line (0,20,300,20); [лінія з точок]
setlinestyle (2,0, l); line (0,40,300,40); [пунктирна лінія]
setlinestyle (3,0,1); line (0,60,300,60); [штрихова лінія]
setlinestyle (0,0,3); line (0,80,300,80); [суцільна товста лінія]
while not keypressed do;
closegraph end.
Завдання 8. Побудувати окружність і описати навколо неї квадрат
program приклад;
[квадрат і вписана окружність]
uses graph, crt;
var gd, gm, x, y, r, x1, y1, x2, y2: integer; xa, ya: word;
begin
...
