Turbo Pascal бағдарламасындағы графикалық режим

I. КІРІСПЕ

ІI.НЕГІЗГІ БӨЛІМ ... ... ... ... ... ... ... ... ... ... ... ... ...4.8
2.1 Графикалық режимді тағайындау және одан шығу.
2.2 Графикалық режимдерге қолданылатын процедуралар
2.3. Графикалық информацияны шығару командалары

ІІI.ЕСЕПТІҢ ҚОЙЫЛЫМЫ ... ... ... ... ... ... ... ... ... 9.16
2.1. Есептің берілгені
2.2. Есептің алгоритмі
2.3. Программалау бөлімі
2.4. Программа жауабы
ІV. ҚОРЫТЫНДЫ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...17

ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР ... ... ... ... ... ... ... ... ... 18
Turbo Pascal- жоғары деңгейлі программалау жүйесі. Оның тұңғыш нұсқасын 1970 жылы Швейцария физигі Никлаус Вирт (Niklaus Wirth) ұсынған. Автор тілді алғашқы арифметикалық есептеу машинасын жасаған француздың ұлы ғалымы Блез Паскальдың құрметіне Паскаль деп атап, тіл атауын үнемі бас әріппен жазылуын сұраған.
Қазіргі дербес компьютерлердің пайда болуына байланысты тілдің Турбо Паскаль деп аталатын нұсқасы жасалды. Қазіргі уақытта бұл жүйенің бірнеше нұсқалары бар, соңғы жасалған ең қуаттысы 7.0 нұсқасы болып табылады, бірақ, программалау бастамасын жүйенің 5.5 нұсқасынан бастап үйренген дұрыс.
Сондықтан да қазіргі кезде Паскаль тілі кез келген саладағы күрделі есептерді шешу үшін пайдалануға болатын, кеңінен таралған стандартты программалау тіліне аналды.
Қазіргі дербес компьютерлердің графикалық информацияларды енгізу, шығару және өңдеуге арналған техникалық құрылғылары бар. Графикалық информацияны енгізу үшін сканер, ал шығару үшін дисплей экраны және плоттер пайдаланылады. Стандартты Паскальдың графикалық информациямен жұмыс істейтін командалары жоқ.
Турбо Паскаль жүйесіндегі графикалық информациялармен жұмыс істеу үшін GRAPH.TPU модулі пайдаланылады. Бұл модульде графикалық процедуралар мен функциялардың программасы машиналық тілде жазылған.
Турбо Паскальда әр типтегі тапсырмалардың жобасын құруға болады: бұлар есептелетін тапсырмалар, файлмен жұмыс істеу тапсырмалары, мәліметтер базасын жөндеу және т.б. Одан да тиімдісі және қызықтысы әртүрлі логикалық ойындарды модульдеу тапсырмасы болып табылады. Олар қолданушылардың назарын өзіне айударады және программа тілдерін оқып-үйренуге тұрақты қызығушылықты қалыптастырады.
Берілген курстық жұмыстың мақсаты Турбо Паскаль ортасында осындай ойындардың біреуін құру болып табылады. Ойынның аты «Жұмыс істеп тұрған сағат бейнесін шығару». Ойыншы тек сандарды емес сурет көріністерімен де жұмыс істейді.
1. Халықова К.З. Паскаль тілінде программалау (Оқу құралы) Алматы 2002ж
2. Ж.Қ. Масанов, Б.А. Бельгиев, А.С. Бижанова, Қ.Қ. Мақұлов Turbo Pascal Алматы, 2004ж
3. Н.С. Заурбеков, Б.Ж. Жұмажанов Алгоритмдеу және программалау тілдері (оқу құралы) Алматы, 2008ж
4. Бурин Е.А. Программирование на языке Турбо Паскаль. Учебное пособие по информатике.АГУ.Алматы.2000 г.
5. Абрамов И.Г., Трифонов Н.П., Начала программирование на языке Турбо Паскаль.М.: Наука, 1987
        
        Мазмұны:
I. КІРІСПЕ
ІI.НЕГІЗГІ БӨЛІМ……………………………………………4-8
2.1 Графикалық режимді тағайындау және одан шығу.
2.2 Графикалық режимдерге қолданылатын ... ... ... ... ... ... ... берілгені
2.2. Есептің алгоритмі
2.3. Программалау бөлімі
2.4. Программа жауабы
ІV. ... ... Pascal- ... ... ... ... Оның ... 1970 жылы Швейцария физигі Никлаус Вирт (Niklaus Wirth) ұсынған.
Автор тілді алғашқы арифметикалық есептеу машинасын жасаған ... ... Блез ... ... ... деп атап, тіл атауын үнемі бас
әріппен жазылуын ... ... ... пайда болуына байланысты тілдің Турбо
Паскаль деп аталатын нұсқасы жасалды. Қазіргі уақытта бұл ... ... бар, ... ... ең ... 7.0 ... ... табылады,
бірақ, программалау бастамасын жүйенің 5.5 ... ... ... да ... ... Паскаль тілі кез келген саладағы күрделі
есептерді шешу үшін ... ... ... ... ... тіліне аналды.
Қазіргі дербес компьютерлердің графикалық ... ... және ... ... техникалық құрылғылары бар. Графикалық
информацияны енгізу үшін сканер, ал шығару үшін дисплей экраны және плоттер
пайдаланылады. ... ... ... ... ... ... ... Паскаль жүйесіндегі графикалық информациялармен жұмыс істеу
үшін GRAPH.TPU модулі пайдаланылады. Бұл ... ... ... ... ... ... тілде жазылған.
Турбо Паскальда әр типтегі тапсырмалардың жобасын құруға болады: бұлар
есептелетін ... ... ... істеу тапсырмалары, мәліметтер
базасын жөндеу және т.б. Одан да тиімдісі және қызықтысы әртүрлі логикалық
ойындарды ... ... ... табылады. Олар қолданушылардың назарын
өзіне айударады және ... ... ... тұрақты қызығушылықты
қалыптастырады.
Берілген курстық жұмыстың мақсаты Турбо Паскаль ... ... ... құру болып табылады. Ойынның аты ... ... ... ... ... Ойыншы тек сандарды емес сурет көріністерімен де
жұмыс істейді.
І.НЕГІЗГІ БӨЛІМ
2.1 Графикалық режимді тағайындау және одан ... ... ... үшін ... оған ... келетін монитор
режимін орнату қажет. Жалпы алғанда, ... ... екі ... ... және ... ... ... пайдаланылады.
Компьютерді қосып, Турбо Паскаль жүйесін шақырғанда текстік режимде жұмыс
істейді. Графикалық режимді алу үшін GRAPH.TPU ... ...... ) ... ... графикалық режим INITGRAPH процедурасымен
инициализация ... ... ... инициализациялау дегеніміз – дисплей
адаптерінің жұмысын берілген ... ... ... ... ... экранды осы режимнің жұмысына көшіру. GRAPH ... ... оның ... ... мен ... ... ... режимді іске қосу:
INITGRAPH(Var Driver, Mode: integer;Path: string);
Мұндағы Driver – графикалық режимді анықтайтын параметр;
Mode – ... ... ... ... ... режим
параметрі;
Path – графиктік драйвер файлының атауы және жолы.
Driver мәні GRAPH ... ... ... жиынымен
шектеледі.Осы режимді тағайындағаннан ... GRAPH ... ... ... ... ... шығу үшін ... процедурасы пайдаланылады.
Графикалық режимді инициализациялау INITGRAPH (, , ... ... ... - ... ... ... типті айнымалы; – адаптердің ... ... ... ... ... ... ... режимнің номері);
– графикалық драйвердің файлына баратын жолды ... string ... 1. ... типі ... ... ... келуі тиіс. 2.
Драйвердің параметрі әдетте detect функциясымен беріледі; яғни ... ... ... - оны GRAPH ... ... ... болады,
мысалы, VGA немесе 9. Detect функциясын пайдаланғанда жоғары мүмкіндікті
режим тағайындалады. 3. Егер ... сол ... ... ... ... ... ... орналасқан каталогта болса, онда бос жол деп,
яғни ‘ ‘-2 апострофпен көрсетуге болады.
Графикалық режимнің тағайындалуының ... екі ... ... ... ... : integer, аргументсіз, инициализация
нәтижесінің коды үшін және GRAPH error () : string ... ... ... ... ... ... ... функциясы кез келген функция немесе ... ... ... ... ... Код мәтіндері: 0…14.
Егер код нолге тең болса, онда орындалуда қате жоқ. ... = ... ... ... тағайындалғандығын көрсетеді, яғни ... ; код – 3 – BGI ... ... табылмағандығын
көрсетеді. Көпшілік жағдайда тағайындаудағы қате – GRAPH модулінің немесе
драйвер файлының активті каталогта орналаспағандығынан ... ... ... үшін ... ... ... ұйымдастырған дұрыс:
1) Турбо Паскаль жүйесінің файлдары орналасқан каталогта GRAPH.TPU,
TURBO.TPL және BGI драйвер файлының бар ... көз ... ... ... да бір файл ... онда оны сол ... көшіріп жазу қажет.
Программада инициализация жасау үшін мынадай ... ... жазу ... GRT, ... driver, regim, error: integer;
s: char;

driver:= detect;
INITGRAPH (driver, regim, ‘ ‘);
error:= Graphresult;
if error 0 then
begin
writeln(‘ Графикалық режимде қате бар!’);
writeln (‘tokta!’);
S:=readkey
end;

Ескерту. GRT ... іске қосу ... ... ... ... ... режимдегі экран жұмысын басқаруға мүмкіндік береді. ... ... ... DELAY процедуралары тәрізді. Осындай
инициализациядан кейін, ... ... ... ... ал regim ... ... ... алады. Егер VGA адаптері мен EGAVGA. BGI ... ... driver =9, ал regim =2 ... ... режимді тағайындағаннан кейін пайдаланушы өзінің жұмысы
үшін әртүрлі команда ... Бұл ... ... ... топталады:
• графикалық экранды басқару үшін;
• графикалық информацияны өңдеу және шығару үшін;
• графикалық режимде текст шығару үшін.
Графикалық экранды басқару ... ... ... мен ... туралы информация алу;
• графикалық режимдердің мөлшерін және сипаттамаларын білу;
• графикалық экранның жұмысына қажетті режимді тағайындау;
• экранның графикалық ... ... ... ... ... ... терезені іске қосу
және ажырату;
• графикалық информациямен ... және фон ... ... ... графикалық курсормен басқару;
• экранды немесе терезені тазарту жатады.
Графикалық информациямен енгізу және шығару командалары:
... ... ... ... ... ... ... эллипс, доға, эллипс және шеңбер секторларын шығару
процедуралары;
• динамикалық жадыға графикалық экранның ... ... және оны ... ... шығару;
• экрандағы тұйықтарды берілген түстермен бояу немесе штрихтау.
Графикалық режимде экранға ... ... ... ... ... ... ... шығаруға мүмкіндік береді.
GRAPH модулінің командалары графикалық экранда кез келген бейнені
тұрғызуға мүмкіндік береді.
2.2 Графикалық режимдерге ... ... ... кейбіреуі жоғарыда айтылады.
- INITGRAPH- графикалық режимді тағайындау;
- DETECT- графикалық драйверді автоматты түрде анықтау
- CLOSEGRAPH- графикалық режимді жабу;
- ... жаңа ... ... ... ... ... ... немесе режим
номері;
- CLEARDevice-процедурасы – графикалық экранды тазалайды;
форматы: CLEARDevice; бұл процедура ... ... ... ... қалыпқа келтіріліп, курсор
экранның 0,0 нүктесіне ... ... ... ... ... ... (x1,y1,x2,y2,); мұндағы x1,y1,x2,y2 – тіктөртбұрыштың
сәйкес сол жақ жоғары және оң жақ төменгі координасы, ... егер true ... ... ... шекарасымен өтеді; ал false
мәнін қабылдаса, керісінше.
ClearViewPort процедурасы - терезені тазалайды; форматы:
ClearViewPort;
GetMaxX және GetMaxY функциясы – ... ... ... x және y ... ... ең ... ... мәнін
анықтайды. Типі: integer, форматы: GetMaxX, ... ... ... ... ... ... ... орналастырады;
форматы: MoveTo(x,y);
GETS және GETY функциялары курсордың ағымдағы координатасын анықтайды.
Форматы:
GETS және GETY
2.3. Графикалық информацияны шығару ... ... ... ... ... ... графикалық
нүкте шығару операциясы болып табылады. Экрандағы кез келген бейне керекті
түске ... ... ... ... құралады.
Графикалық экранға жиі пайдаланылатын графикалық обьектілерді ... үшін ... ... ... ... ... ... шеңбер
және эллипс секторларын тұрғызатын процедуралар GRAPH ... Бұл ... ... осы ... ... босатады(құтқарады). Бірақ модульде бір ғана ... ... ... ... шығаратын PutPixel процедурасы бар.
Графикалық экранға нүкте шығару
PutPixel процедурасы экранға нүктені көрсетілген ... ... ... PutPixel (x,y,C); мұндағы x,y – типіWord, нүктенің
координатасы, ... ...... ... ... ... ... анықтайды. Форматы: GetPixel(x,y,C); мұндағы x,y ... ... ... ЕСЕПТІҢ ҚОЙЫЛЫМЫ
2.1. Есептің берілгені
Программа құрастыру, яғни « Секунд және минут стрелкалары бар ... ... ... бейнесін экранға шығару ». Паскаль ... ... ... ... ... ... құру.
2.2.1.1. Vector procedure қосалқы программасын құру.
2.2.1.1. LineTo қосалқы процедурасын құру.
2.2.2. Негізгі процедура программасын құру.
2.2.2.1. Графикалық режимді іске ... ... ... Circle қосалқы процедурасын құру.
2.2.2.4. SetFillStyle қосалқы процедурасын құру.
2.2.3. Repeat Until ... ... ... ... Move To ... ... ... SetColor қосалқы процедурасын құру.
2.2.3.3. OutTextXY қосалқы процедурасын құру.
2.2.4. CloseGraph процедурасын құру.
2.2.5. Программаны орындау
2.2.1. Программа бөлімін құру.
2.2.1.1. Vector ... ... ... ... ... түрі:
procedure Vector(а: integer; l: integer); OX осімен вектор арасындағы
бұрыш.
Бұрыштың градустық ... ... ... ... ... Сол үшін оны тұрақтылар бөлімінде сипаттап кетеміз.Яғни:
const
GRAD=0.0174532;
GetX =0;, GetY=0; деп ... ... тік және ... ... ... сол жақ ... бұрышынан нөлден басталып
есептеледі.
2.2.1.1. LineTo қосалқы процедурасын құру.
LineTo ағымдағы ... ... ... ... дейін түзу
тұрғызу процедурасы.
Процедураның жазылуы :
Procedure LineTo (X,Y : Integer);
Мұндағы X және У – нүкте координаталары.
Түзудің түсі SetColor ... ... ... ... ... түрі ... ... көмегіменен анықталады.
2.2.2. Негізгі процедура программасын құру.
2.2.2.1. Графикалық режимді іске қосу.
Айнымалылар бөлімінде grDriver және grMode ... ... ... ... Driver графикалық режимді анықтайтын параметр;
Mode орнатылған драйверге байланысты берілетін графиктік режим параметрі.
Осыдан ... ... ... ... және ... ... Уақытты, минут және секунд санын анықтап, енгіземіз.
Минут пен секунд тілдерінің бұрыштық бұрылуының типін сипаттаймыз. ... ... пен ... ... ... GraphResult функциясы.
GraphResult; Графиктік процедурамен соңғы байланыс жасағанда қате
болмаса GrOk ... мәні 0 ... ... ары ... ... ... ... -14-ке дейін ) қате кодын ... ... ErrCode := ... деп меншіктеп кетеміз. Егер ErrCode= GrOk
деп шарт беретін болсақ, GrOk тұрақтысының анықтамасы бойынша қате жоқ ... ... соң ... ары ... ... ... алады.
Сағаттың орталық координаталарын және циферблатаның диаметріне мән
береміз. Бастапқы жағдайдағы тілдер : тіл мен ОХ ... ... ... болып есептелінеді.
2.2.2.3. Circle қосалқы процедурасын құру
Circle шеңбер салу ... Circle ...... ... центр және радиус бойынша шеңбер сызады. Процедураның жалпы
жазылу түрі : ... ... : integer; Rad : ... Х,У – ... ... ... типі ... – типі Word болып келген шеңбердің радиусы.
Мысалы, Turbo Pascal ... ... ... ... соң ... бес ... салу программасын қарастырайық :
Program grafica;
Uses Graph;
Var
Gd, Gm : Integer;
Radius : Integer;
Begin
Gd : = Detect;
InitGraph(Gd, Gm, ... ... grOk ... ... Radius : =1 to 5 do
Circle (100, 100, Radius * 10 ... ... ... ... ... процедурасы шаблонның коды мен тұйық номері бойынша
толтыру стилін тағайындайды.
Форматы : SetFillStyle (шаблон коды, С)
SetFillStyle (Fill, Color : Word); процедурасы ... ... ... ... ... ... түс
1. толық боялады
2. тор ... ... ... ... \\\\\\\
6. ·\·\·\·\·\
7. ######
8. ... ... Repeat Until ... ... ... ... оператор көп жағдайларда қайталаудың саны белгісіз болған жағдайда
пайдаланылады. Оның жазылу түрі ... ... ... ... Repeat – қайтала, Until – соған дейін қызметші сөздері. Оның
орындалуы: қашан шарттың мәні ... ... ... ... қайталана
береді.
Алгоритмдік тілде бұл қайталануды «Цикл – дейін» дейді, оның ... ден ... ... ... ... ... ceалдымен
циклдың денесі орындалады да, одан соң шарт тексеріледі.
Оператордың соңы Until қызмет ... ... ... ... ... және ... ... орнына жазылатын Begin және
End қызметші сөздері арқылы жазылмайды.
Егер қайталау денесінде көшіру операторы болып, ол ... ... ... ... берсе, онда циклдың орындалуы ары қарай
жалғаспайды.
2.2.3.1. Move To қосалқы процедурасын құру.
Move Tо процедурасы ағымдағы ... ... ... ... ... MoveTo (Х,У : ... Х және У – ... орнын ауыстыруға берілетін экрандағы
нүкте ... SetColor ... ... құру.
Бейнеленетін символдар мен түзулердің түсін орнату процедурасы.
SetColor процедурасының жалпы жазылуы ... (Color : Word) ... Color – ... ... (1); – ... бейнелер көк түске боялып шығарылады.
2.2.3.3. OutTextXY қосалқы процедурасын құру.
OutTextXY тексті берілген координаталар бойынша шығару ... ... ... ... : Integer; Text : ... Х және У – текстің басталып жазылатын ... ...... ... CloseGraph процедурасын құру.
Графиктік режимді жабу процедурасы. Процедура жазылымы:
CloseGraph;
Бұл ... ... ... ... ... параметрлерден
босатылады.
2.2.5. Программаны орындау.
UsesGraph , Crt;
Procedure Vector (a: ... integer ... ... ... Round ... (a* ... Round ... (a*GRAD));
LineTo (x1,y1);
end;
(негізгі процедура)
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
res: integer;
x0,y0: integer;
d: integer;
s: integer;
m: integer;
as: integer;
am: integer;
sts: string;
stm: string;
begin
grDriver := ... ... grMode, ... := ... ;
If ErrCode = grOk ... y0:=80;
d:=50;
s:= 0;
m:=0;
as:=90;
am:=90;
Circle(x0,y0,d+5);
SetFillStyle (SolidFill,0);
Str (m,stm);
repeat
MoveTo(x0,y0);
SetColor (Yellow);
Vector (as,d);
MoveTo(x0,y0);
SetColor(Green);
Vector(am,d-10);
Bar (10, 10, 50,20);
Sts(s, sts);
OutTextXy(10,10, stm+’:’+sts);
Delay (100);
SetColor(0);
MoveTo(x0,y0);
Vector (as,d);
MoveTo(x0,y0);
Vector(am,d-10);
s:=s+1;
if s=60 ... am

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









Ұқсас жұмыстар
Тақырыб Бет саны
Microsoft office14 бет
Turbo pascal тілінің негізгі элементтері туралы83 бет
Turbo Pascal жүйесіндегі графиканы ұйымдастыру технологиясы21 бет
Turbo pascal программалау тілі туралы8 бет
Ханой мұнарасы10 бет
10 сынып бағдарламасындағы элементтер химиясы курсы бойынша табиғатқа әсері бар деген негізгі тақырыптар бөліп алып, осы элементтердің адам ағзасымен, қоршаған ортамен байланысты экологиялық, химиялық және табиғатты қорғау ұғымдарының проблемалары негізінде бағдарламалар дайындау58 бет
1986 жылдан 2002 жылдар аралығындағы салқын кездегі Алматы және Астана қалалары бойынша ауа температурасының термикалық режимі38 бет
Adobe Photoshop – графикалық редакторы12 бет
AutoCAD графикалық жүйесі26 бет
Autocad графикалық редакторы, оның ерекшеліктері мен артықшылықтары. графикалық редактордың сипаттамасы, меню типтері6 бет


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


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

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

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

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

Email: info@stud.kz

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

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