
- •Лекція №13. Модулі.
- •Interface
- •Vvod(X,3,3);
- •Vvod(y,3,3);
- •Vivod(z,3,3);
- •7.2. Стандартні модулі.
- •Var X,y,z:integer;
- •Var X,y:integer;
- •Var index, smeh, kolstrok, dlstroki, pam: word;
- •Var I,k:integer;
- •X,y:real;
- •Var n,X,x1,y,y1,x2,y2,z,q,g,V,g1,v1,g2,v2:integer;
- •I,j,k:byte;
- •Var r:string;
- •InitGraph(GraphDriver,GraphMode,PathToDriver);
- •Interface
- •Implementation
- •Var r:string;
Interface
uses graph,crt;
const
Triangle: array[1..8] of PointType = ((X:10; Y: 22),(X: 15; Y: 24),
(X: 5; Y: 26),(X: 5; Y: 37), (X: 30; Y: 37),(X: 30; Y: 26),
(X: 20; Y: 24),(X:25; Y: 22));
Triangle1: array[1..8] of PointType = ((X: 10; Y: 22),(X: 15; Y: 24),
(X: 5; Y: 26),(X: 10; Y: 37), (X: 25; Y: 37),(X: 30; Y: 26),
(X: 20; Y: 24),(X:25; Y: 22));
Triangle2: array[1..10] of PointType = ((X: 10; Y: 17),(X: 15; Y: 19),
(X: 15; Y: 20),(X: 3; Y: 22),(X: 6; Y: 37), (X: 29; Y: 37),
(X: 32; Y: 22),(X: 20; Y: 20),
(X: 20; Y: 19),(X:25; Y: 17));
Triangle3: array[1..14] of PointType = ((X: 15; Y: 12),(X: 10; Y: 14),
(X: 10; Y: 16),(X: 15; Y: 18),(X: 15; Y: 20),(X: 3; Y: 22),
(X: 8; Y: 37), (X: 40; Y: 37),(X: 45; Y: 22),(X: 33; Y: 20),
(X: 33; Y: 18),(X:38; Y: 16),(X: 38; Y: 14),(X: 33; Y: 12));
Triangle4: array[1..33] of PointType = ((X: 15; Y: 10),(X: 10; Y: 12),
(X: 10; Y: 14),(X: 15; Y: 16),(X: 15; Y: 18),(X: 13; Y: 19),
(X: 10; Y: 20),(X: 8; Y: 21),(X: 6; Y: 22),(X: 4; Y: 23),
(X: 3; Y: 24),(X: 2; Y: 26),(X: 2; Y: 33),(X: 8; Y: 35),(X: 9; Y: 36),
(X: 9; Y: 37),(X: 43; Y: 37),(X: 43; Y: 36),(X: 44; Y: 36),
(X: 45; Y: 35),(X: 51; Y: 33),(X: 51; Y: 26),(X: 50; Y: 24),
(X: 49; Y: 23),(X: 47; Y: 22),(X:45; Y: 21),(X: 43; Y: 20),
(X: 40; Y: 19),(X: 37; Y: 18),(X: 37; Y: 16),(X: 42; Y: 14),
(X: 42; Y: 12),(X: 37; Y: 10));
Procedure gira(var x:longint);
Implementation
Procedure gira;
Var r:string;
begin
if (x>0)and(x<10) then
begin
if GraphResult <> grOk then
Halt(1);
setcolor(7);
FillPoly(SizeOf(Triangle1) div SizeOf(PointType), Triangle1);
str(x,r);
setcolor(2);
outtextxy(15,28,r);
end else
if (x>=10)and(x<100) then
begin
if GraphResult <> grOk then
Halt(1);
setcolor(3);
FillPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);
str(x,r);
setcolor(2);
outtextxy(10,28,r);
end else
if (x>=100)and(x<1000) then
begin
if GraphResult <> grOk then
Halt(1);
setcolor(2);
FillPoly(SizeOf(Triangle2) div SizeOf(PointType), Triangle2);
str(x,r);
setcolor(5);
outtextxy(7,26,r);
end else
if (x>=1000)and(x<10000) then
begin
if GraphResult <> grOk then
Halt(1);
setcolor(12);
FillPoly(SizeOf(Triangle3) div SizeOf(PointType), Triangle3);
str(x,r);
setcolor(5);
outtextxy(9,25,r);
end else
if x>10000 then
begin
if GraphResult <> grOk then
Halt(1);
setcolor(14);
FillPoly(SizeOf(Triangle4) div SizeOf(PointType), Triangle4);
str(x,r);
setcolor(5);
outtextxy(4,25,r);
end;
end;
end.
Контрольні запитання.
Що називається модулем?
Які види модулів Ви знаєте?
Для чого використовується модуль DOS?
Для чого використовується модуль System?
Для чого використовується модуль CRT?
Для чого використовується модуль Graph?
Для чого використовується модуль Strings?
Для чого використовується модуль WinDos?
Яким чином використовуються підпрограми, що описані в модулях?
Як використати дані модуля?
З яких частин складається модуль?
Що таке інтерфейсна частина модуля?
Що таке робоча частина модуля?
Для чого призначені частина модуля – ініціалізації?
Чи може модуль не мати якоїсь частини? А саме якої?