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

Ответ Создать новую тему
 
14.02.2013, 00:32   #1
Lorderot
Новичок
0 / 0 / 0
Регистрация: 16.11.2012
Сообщений: 4
Как подключить модуль к своему модуле? 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal В модуль 1 нужно внести сведения (4 записи) и вывести в файл, а во втором модуле посчитать поле komp
Модуль 1: unit modul1; interface const p='c:\1.pas'; p1='c:\1.dat'; type my=record adres:string; name:string; komp:real;
Turbo Pascal BARS 03.06.2014 17:32
C# WinForms Как подключить свой класс к своему проекту WindowsFormsApplication?
Здравствуйте, уважаемые форумчане. Проблема такая. Сконструирована форма с кнопками и прочими элементами. Она нужна только для того, чтобы ввести несколько строк и вывести несколько строк после некой обработки. Вся обработка происходит, например, в классе MyClass1195, расположенном в...
C# Windows Forms mukha 08.01.2014 23:07
Turbo Pascal Как подключить модуль?
Помогите новичку. Как подключить модуль GrapgABC? Пишет "File not found < GRAPHABC.TPU>". Возможно, у меня нет библиотеки этого модуля, а где скачать, я не знаю.:cry:
Turbo Pascal DSBM 29.10.2013 16:27
Turbo Pascal Как создать исполняемый модуль на turbo pascal?
Как создать исполняемый модуль на turbo pascal? Есть программа 123.pas
Turbo Pascal urbic 05.10.2013 10:53
Delphi Как подключить в модуле форму
Есть модуль который должен подключаться и строить график. Можно ведь в модуле еще до процедур както создать форму или создать зарание и подключать в модуле,у меня ошибки на строке " Form2.Canvas.*** " , если есть возможность подскажите как. Ну или на худой конец может можно создать image ,правдо...
Delphi для начинающих Maestro0222 25.05.2011 13:53
Опции темы

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

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