Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
Lorderot
Новичок
0 / 0 / 0
Регистрация: 16.11.2012
Сообщений: 4
14.02.2013, 00:32     Как подключить модуль к своему модуле? Pascal   #1
СОздаю свой модуль:

Код 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;
.............

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

Посмотрите здесь:

Turbo Pascal Из Pascal ABC в Turbo (модуль).

Turbo Pascal Модуль Pascal

Turbo Pascal Нужно подключить модуль программе

Turbo Pascal Модуль Graph в Turbo Pascal

Turbo Pascal Выдает ошибку несоответвствия типа при попытке подключить написаный мною модуль

Turbo Pascal Сформировать отдельный модуль pascal

Turbo Pascal Как создать исполняемый модуль на turbo pascal?

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

Turbo Pascal Можно ли к модулю подключить другой модуль?

Turbo Pascal Подключить модуль

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

Текущее время: 22:31. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.