Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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
Yandex
Объявления
14.02.2013, 00:32
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
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
Turbo Pascal Подключить модуль
const m = 19; var a: array of integer; p, q, i, n: integer; begin randomize; repeat write('n = '); readln(n); if (n < 3) or (n > m) then writeln('n out of range 3..', m,...
Turbo Pascal Echo_N1 12.03.2014 22:28
C# WinForms Как подключить свой класс к своему проекту WindowsFormsApplication?
Здравствуйте, уважаемые форумчане. Проблема такая. Сконструирована форма с кнопками и прочими элементами. Она нужна только для того, чтобы ввести несколько строк и вывести несколько строк после...
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
Visual Basic Как подключить процедуру в модуле из формы?
Я написал макросы в Worde. Создал форму в VB. Вставил туда один макрос. Но Basic не понимает объект Selection. Позже я подключил в References (а у меня русский Бэсик - называется Информация)...
Visual Basic kminas 18.04.2012 13:08
Turbo Pascal Нужно подключить модуль программе
Нужно подключить модуль к этой программе.Помогите плз program itk6; uses crt; var g: array of integer; j, i: integer; begin clrscr; textcolor(white);
Turbo Pascal Василий92 27.02.2012 11:38
Delphi Как подключить в модуле форму
Есть модуль который должен подключаться и строить график. Можно ведь в модуле еще до процедур както создать форму или создать зарание и подключать в модуле,у меня ошибки на строке "...
Delphi для начинающих Maestro0222 25.05.2011 13:53
Опции темы

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

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