Турбо паскальда графиканы құру

Жоспар

I.Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...

II.Негізгі бөлім.
1.Graph модулі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
2.Бейнелердің сақталуы мен берілуі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .
3.Координаттар,терезелер,беттер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..
4.Сызықтар мен нүктелер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
5.Көпбұрыштар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
6.Доға,шеңберлер,элипстер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
7.Бояулар,политра,толықтырулар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..

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

Қолданғанәдебиеттер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
Кіріспе

Бұл курстық жұмыста Турбо Паскальдің графикалық режимде, графикалық объектілердің бейнеленуі үшін, әр түрлі функциялар мен процедуралар қарастырылады.
Монитордың тексттік немесе графикалық жұмыс кестесінің арасындағы айырмашылықтары визуалды мәліметтердің қорытындысының көмегімен іске асады.Тексттік режимде экрандық бейненің минималды объектасы санды-алфавиттік және қандай да болмасын символ болып табылады.Санды алфавиттік режимде жұмыс жасайтын монитордың экраны қарапайым жағдайда көлденеңнен 25 белгілерден және тігінен 80 белгілерден тұруы мүмкін, яғни барлығы 2000 визуалды объект бар.Әрине мұндай режимде экранға тек ғана қарапайым тексті ғана емес, сонымен қатар кейбір графикалық бейнелерді шығаруға болады.Бір-ақ та мұндай бейнелердің сапасы ешқандай мінсіз болуы мүмкін.Бір-ақ бұл әдіс компьютердің тарихи заманында жалғыз болды,сондықтан да ол графикпен түгел суретті экранға шығарудың кең таралған түрі болып табылады.Бағдарламалаушылардың кейде компьютерлік псевдографиканың нағыз шедеврлерін жасап шығаратын мүмкіндіктері болады.Бір-ақ күрделі жұмыстары үшін дисплейдің тексттік режимінің бейнелері мүлдем сәйкес келмейді.
Графикалық режимде минималды объект, бағдарламашы басқара алатын қорытынды болып «Пиксель» мен «Элемент» табылады.Пиксель бейнелерге қарағанда аз мөлшерде болады.Оның геометриялық өлшемесі монитордың шешімі арқылы анықталады.Монитордың шешімі әдетте былай беріледі: rx*ry, мұндағы rx-экрандағы пиксельдердің,ал ry-вертикаль пиксельдердің саны.Машықта өнімдік емес,кейбір шешімдердің белгілі мағыналары қолданылады.Мұндай шешімдер мыналар.
Мысалы:320х200;640х450;800х600;1024х758;1280х1024; және т.б.
Қолданылған әдебиеттер:

1.Информатика (базовый курс) С.В.Семенович.С.П б:Питер 2001г.
2.Основы языка Турбо Паскаль (Учебный курс),П.И Рудаков. М.А.Федотов Москва: Радио и связь,2000г.
3.Основы программирования в задачах и примерах, А.В.Милов. Харьков: ФОЛИО, 2002г.
4.Программирование. С.Симонович. Г.Евсеев, Москва: АСТ ПРЕСС книга 2000г.
5.Практика программирование, Ю.Кетков. А.Кетков СП б: БХБ/ Питербург 2002г.
6.Турбо Паскаль С.А.Немнюгин.-СП б: издательство «Питер», 2001г.
7.Турбо Паскаль: учитесь программировать, О.А.Меженный, Москва: изд.дом «Вильямс», 2001г.
        
        Курстық жұмыс
Тақырыбы
«Турбо Паскальда графиканы құру»
Жоспар
I.Кіріспе...................................................................
............................................
II.Негізгі бөлім.
1.Graph
модулі......................................................................
..............................
2.Бейнелердің сақталуы мен
берілуі.................................................................
3.Координаттар,терезелер,беттер.............................................
.........................
4.Сызықтар ... ... ... ... ... ... ... графикалық
объектілердің бейнеленуі үшін, әр түрлі ... мен ... ... ... графикалық жұмыс кестесінің арасындағы
айырмашылықтары визуалды мәліметтердің ... ... ... ... ... ... минималды объектасы санды-
алфавиттік және қандай да болмасын символ болып табылады.Санды алфавиттік
режимде жұмыс ... ... ... ... ... ... 25
белгілерден және тігінен 80 белгілерден тұруы ... яғни ... ... ... бар.Әрине мұндай режимде экранға тек ғана қарапайым тексті
ғана ... ... ... ... графикалық бейнелерді шығаруға болады.Бір-
ақ та мұндай бейнелердің сапасы ешқандай мінсіз ... ... ... ... ... ... ... болды,сондықтан да ол графикпен
түгел ... ... ... кең ... түрі ... кейде компьютерлік псевдографиканың нағыз
шедеврлерін жасап шығаратын мүмкіндіктері болады.Бір-ақ ... ... ... тексттік режимінің бейнелері мүлдем сәйкес келмейді.
Графикалық режимде минималды объект, бағдарламашы басқара алатын қорытынды
болып «Пиксель» мен ... ... ... ... ... болады.Оның геометриялық өлшемесі ... ... ... ... әдетте былай беріледі: rx*ry, ... ... ... ... пиксельдердің саны.Машықта өнімдік
емес,кейбір шешімдердің белгілі мағыналары қолданылады.Мұндай шешімдер
мыналар.
Мысалы:320х200;640х450;800х600;1024х758;1280х1024; және т.б.
Функциялар мен ... мен ... Graph ... Турбо Паскаль модулінде графикалық экранға арналған жұмыстар үшін
елуден астам процедуралар мен функциялар бар.Осы модульде ... ... ... ... ... ... мүмкін. Graph
модулінің ... ... ... ... алдымен бағдарламаның
қолдану (но) операторын ... ... ... негізгі бөлімін графикалық элементтердің базалық
процедураларын енгізу құрайды,олар ... ... ... және ... ... Error ... типінің мағынасын қайтарады.Онда көрсетілген код бойынша қателер
сәкесінше текстік хабарлама до беріледі.
Бастама.
Fanctional GraphError.Msg(Code:Integer):String;
Мұнда Code-қатенің коды;
Graph Result-функциясына ... ... ... Graph ... ... ... режимін қарастырады.Және адаптердің графикалық
режимдегі жұмысын аяқтайды.
1.2 Бейнелердің сақталуы мен берілуі.
ImageSize функциясы.Байттағы есте-сақтаудың мөлшерін ... ... ... ... үшін ... ... (Х1,Y1,X2,Y2:Integer:Word);
Мұнда Х1...X2 сол жақ кооррдинаталарын бұрыштардың бейнесінің фрагментте.
GetImage процедурасы бейненің тік бұрышты фрагментінің көшірмесін есте
сақтайды.
Buf өлшемі Х1...X2 координаттарымен ImageSize ... ... ... ... ... ... Buf;Mode:Word);
Мұнда Х,Y-бейнелеу фрагменті сақталатын орынның экрандағы сол жақ жоғарғы
координаты.
Buf-бейненің алыну орны; mode-сақтау әдісі.
Көріп ... оң жақ ... ... ... жақ ... ... ... әр-түрлі болуы
мүмкін,тек шығарылған көшірме экранға сиғаны болғаны. Mode ... бар ... ... ... ... ... бейне қарапайым геометриялық фигуралардан құрастырылады. ... түзу ... ... ... ... тағы
басқалары.Геометрия бойынша геометриялық ... мен оның ... ... ... ... ... белгі:сондықтан,
графикалық нәтижені бағдарламау үшін графикалық объектінің координаталарын
жауып үйрену қажет.
Көптеген ... ... мен ... ... ... позицияның
көрсеткішін қолданады,олар тексттік курсорға қарағанда көрінбейді.Бұл
көрсеткіштің ... ... ... ... ... ... бар сол жақ ... бұрышқа қатысты беріледі.Осы бағытпен
бұрышқа қатысты беріледі.Осы ... ... ... ... ... ... Max х және Get Max у ... Word типінің мағынасын қайтарады.
Сәйкесінше көлденеңнен және тігінен өтпелі(речи) ... ... ... координатасын құрайды.
SetViewPort процедурасы графикалық экранда тік ... ... ... ... жақ ... ... және оң жақ төменгі
терезелерінің бұрыштары (Х2,Y2); ClipOn— Boolean типінің ... ... ... ... ... көрсеткіш жоғарғы сол жақ бұрышқа орналасады,ал экранның өзі
SetBkColor процедурасы ... ... фон ... ... ... мен ... ... көрсетілген координаталар бойынша түс арқылы
шығады.
Procedure PutPixel (X1,Y1,X2,Y2:Integer;Color:word);
Мұнда X,Y—нүктелер координатасы;Color-нүктенің түсі.
Line процедурасы.Басымен соңын көрсетілген ... ... ... Line(X1,Y1,X2,Y2:Integer);
Мұнда X1... Y1-сызықтың басы(X1,Y1) мен соңының (X2,Y2)координаталары.
Procedure SetLineStyle(Type,Pattern,Thick:word);
Мұнда Type,Pattern,Thick –сәйкесінше ... және ... типі мына ... ... көмегімен пайда болуы
мүмкін.
Const
SolidLn=0;(тегіс сызық)
DottedLn=1;(нүктелі сызық)
CenterLn=2;(штрих-пункті сызық)
DashedLn=3;(пункті сызық)
UserBitLn=4;(қолданушының анықтаған сызықтық өрнегі).
1.5 Көпбұрыштар.
Rectangle процедурасы.Көпбұрышты бұрыштардың көрсетілген ... ... ... ... ... жақ жоғарғы бұрыштың координаталары(X1,Y1) тік бұрыштың
оң жақ төменгі бұрыштарының координаталары (X2,Y2) тік ... ... ... сызық стилін қолдану арқылы сызылады.
1.6 Доғалар,шеңберлер,элипстер.
Circle процедурасы.Шеңбер сызады.
Procedure Circle(Х,Y:Integer;R:Word);
Мұнда Х,Y—центрдің координаталары.
R-Пиксельдердегі радиус.
Шеңбер ағымдағы түс арқылы шығарылады.Сызықтың ... ... ... түрі ... ... ... ... өзгертіндісін есте сақтай отрырып процедура дұрыс шеңбер
сызады,яғни GetAspectRatio ... ... ... ... R
параметрі тік бұрыштағы пиксельдердің мөлшерін анықтайды.
Arc процедурасы.Доғал шеңбер сызу.
Тақырыпша:
Procedure Arc(Х,Y:Integer;BegA,EndA,R:Word);
BegA,EndA-сәйкесінше доғаның бастапқы және соңғы бұрыштары,
R-радиусы.
Бұрыштар ... ... ... ... және ... ... бұрыш вектордың солдан оңға қарай тік бұрышына ... де ... ... 0 ... және ... ... 359 ... толық шеңбер шығады.
Шеңбердің доғасын сызған кезде Circle ... ... ... ... ерекшелеп қолданылады.
Ellipse процедурасы.
Procedure Ellipse(Х,Y:Integer;BegA,EndA,RX,RY:Word);
Мұнда Х,Y—центрдің координаталары, BegA,EndA-сәйкесінше доғаның бастапқы
және соңғы бұрыштары; ... ... ... ... орналасқан радиустары.
1.7 Бояулар,толықтырулар,палитралар.
SetColor процедурасы.Шығарылатын сызықтармен бейнелер үшін ағымдағы түс
қалыптастырады.
Тақырыпша:
Мұнда ... ... ... түсін қалыптастырады.
Тақырыпша:
Procedure SetBkColor(Color:Word);
МұндаColor-фонның түсі;
Фонның түсі тек қана қара ... ... ... режиммен графикалық
режимнің айырмашылығы.Мұнда кез-келген түс болуы мүмкін.Фонға жаңа түс ... ... ... ... түсі әр түрлі екі учаскі бейнені шығаруға
болмайтындығын білдіреді.GGA адаптері үшін ... ... ... ... ... ... ... өзгертеді фонның түсі кез-келген басқа
түске ауысқаннан кейін,0(қара) түстен бастап өте жақсы ... ... де ... ПК-ң ... ... ... келесі бағдарлама
SetBkColor процедурасының жұмысын қарастырады.бағдарлама бірінің үстіне
бірі қойылған 10 тік ... ... ... ... ... ... Color-толықтырудың түсі.
Толықтырудың көмегімен қандай да бір бейненің фрагменттерін жасыруға
болады.
FloodFill процедурасы жабық ... ... ... ... және ... ... ... сақталған фигураның кез-келген нүктесінің координат,
Border-шекара сызығының түсі;Егер де ... ... ... ... басып кетеді.
Программаның листингі.
Program Brodvey;
Uses Graph,Crt;
Var i,a,y,x: integer;
Procedure init;
Var gD, gM, EC: integer;
Begin gD:=detect;
Init Graph(gD,gM,’’);
end;
begin init;
Set ... ... ... ... ... ... ... (75,10,75,32);
SetFillStyle (1,11);
FloodFill(110,25,1);
Line (110,70,180,70);
Line (180,70,180,125);
SetFillStyle (1,13);
FloodFill(125,85,1);
Line (180,55,250,55);
Line (180,55,180,70);
Line ... ... ... (165,15,130,15);
Line (350,15,350,62);
SetFillStyle (1,12);
FloodFill(205,65,1);
Line (300,10,300,15);
Line (300,10,335,10);
Line (335,10,335,15);
SetFillStyle (1,10);
FloodFill(325,12,1);
Line (350,25,380,25);
Line (380,25,380,52);
SetFillStyle (1,4);
FloodFill(370,26,1);
Line (370,10,370,25);
Line (370,10,400,10);
Line ... ... ... ... ... (1,9);
FloodFill(425,25,1);
Line (415,15,415,5);
Line (415,15,470,5);
Line (470,5,470,19);
SetFillStyle (1,6);
FloodFill(425,8,1);
Line (470,2,485,2);
Line (470,2,470,5);
Line (485,2,485,12);
SetFillStyle (1,10);
FloodFill(478,4,1);
Line (290,360,290,210);
Line (290,212,410,120);
Line (290,300,410,170);
Line (410,120,410,170);
SetFillStyle (1,3);
FloodFill(300,250,1);
SetFillStyle (1,3);
FloodFill(291,298,1);
Line (400,300,440,170);
Ellipse (425,194,55,120,27,28);
Ellipse (345,376,53,125,95,95);
Line ... ... ... ... ... ... ... (0,290,60,260);
Line (100,240,150,215);
Line (200,190,260,160);
Line (290,148,333,128);
Line (370,100,400,85);
Line (420,73,440,63);
Line (470,45,790,35);
SetFillStyle (10,15);
FloodFill(400,2,1);
Line (280,112,330,90);
Ellipse (335,110,350,100,20,20);
Ellipse (294,150,110,150,40,40);
Line (355,115,350,120);
Circle (342,125,110);
SetFillStyle (9,8);
FloodFill(342,125,1);
Line (260,130,240,140);
Line (260,130,280,130);
Line (280,130,335,105);
Line (280,130,285,120);
Line ... ... ... ... ... ... ... (9,8);
FloodFill(248,154,1);
Circle (280,152,10);
SetFillStyle (9,8);
FloodFill(280,152,1);
Arc(240,145,90,270,5);
SetFillStyle (1,7);
FloodFill(240,145,1);
SetColor(6);
Line (435,230,370,240);
Line (440,215,390,230);
Line (435,230,435,300);
Line ... ... ... ... ... ... (328,200,355,185);
Ellipse (365,210,160,290,33,50);
Line (340,185,340,193);
Circle (340,178,10);
SetFillStyle (1,6);
FloodFill(340,178,6);
Line (352,188,390,135);
Line (355,190,390,140);
Line (390,140,390,135);
Line (335,200,288,210);
Line (335,205,288,215);
SetFillStyle (8,1);
FloodFill(353,189,6);
SetFillStyle (1,1);
FloodFill(380,152,6);
Line (288,210,280,178);
Line (288,215,275,185);
Line (275,185,280,178);
SetFillStyle (1,1);
FloodFill(277,185,6);
SetColor(0);
Ellipse (395,200,0,360,5,3);
Line (390,200,390,210);
Line (400,200,400,210);
SetFillStyle ... ... ... ... ... ... (1,6);
FloodFill(513,105,1);
Ellipse (485,130,10,160,25,25);
Ellipse (535,115,19,160,25,25);
Ellipse (460,138,10,170,16,16);
Ellipse (460,138,160,8,15,8);
SetFillStyle (1,14);
FloodFill(463,140,1);
Begin
Ellipse (560,122,10,170,16,16);
Ellipse (560,122,160,8,15,8);
SetFillStyle (1,14);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,0);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,14);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,0);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,14);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,0);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,14);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,0);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle ... ... ... ... (1,14);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,0);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,14);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,14);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,0);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,14);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,0);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,14);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,0);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,14);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,0);
FloodFill(562,125,1);
Delay(30000);
SetFillStyle (1,14);
FloodFill(562,125,1);
Delay(30000);
repeat until keypressed;
closegraph;
end;
end.
Қорытынды.
Берілген курстық жұмысымда әр ... ... мен ... ... ... ... объектілерді қалыптастыруға
арналған.
Сіздің көрсеткен әр түрлі процедуралар мен функцияларды қолдана отырып,
автор әр түрлі ... ... және ... ... үйренді,
сонымен қатар фигуралардың қозғалысын көрсете білді.
Берілген программаны жазу ... ... ... ... ... ортада
жұмыс істеуге,әр түрлі сызықтардың ... ... ... дұрыс табуға үйренді.
Курстық жұмысымды ұсына отырып өте жақсы деген бағаға ... ... ... ... курс) С.В.Семенович.С.П б:Питер 2001г.
2.Основы языка Турбо Паскаль (Учебный ... ... ... ... и ... ... в ... и примерах, А.В.Милов. Харьков: ФОЛИО,
2002г.
4.Программирование. ... ... ... АСТ ... ... ... программирование, Ю.Кетков. А.Кетков СП б: БХБ/ Питербург 2002г.
6.Турбо Паскаль С.А.Немнюгин.-СП б: ... ... ... ... ... ... О.А.Меженный, Москва: изд.дом
«Вильямс», 2001г.

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









Ұқсас жұмыстар
Тақырыб Бет саны
Турбо Паскальда графикалық процесстерді қолдану25 бет
Турбо паскаль программалау тілінде графикалық объекттерді құру12 бет
Graph кітапханасын қолдану21 бет
Graph модулін қолдану21 бет
Turbo pascal6 бет
Turbo Pascal - дағы енгізу және шығару операторлары26 бет
Паскаль програмалау тілі туралы түсінік29 бет
Турбо паскаль графикалық режимі30 бет
Турбо паскаль программалау тілі жөнінде негізгі ұғымдар43 бет
Турбо Паскальдағы графикалық обьектілер22 бет


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


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

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

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

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

Email: info@stud.kz

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

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