Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
25
Добавлен:
07.02.2016
Размер:
282.62 Кб
Скачать

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.

Контрольні запитання.

  1. Що називається модулем?

  2. Які види модулів Ви знаєте?

  3. Для чого використовується модуль DOS?

  4. Для чого використовується модуль System?

  5. Для чого використовується модуль CRT?

  6. Для чого використовується модуль Graph?

  7. Для чого використовується модуль Strings?

  8. Для чого використовується модуль WinDos?

  9. Яким чином використовуються підпрограми, що описані в модулях?

  10. Як використати дані модуля?

  11. З яких частин складається модуль?

  12. Що таке інтерфейсна частина модуля?

  13. Що таке робоча частина модуля?

  14. Для чого призначені частина модуля – ініціалізації?

  15. Чи може модуль не мати якоїсь частини? А саме якої?

Соседние файлы в папке конспект лекцій 1 паск