Форум программистов, компьютерный форум CyberForum.ru

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Lorderot
0 / 0 / 0
Регистрация: 16.11.2012
Сообщений: 4
#1

Как подключить модуль к своему модуле? Pascal - Turbo Pascal

14.02.2013, 00:32. Просмотров 455. Ответов 0
Метки нет (Все метки)

СОздаю свой модуль:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
Unit n650;
Interface
 Procedure wall (x,y,k: integer); 
 Procedure house (x,y,k: integer);
 Procedure El (x,y,k: integer);
 Procedure flower (x,y,k: integer);
 Procedure sun (x,y,k: integer);
 
Implementation
 
 Procedure house;
  begin
   Rectangle(round(x*k),round(y*k),round((x+150)*k),round((y+75)*k)); { выскакует ошибка Unknown  identifier}
   Rectangle(round((x-10)*k),round(k*(y-10)),round((x+160)*k),round(y*k));
   Rectangle(round((x+100)*k),round((y-25)*k),round((x+110)*k),round((y-10)*k));
   Rectangle(round((x+90)*k),round((y+25)*k),round((x+120)*k),round((y+75)*k));
   Setfillstyle(1,brown);
   Floodfill(round((x+1)*k)+1,round((y+1)*k)+1,white);
 
   Setfillstyle(1,yellow);
   Floodfill(round((x+91)*k)+1,round((y+26)*k)+1,white);
   Setfillstyle(1,red);
   Floodfill(round(k*(x+101))+1,round(k*(y-24))+1,white);
   Setfillstyle(1,8);
   Floodfill(round((x-9)*k)+1,round((y-9)*k)+1,white);
 end;
 
 Procedure El;
  begin
  Setcolor(green);
   Line(round(k*(x+60)),round(k*y),round(k*(x+20)),round(k*(y+80)));
   Line(round(k*(x+60)),round(k*y),round(k*(x+100)),round(k*(y+80)));
   Line(round(k*(x+50)),round(k*(y+80)),round(k*x),round(k*(y+170)));
   Line(round(k*(x+70)),round(k*(y+80)),round(k*(x+120)),round(k*(y+170)));
   Line(round(k*(x+20)),round(k*(y+80)),round(k*(x+100)),round(k*(y+80)));
   Line(round(k*x),round(k*(y+170)),round(k*(x+120)),round(k*(y+170)));
    Setfillstyle(1,Green);
   Floodfill(round(k*(x+60)),round(k*y)+2,green);
   Floodfill(round(k*(x+60)),round(k*(y+80))+1,green);
   setcolor(brown);
   Rectangle(round(k*(x+50)),round(k*(y+170)),round(k*(x+70)),round(k*(y+200)));
   Setfillstyle(1,brown);
   Floodfill(round(k*(x+50))+1,round(k*(y+170))+1,brown);
  end;
 
 Procedure flower;
  begin
   circle(round(k*(x+130)),round(k*(y+130)),round(k*30));
 
   ellipse(round(k*(x+130)),round(k*(y+50)),0,360,round(k*10),round(k*50));
   ellipse(round(k*(x+130)),round(k*(y+210)),0,360,round(k*10),round(k*50));
   ellipse(round(k*(x+50)),round(k*(y+130)),0,360,round(k*50),round(k*10));
   ellipse(round(k*(x+210)),round(k*(y+130)),0,360,round(k*50),round(k*10));
 
   setfillstyle(1,yellow);
    floodfill(round(k*(x+130)),round(k*(y+130)),white);
   setfillstyle(1,red);
    floodfill(round(k*(x+130)),round(k*(y+50)),white);
    floodfill(round(k*(x+130)),round(k*(y+210)),white);
    floodfill(round(k*(x+50)),round(k*(y+130)),white);
    floodfill(round(k*(x+210)),round(k*(y+130)),white);
 
  end;
 
 
 Procedure sun;
  begin
    setcolor(yellow);
   circle(round(k*(x+130)),round(k*(y+130)),round(k*50));
    line(round(k*(x+130)),round(k*(y+80)),round(k*(x+130)),round(k*(y+10)));
    Line(round(k*(x+130)),round(k*(y+180)),round(k*(x+130)),round(k*(y+250)));
    line(round(k*(x+80)),round(k*(y+130)),round(k*(x+10)),round(k*(y+130)));
    line(round(k*(x+180)),round(k*(y+130)),round(k*(x+250)),round(k*(y+130)));
 
  setfillstyle(1,yellow);
   floodfill(round(k*(x+130)),round(k*(y+130)),yellow);
 
  setcolor(blue);
   circle(round(k*(x+108)),round(k*(y+115)),round(k*10));
   circle(round(k*(x+152)),round(k*(y+115)),round(k*10));
  setfillstyle(1,blue);
   floodfill(round(k*(x+108)),round(k*(y+115)),blue);
   floodfill(round(k*(x+152)),round(k*(y+115)),blue);
  setcolor(red);
   ellipse(round(k*(x+130)),round(k*(y+144)),180,360,round(k*35),round(k*20));
 end;
 
 Procedure wall;
 var i,c: integer;
  begin
        For i:=1 to n do
   begin
    Line(round(k*(x+25)+c),round(k*y),round(k*x+c),round(k*(y+30)));
    Line(round(k*(x+25)+c),round(k*y),round(k*(x+50)+c),round(k*(y+30)));
    Rectangle(round(k*x+c),round(k*(y+30)),round(k*(x+50)+c),round(k*(y+180)));
    setcolor(black);
    line(round(k*x+c)+1,round(k*(y+30)),round(k*(x+50)+c)-1,round(k*(y+30)));
    setcolor(white);
    setfillstyle(1,brown);
    floodfill(round(k*x+c)+1,round(k*(y+30))+1,white);
    c:=c+round(50*k);
 
 
   end;
  end;
end.
выскакует ошибка Unknown identifier, я так понимаю потому что Rectangle нужно использовать после подключения модуля Graph. Как подключить сюда модуль Graph? или как исправить ошибку?
Скачать етот модуль .pas можно отсюда

Добавлено через 1 час 13 минут
Вопросил решил методом тыка)))
После Interface надо написать так

Interface
uses Graph;
.............

вот и все
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.02.2013, 00:32     Как подключить модуль к своему модуле? Pascal
Посмотрите здесь:

Как подключить модуль Turbo Pascal
Как подключить модуль Turbo Pascal
Модуль Pascal Turbo Pascal
Как подключить свой модуль Turbo Pascal
Turbo Pascal Нужно подключить модуль программе
Turbo Pascal Модуль Graph в Turbo Pascal
Turbo Pascal Сформировать отдельный модуль pascal
Как создать исполняемый модуль на turbo pascal? Turbo Pascal
Turbo Pascal Как подключить модуль?
Turbo Pascal Можно ли к модулю подключить другой модуль?
Подключить модуль Turbo Pascal
Turbo Pascal Как подключить самописный модуль?

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru