Турбо Паскальдағы Graph модулі

Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... .3

1.1 Graph модулі ... ... ... ... ... ... ... ... ... ... ... ... 4.5

1.2 Процедуралар ... ... ... ... ... ... ... ... ... ... ... ...5.8

1.3 Функциялар ... ... ... ... ... ... ... ... ... ... ... ... .8.9

1.4 GRAPH кітапханасын қолдану ... ... ... ... ... ... ... ... ..9

1.5 Graph модуліне мысалдар ... ... ... ... ... ... ... ... ... 10.11

Қорытынды ... ... ... ... ... ... ... ... ... ... ... 12


Қолданылған әдебиеттер ... ... ... ... ... ... ... ... 13
Graph модулі IBM – типтес дербес компьютерлердің графикалық адаптерлерімен жұмыс істеуіне есептелінген, графикалық процедуралар мен функциялардың, тұрақтылардың, айнымалылар мен типтердің қуатты кітапханасы болып табылады.TurboPascal-7.0 ортасын қолданатын Паскаль тілінде программалау Graph модулінің 132 тұрақтысы, 7 қосымша типі, 2 айнымалысы, 57 процедурасы және 22 функциясы пайдаланылады.
TurboPascal – да графикалық драйверлер деп аталатын арнайы программалар (BGI- файлдар) видеоадаптерлерінің қалыпты жұмысын басқарады.
Көптеген видеоадаптерлер монитордың көрсету мүмкіндіктерін өзгерте алатын бірнеше графикалық режимде жұмыс жасай алады.Мәтіндік режимде экранда 40(80)×25 символ бейнелеуге болатын болса,графикалық режимде онда бейнеленетін ең кіші объект – графикалық нүкте – пиксел деп аталады.
Мысалы: көп қолданылатын VGA адаптерінің қалыпты режимінде экранда 640×480 пиксел көрінеді және олардың 16 түсін айыруға болады.
Uses Graph операторын программа басына орналастырғанда ғана Graph модулінің қызметін толық пайдалануға мүкіндік береді.
1. А.Б.Дәулетқұлов, С.С.Алғазы “Паскаль ” тілінде программалау негіздері. Алматы – 2005.
2. Культин Н.Б. “Turbo Pascal в задачах и примерах” . Петербург – 2005.
3. Вирт Н. Алгоритмы и структуры данных. М.;Мир,1982.
4. Бондарев В.М.,Рублинейкий В.И.,Качко Е.Г. Основы программирования. Харьков.Фолио.1997.
5. Дал У.,Дейкстра Э., Хоор К. Структурное программирование.М.;Мир.1975.
6. Даулеткулов А.Б. Олимпиады по информатике.Алматы.ИНТ.2004.
7. Марченко А.И.,Марченко Л.А. Программирование в среде Turbo Pascal. М.;Бином Универсал, 1997.
8. Федеренко Ю. Алгоритмы и программы на Turbo Pascal. М.; Питер.2001.
9. В.В.Фаронов.Программирование на персональных ЭВМ в среде Турбо- Паскаль. М.: Издательство МГТУ.1990 г.
10. Н.И.Шкиль,М.И.Жалдак,Н.В.Морзе, Ю.С.Рамский. Изучение языков программирования в школе.Киев.Радяньска школа,1988.
        
        Мазмұны
Кіріспе _________________________________________________3
1.1 Graph модулі ________________________________________________4-5
1.2 Процедуралар _______________________________________________5-8
1.3 Функциялар _________________________________________________8-9
1.4 GRAPH кітапханасын қолдану __________________________________9
1.5 Graph модуліне мысалдар ____________________________________10-11
Қорытынды____________________________________________12
Қолданылған ... ... IBM – ... ... ... графикалық
адаптерлерімен жұмыс істеуіне есептелінген, графикалық процедуралар мен
функциялардың, тұрақтылардың, айнымалылар мен типтердің қуатты кітапханасы
болып табылады.TurboPascal-7.0 ортасын қолданатын Паскаль тілінде
программалау Graph ... 132 ... 7 ... типі, 2 айнымалысы,
57 процедурасы және 22 функциясы ... – да ... ... деп ... ... (BGI- ... видеоадаптерлерінің қалыпты жұмысын басқарады.
|Драйверлер ... ... ... ... |EGA,VGA ... ... (монохромды) ... |AT&T 6300 (400 жол) ... |3270 PC ... 8514.BGI |IBM - 8514 ... ... ... көрсету мүмкіндіктерін өзгерте
алатын бірнеше графикалық режимде жұмыс жасай алады.Мәтіндік режимде
экранда 40(80)×25 символ ... ... ... ... ... ең кіші объект – графикалық нүкте – пиксел деп аталады.
Мысалы: көп қолданылатын VGA адаптерінің қалыпты ... ... ... ... және ... 16 ... айыруға болады.
Uses Graph операторын программа басына орналастырғанда ғана Graph
модулінің қызметін толық пайдалануға мүкіндік береді.
1.1 Graph ... ... Graph ... 50-ге жуық ... ... ... ... экранда қолдануға мүмкіндік ашады.Сондай-ақ осы
модульде графикалық программаларға пайдаланылатын тұрақтылар мен
айнымалылар баяндалған. Graph модулін пайдалану үшін программаның басында
мына ... ... ... ... ... Graph;
- Graph модулінің процедура мен функцияларын топтарға бөліп қарастыру
керек.
➢ Графикалық режимдерді басқару және оны анализдеу.
Процедура InitGraph – Адаптердің ... ... ... жасауын іске
қосады:
Procedure InitGraph (var Driver,Mode:integer;Path:string);
Мұндағы Driver – графикалық ... ... ... – графикалық адаптердің жұмыс режимін береді.
Path – драйвер файлының аты немесе іздеу маршруты көрсетіледі.
Сондай-ақ бұл ... ... ... жатады.
Procedure CloseGraph- графикалық режимді жабады.
Procedure DetectGraph (var Driver,Mode:integer) – ... ... ... ... ... ... Графикалық фигуралардың және примитифтердің кескінделуі.
Модульдің негізгі бөлігін ... ... ... ... ... ... ... шеңбер және тағы басқа) шығаруға арналған
процедуралар құрайды.Ондай элементтерді ... ... ... Ағымдағы көрсеткішті басқару:
Procedure Move To (x,y: integer); - ағымдағы көрсеткішті (х,у)- ке әкеледі.
Procedure Move Rel (Dx,Dy: ... - ... ... ... Get Max ... - Графикалық экрандағы горизонталь максималды
координатаны табады.
Procedure Get Max y: integer; - вертикаль ... ... ... Get x, Get y: Integer; - ... ... х пен ... ... Өзіндік сурет салу:
Procedure Line (x1,y1,x2,y2:integer); - x1,y1 нүктесінен х2,у2 нүктесіне
дейін сызық жүргізеді.
Procedure Circle (x,y: ... – xy – ті ... ... ... ... ... сызғызады.
Procedure Ellipse (x,y:integer; StAngle, EndAngle, XR, YR:Word); - StAngle
бұрышынан соңғы EndAngle бұрышына қосатын доға салады, ху – координат
центрі, XR, YR – ... ... ... ... бойынша сурет салу.
❖ Шаблондар және түстердің боялуын ... ... ... ... операциялар (PutPixel, GetPixel, ImageSize,GetImage,
PutImage);
❖ Видеопарақтарды басқару (SetActivePage, SetVisualPage);
❖ Графикалық терезелерді басқаруға арналған операциялар
(SetViuoPort, GetViewSetting, ClearViuoPort);
❖ Тексті шығаруды басқару (OutText, OutTextXY, ... ... ... ... ... Arc ... EndAngle,Radius:Word);
Х,У – ті центр координаты ретінде пайдаланып, ... бас ... ... ... Radius – пен доға сызады.
2. Procedure Bar (x1,y1,x2,y2:integer); - ағымдағы түс пен ... ... ... ... Bar3D ... - ағымдағы түс пен
стильді пайдаланып, кеңістіктегі жолақты сызады (трехмерный).
4. Procedure ClearDevice; - экранды ... ... ... - ... ... Procedure CloseGraph – графикалық режимді жабады.
7. Procedure DrowPoly (NumPoints:word;
Var PolyPoints) – ағымдағы түс
пен сызықтың типін пайдаланып ... – та ... ... ... – та көрсетілген бұрыштың санына сәйкес көпбұрыш салады.
8. Procedure Fill Ellipse (x,y:integer;
XR,YR: Word) – х,у – ті
центр ретінде және XR,YR – ді ... ... ... ... ... ... ... Procedure Fill Poly (NumPoints:Word;
Var:Poly Points) – PolyPoints – та
көрсетілген координаттарды және Npoints – тағы төбелерді ... ... және ... Procedure Fload Fill (x,y:integer;
Border:Word) – Border түсімен
шектелген және ішкі нүктелері х,у координаттары болатын жабық ауданды
штрихтайды (ағымдағы режимде).
11. ... ... (Var ArcCoo: ... ... ... ... ... центрінің координаттарын қайтарады.
12. Procedure Get AspectRatio (Var xAsp, yAsp: Word) – ... ... ... ... ... 2 сан қайтарады.
13. Procedure GetDefaultPalette (Var Palette: PaletteType)- PaletteType
жазбасындағы ағымдағы палитраны қайтарады.
14. Get Fill Pattern ... ...... штрихтың
үлгісін қайтарады.
15. Get Fill Settings (Var:FillInfo: FillSettingsType) – ағымдағы штрихтың
үлгісін және түсін қайтарады
16. Get Image (x1,y1,x2,y2: ... BitMap) – ... ... ... ... BitMap ... сақтайды.
17. GetLineSettings (Var LineInfo: LineSettings Type) – ағымдағы стильді,
шаблонды және ... ... ... ... (Graph Driver: ... LoMode, HiLode: integer) - ... графикалық драйвері үшін жұмыс жасауға мүмкін болатын режим
диапазонын ... ... (var Palette: ...... ... және ... қайтарады.
20. GetTextSettings (var TextInfo: TextSettingsType) – SetTextStyle және
SetTextJustify процедураларымен орнатылған ағымдағы шрифті,бағытты,
өлшемін және ... ... ... ... GetViewSettings (var ViewPort: NiewPortType) – ағымдағы терезенің
координаттарын қайтарады.
22. GraphDefaults – графикалық режимнің стандартты ... ... LineRel (DX,DY: integer) – ... ... ... ... берілген нүктеге сызық салады.
24. LineTo (x,y: integer) – ағымдағы көрсеткіштен х, у нүктесіне сызық
салады.
25. OutText (TextString: string) – ... ... ... ... OutTextXY (x,y: integer;
TextString: string) – тексттік жолды экранның
көрсетілген бөлігіне шығарады.
27. PieSlice (x,y : integer;
StAnge, ... Radius: Word) – шар ... және ... (x,y: ... ... Word) – ... биттік нұсқаны
шығарады.
29. PutPixel (x,y : integer;
Color:Word) – x,y координаттары бойынша Color
түсті нүктені ... ... ... ... : integer) – ... түс пен ... типін
пайдаланып тіктөртбұрыш сызады.
31. Restore CRT Mode – экранның текстік режим жұмысын ... Sector (x,y : ... : WORD) – ... ... және ... SetActivPage (Page : Word) – графикалық нәтиже үшін активті парақты
орнатады.
34. SetAllPalette (var Palette) – палитраның барлық ... ... ... ... : Word) – ... ... шеттерінің
қатынасының масштабтық коэффициентін өзгертеді.
36. SetBkColor (Color : Word) – фонның түсін ... SetColor (Color : Word) – ... ... іске асыратын негізгі түсті
орнатады.
38. Set Fill Pattern (Pattern : Fill Pattern Type;
Color : Word) – штрихтың еркін үлгісін
орнатады.
39. Set Graph But Size (Size : Word) – ... ... ... ... ... ... береді .
40. Set Graph Mode (Mode : integer) – жаңа ... ... ... экранды тазартады.
41. Set Line Style (LineStyle, Pattern, Thickness :Word) – сызықтың
стилі мен жуандығын орнатады.
42. Set Palette ... Color : integer) – ColorNum ... ... ... ... ... ... ауыстырады.
43. Set RGB Palette (ColorNum, Red, Green, Blue : integer) – ... VGA үшін ... ... ... ... Set Text Justify (Horiz, Vert : Word) – ... туралауды орнатады
(OutText және OutTextXY процедуралары үшін).
46. Set Text Style (Font, Direction, Char Size : Word) – ... ... ... , ... ... Set User Char Size (MultX, DivX, MultY, DivY : Word) – ... қою, өзгерту.
48. Set View Port (x1,y1, x2, y2 : integer;
ClipOn : Boolean) – графикалық нәтиже
үшін ... ... ... Set Visual Page (PageNo : Word) – ... ... графикалық парақтың
номерін орнатады.
50. Set Write Mode (Write Mode : integer) – DrowPoly, Line, LineRel,
LineTo, Rectangle процедуралары арқылы ... ... ... ... орнатады.
1.3 Функциялар
1. Get Bk Color : Word – ... ... ... ... Get Color : Word – ... ... қайтарады.
3. Get Driver Name : String – ағымдағы драйвердің атын жолға шығарады.
4. Get Graph Mode : integer – ... ... ... ... Get Max Color : Word – SetColor- да ... ... ... ... Get Max Mode : integer – ... ... драйвердің максималды
режимнің номерін қайтарады.
7. Get Mode Name (ModeNum:Word): String – ... ... ... ... Get Palette Size : integer – палитра таблицасының өлшемін қайтарады.
9. Get Pixel (x,y : integer): Word – x,y ... ... ... ... Graph Error Msg ... ... ... коды үшін
берілген қате туралы мәліметті қайтарады.
11. Graph Result: integer – соңғы графикалық ... үшін ... ... Image Size (x1, y1, x2, y2 : integer) – ... ... ... ... байт санын қайтарады.
13. Install User Driver (Name : string;
Auto DetectPtr :
Pointer): integer – драйверлер құрылғысының кестесіне қолданушы драйвер
құрылғысын орнатады.
14. Install User Font ... : string): ... ... жаңа шрифті орнатады.
15. Register BGI driver (Driver: Pointer): integer – графикалық жүйе үшін
драйверді тіркеу.
16. Register BGI font (Font: ... integer – ... жүйе ... ... Text Height (TextStr : String): Word – ... ... ... Text Width (TextStr : String) : Word – жолдың енін пиксельде қайтарады.
1.4 GRAPH кітапханасын қолдану.
Turbo Pascal графиктік мүмкіндіктерін пайдалану үшін ... ... іске ... . ... ... (бағдарлама құрушы)
графикалық экранда басқаруына арналған 50-ге жуық процедуралар мен
функциялар қызметі енгізілген.Кітапхана құрамындағы процедуралар мен
функциялар ... ... ... ... ... өту және ... режимге қайтып оралу.
ДК қосылғаннан кейінгі қалыпты күйі , Турбо Паскаль бағдарламасының
қосылар сәті мәтіндік режимдегі жұмыс экранына сәйкес ... ... ... ... әрбір бағдарлама дисплейлік
адаптердің графикалық режимін де басқару керек. Жұмыс аяқталған соң (Д.К.
барлық бағдарламаларды) мәтіндік режимге қайта оралады.
Дисплейлік адаптердің графикалық режимінің ... ... ... ... ... ... орнату , жұмыс жасау қажетті
графикалық драйверді қосу арқылы іске асады.Драйвер – Д.К-ң техникалық амал
тәсілдерін ... ... ... ... ... ... драйвер
графикалық режимдегі дисплейлік адаптерді басқарады. Графикалық драйверді
Borland фирмасы жасап шығарған.Ол адаптердің барлық типіне жарамды. Олар
BGI қосымша каталогінде кеңейтілген файл түрінде ... ... ... ... ДК (IBM) ЭЕМ фирмасы шығарған адаптерлермен
жабдықталады.Монохромды MOD адаптерден басқа адаптерлердің барлығы
графикалық режимде жұмыс жасай алады. Бұл режимде дисплейдің ... ... ... ... ... ретінде қаралады.Олардың жарқырауын
бағдарлама арқылы басқаруға болады. Адаптердің графикалық мүмкіндігі
экрандағы пикселдің мөлшерімен ... (рең) ... ... Көптеген
адаптерлер бірнеше графикалық парақтармен жұмыс жасайды. Графикалық парақ
(парақ, бет) – деп жедел жад ... ... ... ... ... яғни ... пикселдің реңгі (жарығын) туралы мәлімет сақтайды.
1.5 Graph модуліне мысалдар:
... ... ... ... ... шығарады және оны өшіреді.
Uses CRT, Graph;
Type
Pixel.Type = record
x, y : integer;
end;
const
n=5000; {“жұлдыздар” саны}
var
d,r,e,k : integer;
x1, y1, x2, y2 : ... array [1..n] of ... ... ... іске қосамыз}
d:= Detect;
InitGraph (d, r, ‘’);
e:= GraphResult;
If e < > grok then
Writeln (Graph(Result)ErrorMsg(e))
Else
Begin
{терезе – ... ... ... CetMaxY ... 3*X1;
Y2:= 3*Y1;
Rectangle (x1,y1,x2,y2);
Set ViewPort (x1+1, y1+1, x2-1, y2-1, ceipon );
{барлық “ ...... k:=1 to N ... a[k] ... Random (X2-X1);
Y:= Random (Y2-Y1);
End;
{шығару циклы}
Repeat
For k:= 1 to n ... a[k] ... ... Pixel (x,y, white);
If not KeyPressed then
For k:= N downto 1 do
With a[k] do
{“жұлдызды” ... (x, y, ... Key ... Key Pressed do k:= ord ... ... о р т ы н д ... айтқанда Турбо Паскаль жүйесінде графикалық информацияларымен
жұмыс істеу үшін GRAPH.TPU модулі пайдаланылады.Бұл модульде графикалық
процедуралар мен функциялардың программасы машиналық тілде жазылған.
Турбо ... ... ... ... ... графикалық командалар келтірілмеген.GRAPH
модулінде графикалық информацияларды дисплей экранына шығаруға және өңдеуге
арналған командаларды сүйемелдейтін
типтер,тұрақтылар,айнымалылар,процедуралар мен функциялар сипатталады.
Turbo Pascal ... ... ... ... ... ... жұмыс істеуге болады.Онда әртүрлі графиктік кескіндер құрастыру
мүмкіндігі бар. Turbo Pascal графиктік мүмкіндіктерін ... үшін ... ... іске ... ... графиктік
процедураларымен функцияларын қолданып графиктік кескіндерді құрастыруға
болады.GRAPH модулінде ... ... мен ... ... ... сипаттау бөлімінде көрсетіледі.
Қолданылған әдебиеттер
1. А.Б.Дәулетқұлов, С.С.Алғазы ...... ... ... – 2005.
2. Культин Н.Б. “Turbo Pascal в задачах и примерах” . Петербург – ... Вирт Н. ... и ... ... М.;Мир,1982.
4. Бондарев В.М.,Рублинейкий В.И.,Качко Е.Г. Основы программирования.
Харьков.Фолио.1997.
5. Дал У.,Дейкстра Э., Хоор К. Структурное программирование.М.;Мир.1975.
6. Даулеткулов А.Б. Олимпиады по информатике.Алматы.ИНТ.2004.
7. ... ... Л.А. ... в ... Turbo Pascal.
М.;Бином Универсал, 1997.
8. Федеренко Ю. Алгоритмы и программы на Turbo Pascal. М.; ... ... на ... ЭВМ в ... ... М.: ... МГТУ.1990 г.
10. Н.И.Шкиль,М.И.Жалдак,Н.В.Морзе, Ю.С.Рамский. Изучение языков
программирования в школе.Киев.Радяньска школа,1988.

Пән: Информатика
Жұмыс түрі: Реферат
Көлемі: 8 бет
Бұл жұмыстың бағасы: 300 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Турбо паскаль программалау тілінде графикалық объекттерді құру12 бет
Graph модулін қолдану21 бет
Turbo pascal6 бет
Turbo Pascal 7.0 интегралдық программалау ортасын пайдалану43 бет
Паскаль програмалау тілі туралы түсінік29 бет
Паскаль тіліндегі модульдер29 бет
Турбо паскаль графикалық режимі30 бет
Турбо Паскальда графикалық процесстерді қолдану25 бет
Экранға мәтін шығару процедуралары14 бет
Delphi тілінде деректер модулін құрастыру және оны пайдалану20 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь