Турбо-паскальдағы графикамен жұмыс

Мазмұны

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

І Graph стандарттық модулі ... ... ... ... ... ... ... ... ... ... ... ... ... ..4
1.1 Процедуралар мен функциялар ... ... ... ... ... ... ... ... ... ... ..5
1.2 Координаттар, терезелер, беттер ... ... ... ... ... ... ... ... ... ... .7
1.3 Көпбұрыштар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .8
1.4 Доғалар, шеңберлер, эллипстар ... ... ... ... ... ... ... ... ... ... ..9
1.5 Тексті шығару ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...9

ІІ Графикалық координаталар жүйесі ... ... ... ... ... ... ... ... ... ...10
2.1Графикалық экран мен элементтердің параметрлерін қою процедуралары ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .11
2.2 Графикалық элементтерді бейнелеу процедуралары ... ... ... ...12
2.3 Графикалық экран мен элементтердің параметрлерін қою функциялары ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...12

ІІІ Есептің берілгені ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .14
3.1 Программаның баяндалуы ... ... ... ... ... ... ... ... ... ... ... ...15
3.2 Енгізілген мәліметтер және шыққан графика ... ... ... ... ... ... 17

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

Қолданған әдебиеттер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...19
Кіріспе
Дисплей экраны нүктелер жиыны болып табылатын төртбұрышты аймақ болып табылады. Ол графикалық және мәтіндік режімдерде жұмыс атқара алады. Графикалық режімде экранның әрбір нүктесін түрлі түске бояп, сол түстер арқылы сызық, мәтін және әр түрлі бейнелер кескіндеуге болады.
Графикалық программалау процесі тиімділігін арттыру мақсатында Borland International фирмасы GRAPH арнайы программалар кітапханасын жасап шығарған болатын, онда қазіргі кездегі мониторлардың барлық типтерімен жұмыс істейтін, экранға түрлі мөлшердегі қаріптер шығара алатын драйверлер жиыны бар.
Экранға мәлімет шығаруды аппараттық жағынан сүйемелдеу екі модуль – бейнеадаптер және бейнемонитор арқылы қамтамасыз етіледі. Бейнемонитор- немесе дисплей- мәтін және графикалық бейнелер шығарылатын құрылғы, ол электрондық сәулелік түтікшеден немесе сұйық кристалды тақтадан тұрады. Дисплей теледидар сияқты жұмыс істеп, экрандағы бейне секунд сайын 25 рет жаңаланып отырады. Адамның көзі бейнелердің мұндай жиілікпен ауысуын байқай алмайды да, мониторда сол бейне қозғалмай тұрғандай болып көрінеді. Экрандағы бейнелер кішкене нүктелерден (пиксельдерден) тұратын қатарларға біріктірілген. Сондықтан экранның басқарылатын ең кіші элементі пиксель (pixel) болып табылады. Экрандағы кез келген бейне осы пиксельдер арқылы салынады. Графикалық режімде экран тіктөртбұрышты пиксельдер жиынынан құралады да, мұнда оның кез келген пикселінің түсін әр түрлі етуге мүмкіндік бар.
Graph модулінің жалпы сипаттамасы
Graph модулі ІВМ – типтес дербес компьютерлердің графикалық адаптерлерімен жұмыс істеуіне есептелінген, графикалық процедуралар мен функциялардың, тұрақтылардың, айнымалылар мен типтердің қуатты кітапханасы болып табылады. TurboPascal-7.0 ортасын қолданатын Паскаль тілінде программалауда Graph модулінің 132 тұрақтысы, 7 қосымша типі, 2 айнымалысы, 57 процедурасы және 22 функциясы пайдаланылады.Турбо
Қолданылған әдебиеттер

1. Бурин Е.А “Программирование на языке Турбо Паскаль” А.,2000.
2. Досмайлов Т.К. “Программалау тілі Паскаль” А.,1996
3. Нақысбеков Б., Халыкова Б. “Паскаль тілінің негіздері” А.,1998
4. Новикав В.С., Парфилова Н.Н., “Паскаль” М.,1994
5. Семалико Г.Л., Салтыков Г.Л., “Программирование на языке Турбо Паскаль” М., 1994
6. Фаронов В.В Turbo Pascal 7.0 – Москва, издат. «Нолидж», 2000 г.
7. Гусаева А.И - Учимся программировать Pascal 7.0. Задачи и методы их решения – М.Диалог – Мифи, 1998.
        
        Турбо-Паскальдағы графикамен жұмыс
Мазмұны
Кіріспе…………………………………………………………………….3
І Graph стандарттық модулі……………………………………………...4
1.1 Процедуралар мен функциялар……………………………………5
1.2 Координаттар, терезелер, ... ... ... шеңберлер, эллипстар…………………………………...9
1.5 Тексті шығару………………………………………………………9
ІІ Графикалық координаталар жүйесі…………………………………10
2.1Графикалық экран мен ... ... ... ... ... ... ... Графикалық экран мен элементтердің ... ... ... ... ... ... ... мәліметтер және шыққан графика…………………...17
Қортынды………………………………………………………………..18
Қолданған әдебиеттер…………………………………………………..19
Кіріспе
Дисплей экраны нүктелер жиыны болып табылатын төртбұрышты аймақ болып
табылады. Ол ... және ... ... жұмыс атқара алады.
Графикалық режімде экранның әрбір нүктесін ... ... ... сол ... сызық, мәтін және әр түрлі бейнелер кескіндеуге болады.
Графикалық программалау процесі тиімділігін арттыру мақсатында ... ... GRAPH ... ... ... жасап шығарған
болатын, онда қазіргі кездегі мониторлардың ... ... ... ... ... ... қаріптер шығара алатын драйверлер жиыны
бар.
Экранға мәлімет шығаруды аппараттық ... ... екі ... ... және ... ... қамтамасыз етіледі. Бейнемонитор-
немесе дисплей- мәтін және ... ... ... ... ол
электрондық сәулелік түтікшеден немесе сұйық кристалды тақтадан тұрады.
Дисплей теледидар сияқты жұмыс істеп, экрандағы ... ... ... 25 ... ... ... көзі бейнелердің мұндай жиілікпен ауысуын байқай
алмайды да, мониторда сол ... ... ... болып көрінеді.
Экрандағы бейнелер кішкене нүктелерден (пиксельдерден) ... ... ... экранның басқарылатын ең кіші элементі пиксель
(pixel) болып табылады. Экрандағы кез келген бейне осы ... ... ... ... экран тіктөртбұрышты пиксельдер жиынынан
құралады да, мұнда оның кез ... ... ... әр ... ... ... модулінің жалпы сипаттамасы
Graph модулі ІВМ – ... ... ... графикалық
адаптерлерімен жұмыс істеуіне есептелінген, графикалық процедуралар мен
функциялардың, тұрақтылардың, айнымалылар мен типтердің ... ... ... TurboPascal-7.0 ортасын қолданатын Паскаль тілінде
программалауда Graph модулінің 132 тұрақтысы, 7 қосымша ... 2 ... ... және 22 ... ... ... ... деп аталатын арнайы ... ... ... ... ... ... ... |CGA, MCGA ... |EGA, VGA ... ... ... ... |AT&T 6300 (400 жол) ... |3270PC ... ... ... видеоадаптерлер монитордың көрсету мүмкіндіктерін өзгерте
алатын бірнеше графикалық режимде жұмыс ... ... ... режимде
экранда 40(80) х 25 символ бейнелеуге болатын болса, графикалық режимде
онда бейнеленетін ең кіші ... ... ... деп ... көп қолданылатын VGA адаптерінің қалыпты режимінде экранда 640 х
480 пиксел көрінеді және олардың 16 ... ... ... Uses Graph ... программа басына орналастырғанда ғана Graph
модулінің қызметін толық пайдалануға мүмкіндік бар.
• Init Graph(Gd, Gm, ... ... ... ... ... автоматты түрде тауып, сәйкес графикалық ... ... және оны ... ... ... `c:\TP7` - драйвер файлына апаратын жол. Графикалық драйверлерді
анықтау (Gd) және олардың жұмыс режидерін қою (Gm) ... ... ... ... ... ... ... |Gm ... |EGALo =0 ... ... 4 бет} |
|=0 | ... =1|EGAHi =1 ... ... 2 бет} ... =2 |EGA64Lo =0 ... ... 1 бет} ... ... =1 ... 4түс; 1 бет} |
|EGA64 =4 ... ... 1 бет; 256K: 2 бет } ... =5 |VGALo =0 ... ... 4 бет} ... =6 |VGAMed =1 ... ... 2 бет} ... =7 |VGAHi =2 ... ... 1 бет} ... =8 |PC3270Hi =0 ... 1бет} ... ... =0 {640x480; 256 түс } ... =10 ... =1 ... 256 түс} ... ... ... ... өзге мәні (қателік коды) режимге көшу
қателігін ... ... ... графикалық драйверді жадтан шығарып,
видеодаптердің мәтіндік режимін қалпына келтіреді.
Graph стандарттық модулі
Компьтердің ... ... және Turbo Pascal ... ... ... ... ... күйітекстік режимде жұмыс істеуін
сай келеді. Сондығтан, компьютердің графиктік мүмкіншіліктерін ... ... ... жұмысын графиктік режимге инициализациялау керек.
Программа жұмысының жұмысының аяғында ... ... ... ... процедуралардың әрбір нақты адаптермен жұмыс істеуі – керекті
драйверлерді қосу арқылы жүзеге асады. Графиктік ...... ... ... ... ... Borland ... адаптер түріне арналған графиктік драйверлері бар. Бұл драйверлер
BGI каталогында ... ... ... ...... және ... санымен сипатталады.
Графикалық режимде жұмыс істеуге арналған барлық процедуралар мен
функциялар Graph модулінде орналасқан. ... ... басы ... ... ... Графиктік режимге көшу үшін Init Graph ... ... ... ... жолы Uses Graph деп ... онда ... нүктелерді, түзулерді, ... ... ... ... Graph модулі Паскальға процедуралар мен басқа
құралдар Graph қолдануға мүмкіндік береді. Осы ... ... ... ... ... [7]-ден алынды.
Графикалық режимге ауысу және текстік режимге қайту.
Дербес компьютерді қосқаннан кейін, Турбо Паскаль ортасынан іске қосылған
программа экранның текстік ... ... ... ... ... ... әрбір программа дисплей адаптерінің ... ... ... қажет.
Жұмыс аяқталғаннан кейін компьютер текстік режимге қайта ... ... ... ... жұмыс істеуі.
Белгілі бір адаптер арқылы графикалық процедураларды баптау ... ... қосу ... ...... техникалық құрылғыларын басқаруға мүмкіндік
беретін арнаулы программа.
Графикалық драйверлер графикалық режимде дисплей адаптерін ... ... жеке BGI ... ... BGI ... (Borland
Graphics Interface – Borland фирмасының графикалық ... ... ... ... ... режимде жұмыс істеуге мүмкіндігі
бар. Бұл режимде экран ... ... ... ...... ... ... онымен қатар оларды программа көмегімен
басқаруға болады.
Қазіргі кезде көбінесе 800х600, ... ... шешу ... бар, 256 ... ... түстер реңкі бар супер – VGA адаптерлері (SVGA) қолданылады.
Бірақта Graph кітапханасында олар үшін ... жоқ. ... аса көп емес ... ... қолданады.
Процедуралар мен функциялар
InitGraph процедурасы. Адаптер жұмысын ... ... ... ... ... (var Driver, Mode: integer; Path: ... Driver – integer ... айнымалы, графикалық драйвердің типін
анықтайды;
Mode – сол типті ... ... ... ... ... режимін
береді;
Path – драйвер файлының аты және оны іздеу ... бар string ... ... әр түрлі режимдерде жұмыс істей алады. Адаптерге керекті
жұмыс режимін көрсету үшін, Mode айнымалысын қолданады. Мысалы:
Const
{Адаптер VGA:}
VGAHi=2 {640х480}
Егер компьютер ... типі ... ... программаның жұмысы кез
келген адаптермен істелетін болса, автоматтық түрде драйвер типін анықтау
процедурасы шақырылады:
Driver:= Detect; ... Driver:= ... (Driver, Mode, (D:\Lang ... ... ... ... ... алатын адаптерлерге максимал санмен
кодталған жоғарғы режим таңдалады.
CloseGraph ... ... ... ... ... ... ... жұмысына көшеді.
Процедура тақырыбы:
Procedure CloseGraph;
Келесі программа графикалық режимнен текстік режимге ... және ... pr1 ... ... Driver, Mode, Error: Integer;
Begin
{Графикалық режимді қою }
Driver:= Detect;
InitGraph (Driver, Mode, (D:\Lang Tpascal.71\BGI();
Error:= Graph Result; {Нәтижені еске сақтау }
if Error grOK then ... ... (Graph Error Msg (Error)) ... ... жоқ}
begin
Writeln ((Бұл графикалық режим();
Writeln (( (Enter-ді(шертіңіз…(:20);
Readln;
{Текстік режимге көшеміз}
Restore CRT Mode;
Writeln ((Бұл ... ... ... Graph Mode (Cet Graph Mode ... ... ... ... Graph
End;
End.
Компьютер мен монитор текстік және графикалық екі режимде жұмыс істей
алады. Бір ... ... ... көшуі программа арқылы орындалады.
Қарапайым фигураларды салу
Монитордаң графикалық ... ... ... 640 ... мен ... пикселге бөлген болсын делік. Режим басқадай болса, оны оңай ауыстыруға
болады.
Координаттар, терезелер, беттер
Графикалық ... мен ... ... ... ағымды
позицияны беретін ағымды көрсеткіш (текущий указатель) қолданады. Осы
көрсеткіштің орны ... 0,0 ... ... сол жақ ... ... және GetMaxY ... Экранның горизотальді және
вертикальді координаттарының максимал өлшемдерін қайтарады (береді).
GetMaxX және GetMaxY ... ... ... ... ... ... өлшемдерін Integer типімен қайтарады.
Set View Port процедурасы. Графикалық ... ... ... ... Set View Port ... integer; Clipon: Boolean);
Мұнда x1… y2 – терезе бұрышының жоғарғы сол жақ (х1,y1) және оң ... (х2,y2) ... ... Clipon – ... ... бөлігін кесіп тастауын беретін Boolean типті өрнек. Осы ... үшін ... ... on = True; ... ... включить отсечку}
Clip off = False;{ Қиюды қоспау- Не включать отсечку }
Clip on параметрінің жұмысын келесі программа ... ... ... on ... ... ... ... pr2 (output);
Uses Graph, CRT;
Var x,y,e: Integer; k: integer;
x11, y11, x12, y12, {терезенің координаттары}
r, ... ... Video:= False; ... редимді қосу}
x:=0; Init Graph (x,y, (D:\Lang( (s \Lang ... ... Graph Result; if e grOK ... (Graph Error Msg(e)) ... ... ... шешу ... еске ала отырып, коор-ды есептеу}
x11:= GetMaxX div 60; x12:= GetMaxX div 3;
y11:= GetMaxY div 4; y12:= ... ... div ... ... ... ... (x11, y11, x12, y12);
{терезеде төрт шеңбер салынады}
Set View Port (x11, y11, x12, y12, Clipon );
For k:=1 to 4 ... ... ... ... күтеміз}
If Read Key =#0 then k:= ord (Read Key);
Close Graph
End; end.
MoveTo процедурасы. Көрсеткіштің жаңа ағымды орнын ... ... MoveTo (x,y: ... x,y – ... ... және ... бойынша жаңа
координаттары.
MoveRel процедурасы. Көрсеткіштің салыстырмалы коор-динаттардағы жаңа
орнын береді.
Procedure MoveRel (dx,dy: ... dx,dy ... және ... ... жаңа ... ... Device процедурасы. Графикалық экранды тазартады. Осы процедура
экранды SetBkColor процедурасы бойынша ... ... ... Clear ... View Port ... ... ... немесе барлық экранды
тазартады. Терезені тазартқанда ол ... ... 0 ... ... ... Clear View ... процедурасы. Бұрыштарының берілген координаттары бойынша
төртбұрыш сызады. ... ... ... ... x1…y2 – ... сол жақ ... (x1,y1) және оң жақ төменгі
(x2,y2) бұрыштарының координаттары. Төртбұрыш ағымды түс пен сызық ... ... ... нүктелерінің координаттарымен берілген кез
келген ... ... ... DrawPoly (N: word; var ... N – екі ... нүктелерімен қоса, сыну нүктелерінің саны; Points –
сыну нүктелерінің ... бар ... ... ... ... ... word ... екі мағынамен беріледі: біріншісі
горизонтальды, 2-сі вертикальді ... ... Олар үшін ... ... типті қолданады:
type PointType = record
x,y: word
end:
Сызбаны жасау кезінде ... ... түсі мен ... ... ... Шеңберлер, Эллипстар
Мұнда x1…y2 – ортаның координаттары; r – радиус пикселмен. Шеңбер ағымды
түспен ... ... ... ... стильмен қойылады, сызық түрі ылғида
SolidLn (бүтіндей).
Arc процедурасы. Шеңбер доғасын сызады. Тақырып:
Procedure arc (x,y: integer; ... ... x,y – орта ... ...... ... және аяқтағы
бұрыштары; r – радиус. Бұрыштар сағат тілі ... ... ... және ... ... ... бұрыш вектордың горизон-таль
бағытымен солдан оңға қарай сәйкес болады. Егер бұрыштың бастапқы мәні 0-ге
және соңғы мәні 359 деп ... ... ... ... Шеңбердің доғасын
сызғанда сызық пен радиус жөнінде Circle ... ... ... ... ... ... Тақырып:
Procedure ellipse (x,y: integer; BegA,EndA, rx,ry: word);
Мұнда x,y – орта ... ...... ... және ... rx,ry- ... берілген элдипстің горизонтальді және
вертикальді ... ... ... Circle ... сызықтар, Arc
процедурасындағы бұрыштар ... ... ... ... ... ... ... келістірілсе, дұрыс
шеңбер сызылады. Келесі программа бойынша әр түрлі радисутар қатынасында үш
эллипстік доғалар сызылады. 2- ... ... ... ... ... әр түрлі стандарттық процедуралар
мен функциялар бар. Тексті әр түрлі шрифтармен горизонталь және ... әрі ... ... ... болады.
OutText процедурасы. Көрсеткіштің аіымды орнынан бастап ... ... ... OutText (Txt: ... Txt – шығарылатын жол. Жол қойылған стиль мен тегістеу бойынша
шығарылады. Егер ... ... ... ... штрихталған шрифтарды
қолданғанда олар кесіп тасталынады, ал стандарттық шрифтар шықпайды.
OutTextXY процедурасы. Жолды берілген жерден бастап шығарады.
Procedure ... (x,y: integer; Txt: ... x,y- ... ... ... Txt – ... жол. OutText
процедурасынан айырмасы шығару координатасы ғана. Көрсеткіш ... ... ... ... ... ... ... стилін қояды.
Тақырып:
Procedure SetTextStyle (Font, direct, size: word);
Мұнда Font- шрифтің код ... ... ... ... ... ... ... үшін төмендегі алдын ала анықталған константаларды
қолданады:
Const
Default Font=0; {нүктелі шрифт 8х8}
Triplex Font=1; {үш есе үлкен шрифт TRIP.CHR}
Small Font=2; ... ... ... ... ... ... Font=4; {готикалық шрифт GOTH.CHR}
Графикалық координаталар жүйесі
Графикалық координатталар ... ... ... ... ... ... ... реттік нөмірі
алынады. Мысалы, 640 х 480 режимінде х, у ... ... 0≥ у≥479 ... ... х ... мәні
оңға, ал у координатасының мәні ... ... ... х, ... бүтін мәндерді ғана қабылдайды .
Нүтені экранда бейнелеу үшін оның декарттық (x,y) ... (х, у) ... · ... –my · y -dy
формулаларын қолданып түрлендіруге болады. Мұндағы dx және dy ... сол жақ ... ... ... ... ... етеді, ал
mx, my айнымалыларының мәндері
rx=mx · x+1,
ry=my · y+1
шарттарын ... тиіс (x және y ... ең ... ... ... ... экранның центріне
орналастыру қажет болса
dx=rx div 2, dy= ry div ... ... ... мен элементтердің параметрлерін қою процедуралары
|Процедура ... ... Move ... (x,y) ... ... ... Move ... (dx,dy) ... ... ... | ... ... |Экранды алынған режимге көшіреді және оны ... ... | ... Set Color (c:word) |Суреттің түсін анықтайды, с: 0-қара, 1-көк, 2-жасыл,|
| ... ... ... ... сұр, |
| ... сұр, ... көк, ... ... ... |
| ... ... ... ... ... |
| ... ... ... (c:word) |Экран төсегінің түсін анықтайды ... Clear Device ... (0,0) ... ... және ... төсек|
| ... ... ... ... ... және ... ... |
|(s,t:word) |s: ... ... ... |
| ... ... |
| |t: ... ... ... ... ... ... параметрлерін анықтайды, |
|word) ... ... ... (0,1), r-шрифт |
| ... ... ... және оның ... ... |
|) |s: ... түсімен толтыру, 1-берілген түспен |
| ... |
| | |
| ... ... ... ... ... ... стилін және оның түсін |
|(s:FillPatternType, ... ... тип: ... |FillPatternType=array[1..8] of byte ... ... ... ... ... ... | ... |Көрінетін беттің нөмірін анықтайды ... | ... ... ... ... ... integer; | ... On: Boolean ) | ... Palette |с ... реңін өзгертеді ... | ... ... түс ... ... ... ... | ...... ... жасыл, көк құраушыларын өзгертеді |
|(c,r,g,b: Shortint) |(0≤ r,g,b ≤63) ... ... ... ... ... ... Put Pixel (x,y: ... (x,y) ... ... с түспен ... c: word) ... ... ... Line ... ... (x1,y1) және (x2,y2) болатын екі |
|integer) ... ... ... сызады ... ... ... (dx,dy) ... ... ... |
|integer) ... ... LineTo (x,y: ... (x,y) ... ... ... |
|integer) ... ... ... ... ... координаталары (x1,y1) және|
|(x1,y1,x2,y2: integer) |(x2,y2) болатын тіктөртбұрыш сызады ... DrawPloy (n:word; M:|n- ... ... ... ... ... |
|array [1..n]of |PointType=record x,y,: integer; end. ... | ... Circle (x,y: ... (x,y) ... және ... r ... |
|integer; r: word) |шеңбер сызады ... (x,y: ... (x,y) ... және ... r ... ... word) |шеңбердің бастапқы және соңғы бұрыштары a1және a2-ге|
| ... тең ... ... ... Ellipse (x,y: ... (x,y) нүктесінде, координат остері ... ... ... радиустері xr,xy болатын элипсің |
|word) ... және ... ... ... a2-ге ... |
| |тең ... ... ... (x,y: ... ... ... ... (x,y) |
|integer; c: word) ... ... ... ... ... ... |
| ... түсі ... ... ... ... нүктеден бастап мәтін жолын экранға|
| ... ... ... ... ... түрде жатық (х) және тік жол (у) |
|(x,y:word) ... ... х: 0-сол ... |
| ... 2-оң ... у: ... ... |
| ... ... ... (x,y: ... (x,y) ... нүктеден бастап мәтін |
|integer; s: string) |жолын экранға шығарады ... ... ... ... ... (x1,y1) ... ... (x2,y2) ... ... ... |
| ... параметрлерге сәйкес толтырады ... (n:word; M: |n- ... ... ... ... ... [1..n]of |PointType=record x,y,: integer; end. ... | ... (x,y: ... (x,y) ... және ... r болатын |
|integer; a1,a2,r: ... ... және ... ... ... ... ... тең секторын толтырады ... (x,y: ... (x,y) ... ... ... ... xr,xy: word) |бағытындағы радиустері xr,xy болатын элипсті |
| ... ... ... ... ... ... (x,y: integer;|Центрі (x,y) нүктесінде, радиустері xr,xy болатын ... xr,xy: word) ... ... және ... бұрыштары a1және a2-ге |
| ... тең ... ... ... ... жағы ... тіктөртбұрыш болатын және d |
|integer; top: Boolean) |қалыңдығы бойынша параллелипипед сызады. Top=true |
| ... онда оның ... жағы ... top=false |
| ... ... ... ... көрсетілген тіктөртбұрышты фрагментін |
|(x1,y1,x2,y2: integer; |жадыда сақтайды ... pointer) | ... ... |Жадыда сақталған кесін фрагментін берілген режимге ... A: pointer; ... ... ... ... ... ... |
|SortInt) | ... ... мен ... ... қою ... ... ... integer |Экранның жатық жолы бойынша ең үлкен пиксел санын |
| ... ... GetMaxY: integer ... тік жолы бойынша ең үлкен пиксел санын |
| ... ... GetX : integer ... ... х ... береді |
|Ф: GetY: integer ... ... у ... береді ... word ... ... ... ... ... word ... ... ... ... ... ... word ... проц. Пайдаланылатын түстін ең көп нөмірін|
| ... ... ... ... ... түсін |
|word ... ... ... салу және оны ұшыру программасы
Программаның баяндалуы
Program Racket;
Uses graph, crt;
Var gd,gm: integer;
i,driv,mode,y,y1: integer;
ch: char;
begin
driv:=detect;
initgraph (driv,mode, (();
repeat
y:=y-5;
line (162,75+y,200,200+y);
line (200,200+y,200,450+y);
line ... ... ... ... ... (250,475+y,225,450+y);
line (225,475+y,200,450+y);
line (100,475+y,75,475+y);
line (75,475+y,75,375+y);
line (75,375+y,125,300+y);
line (125,450+y,100,475+y);
circle(162,212+y,12);
circle(162,162+y,12);
delay (500);
cleardevice;
until (keypressed);
closegraph;
end.
Қортынды
Турбо Паскалдың графикалық мүмкіндіктерін толық ... ... ... ... болады:
• Екі өлшемді кесіндерді салу ... ... ... ... графиктер, диаграммалар, пиктограммалар, схемалар және
т.б.);
• Үш өлшемді кескіндерді салу ... ... ... ... беттер, гистограммалар, диаграммалар және т.б.);
• Динамикалық кескіндерді салу (кескін проекциясын және қалпын ... көру ... ... және ... Әртүрлі ойын және оқыту программаларын жасақтау;
Қолданылған әдебиеттер
1. Бурин Е.А “Программирование на языке Турбо ... ... ... Т.К. ... тілі ... ... ... Б., Халыкова Б. “Паскаль тілінің негіздері” А.,1998
4. Новикав В.С., Парфилова Н.Н., “Паскаль” М.,1994
5. Семалико Г.Л., ... Г.Л., ... на ... ... ... ... ... В.В Turbo Pascal 7.0 – Москва, издат. «Нолидж», 2000 г.
7. Гусаева А.И - Учимся программировать Pascal 7.0. ... и ... ......... ... Rat io
RX=5*RY
RX=RYYYY

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









Ұқсас жұмыстар
Тақырыб Бет саны
Турбо Паскальдағы Graph модулі8 бет
Турбо Паскальдағы графикалық обьектілер22 бет
Турбо паскальдағы графикалық процедура14 бет
Турбо Паскальдағы функция4 бет
Операторлар және ішкі программалар (Delphi программалау ортасы)22 бет
Турбо паскаль программалау тілінде графикалық объекттерді құру12 бет
Турбо Паскальда тест дайындау10 бет
„Трэк” ойыны21 бет
Турбо паскаль графикалық режимі30 бет
Турбо паскаль жүйесіндегі графика. Жұмыс істеп тұрған бағдаршамның бейнесін шығару15 бет


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


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

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

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

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

Email: info@stud.kz

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

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