Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Turbo Pascal
Восстановить пароль Регистрация

Ответ Создать новую тему
 
14.02.2013, 00:32   #1
Lorderot
Новичок
Регистрация: 16.11.2012
Сообщений: 4
Репутация: 0 (0)
Как подключить модуль к своему модуле? Pascal / Turbo Pascal

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

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

вот и все
14.02.2013, 00:32
AdAgent
Объявления
Другие темы раздела
Turbo Pascal Дано натуральное число п. Получить все пифагоровы тройки натуральных чисел
1. Дано натуральное число п. Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n, т. е. все такие тройки натуральных чисел a, b, с, что а2+b2=с2 (а≤b≤с≤n). Сделайте в паскале. Я видел у вас подобную задачу на форуме но она была сделана в С++
Шифровка текста Turbo Pascal
Помогите пожалуйста,ранее никогда не сталкивался с таким и не знаю как решить... В средние века в торговле применялась и шифровка цифр. В качестве ключа необходимо выбрать слово длиной в 10 символов, в котором буквы не повторяются. Каждая буква нумеруется от 0 до 9. При шифровке какого-либо...
14.02.2013, 00:32
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C# WinForms: Как подключить свой класс к своему проекту WindowsFormsApplication?
Здравствуйте, уважаемые форумчане. Проблема такая. Сконструирована форма с кнопками и прочими элементами. Она нужна только для того, чтобы ввести несколько строк и вывести несколько строк после некой обработки. Вся обработка происходит, например, в классе MyClass1195, расположенном в...
C# Windows Forms mukha 08.01.2014 23:07
VBA: Как в редакторе VBA временно заблокировать процедуру в модуле или модуль целиком
Подскажите, пожалуйста. Как в редакторе VBA временно заблокировать процедуру (не закомментировать) в модуле или модуль целиком? Спасибо.
VBA Maxsss 29.10.2012 18:37
Drupal: Как в модуле Views выводить записи, равные текущей таксономии (модуль Taxonomy Menu)?
Как в модуле Views выводить записи, равные текущей таксономии (модуль Taxonomy Menu)? Например, я в Taxonomy Menu создал меню "Categories", где добавил пункты "A","B" и "С". И если я открываю запись "Товар A", то в блоке через views должны показаться все записи, которые находятся в пункте меню...
Drupal devenge 07.08.2012 21:57
Visual Basic: Как подключить процедуру в модуле из формы?
Я написал макросы в Worde. Создал форму в VB. Вставил туда один макрос. Но Basic не понимает объект Selection. Позже я подключил в References (а у меня русский Бэсик - называется Информация) Microsoft Word 10.0 Object Library и текст из макроса (без никакого изменения) вставился в таблицу, но чёрт...
Visual Basic kminas 18.04.2012 13:08
Delphi: Как подключить в модуле форму
Есть модуль который должен подключаться и строить график. Можно ведь в модуле еще до процедур както создать форму или создать зарание и подключать в модуле,у меня ошибки на строке " Form2.Canvas.*** " , если есть возможность подскажите как. Ну или на худой конец может можно создать image ,правдо...
Delphi для начинающих Maestro0222 25.05.2011 13:53
Опции темы

Текущее время: 02:58. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.