Turbo Pascal-дағы графиктік режим және Graph модулінің функциялары мен процедуралары

КІРІСПЕ Turbo Pascal программалау тілінде символдық режимнен бөлек графиктік І ЖАЛПЫ БӨЛІМ 1.1 Пәндік аймақты сипаттау Turbo Pascal-да графиктік режимде жұмыс істеуге арналған арнаулы Графиктік режимде жұмыс істеу алдында оған сәйкес келетін Turbo Pascal тілінде алдын ала бекітілген драйверлер саны Кесте 1-Графиктік режимдер Драйвер Режим Нүктелер саны Файл CGA CGACO,CGAHI 320x200(640x200) CGA.BGI EGA EGALO,EGAHI 640x200(640x350) EGAVCA.BGI VGA HERCM,ONOHI 720x348 HERC.BGI GRAPH модулі іске қосылысымен оның ішіндегі процедуралар мен InitGraph (Var Driver, Mode: integer, Path: string); Driver (типі integer) графиктік режимді анықтайтың параметр, Mode Driver мәні Graph модулінде хабарланған тұрақтылар жиынымен шектеледі Кесте 2- Тұрақтылар кестесі Тұрақтының атауы Сандық коды Detect 0 CGA 1 MCGA 2 EGA 3 EGA64 4 EGAMono 5 IBM8514 6 HercMono 7 ATT400 8 VGA 9 PC3270 10 ТР-да әр түрлі типті видеоадаптерлердің драйверлері BGI каталогындағы, Графиктік режимнің іске қосылу нәтижесін GraphResult функциясын қолдану Кесте 3-Қателер коды Тұрақты атауы Коды Анықтамасы grOk 0 Қате жоқ grNolnitGraph -1 Графиктік режим анықталмаған grNotDetected -2 Адаптер типі анықталмаған grFileNotFound -3 Драйвер файлы табылмады grInvalidDrive -4 Анықталған файлда драйвер табылмады grNoLoadMem -5 Драйверді жүктеуге жады көлемі жетпейді grNoScanMem -6 Аймақты қарастыруға жады көлемі жетпейді grNoFloodMem -7 Аймақты толтыруға жады көлемі жетпейді grFondNotFound -8 Шрифттің файлы табылмады grNoFontMem -9 Шрифттің файлы табылмады grInvalidMode -10 Анықталған драйверге сәйкес келмейтін режим grError -11 Жалпы қате grlOerrer -12 Енгізу-шығару қатесі grInvalidFont -13 Шрифттің дұрыс емес пішіні grInvalidFondNum -14 Шрифттің номері дұрыс емес Жұмыс аяқталғаннан кейін графиктік режимді орналастырған программа компьютердің Кез-келген суретті, схеманы сызу үшін әр түрлі геометриялық Графиктік программа монитордағы экранды жекелеген нүтелер арқылы қарастырады, GetX және GetY функциясы ағымдағы нүктенің тік және Функцияның жазылуы: Function GetX: integer; Function GetY: integer; Көрсеткішті экранның керекті нүктесіне MoveTo процедурасын шақыру арқылы Салынған нүктенің түсін GetPixel функциясымен қайтаруға болады, жазылуы: GetPixel(X, Y: integer): word; PutРixel процедурасын монитор экранында нүктені шығару үшін шақыру PutPixel (X, Y: integer; Color :word); Line сызықты сызу процедурасы. Line (х1,у1,х2,у2: integer); х1,у1 –түзудің бастапқы нүкте координатасы; х2,у2 – түзудің соңғы нүкте координатасы. LineTo процедурасы ағымдағы орыннан бастап берілген координатаға дейін LineTo(X, Y: integer); SetLineStyle түзудің жаңа түрін белгілейді. SetLineStyle(Type,Pattern,Thick:word); Мұндағы: Type - түзу типі(Кесте 4); Pattern: түзу түрі; Thick: түзу қалыңдығы. Кесте 4-Түзу типтері Константа Сызық типі SolidLn Бірыңғай, үздіксіз DottedLn Шртихтары тұрақты ұзындықта, үздікті CenterLn Штрих – үздікті сызық DashedLn Үздікті UserBitLn Программист типімен анықталған сызық Тік төртбұрыш шығару үшін Rectangle процедурасы қолданылады. Rectangle(x1,y1,x2,y2: integer); Мұндағы: x1,y1 - төртбұрыштың сол жақ жоғарғы бұрышының x2,y2 - төртбұрыштың оң жақ төменгі бұрышының нүктесінің Экранда боялған тік төртбұрыш салу үшін Bar процедурасы Bar(х1,у1,х2,у2); Мұндағы: x1,y1 - төртбұрыштың сол жақ жоғарғы бұрышының x2,y2 - төртбұрыштың оң жақ төменгі бұрышының нүктесінің Шеңберді сызу Cirсle процедурасы шақыру арқылы іске асырылады. Cirсle (x,y: integer;r: word); Мұндағы: x,y – шеңбердің центірінің координаты, r – Эллипс салу процедурасының жазылу түрі: Ellipse(x, y, бастапқы бұрыш, соңғы бұрыш, РадиусХ, РадиусY); мұндағы, x және y – эллипстің центрінің координатасы; бастапқы бұрыш, соңғы бұрыш – эллипстің дөңгелек координаталары, РадиусХ, РадиусY – эллипстің тігінен және көлденең радиусын x 900 РадиусX y 1800 3600 Радиус Y 2700 Сурет 1-Ellipse процедураларының параметрлері Доғаны салу процедурасы – Arc. Жазылуы: Arc(x, y, бастапқы бұрыш, соңғы бұрыш, Радиус); мұндағы, x және y – доғаның центрінің координатасы; бастапқы бұрыш, соңғы бұрыш – доға сызығының бастапқы Радиус – доғаның радиусын көрсетеді. Bar3D процедурасы параллеллепипед сызады. Жалпы жазылу түрі: Bar3D(x1,y1,x2,y2,Тереңдігі, ЖоғарғыШегі); x1,y1 параметрлері сол жақ жоғарғы, x2,y2 оң жақ шекарасының жақын бұрышын көрсетеді. Тереңдік параметрді параллелепипедттің алдыңғы PieSlise процедурасы дөңгелек және секторды сызады. Процедураны шақыру PieSlise(x, y, бұрыш1, бұрыш2, Радиус); Іші боялған эллипс салу Sector процедурасымен іске асады. Sector(x, y, бұрыш1, бұрыш2, РадиусХ, РадиусY); Программа алфавитті-сандық режимде жұмыс істеген кезде, монитор экранында Мысалы, MoveTo(310,240); OutText(‘Turbo Pascal 7.0’); инструкциясы хабарламаны экранның орта кезіне шығарады. Көрсеткіштің ағымдағы орынын ауыстыру үшін MoveRel процедурасы қолданылады. MoveRel(dx,dy); Dx және dy параметрлері көрсеткішті тігінен және көлденеңнен Графиктік режимде мәтіндік ақпаратты шығару үшін OutText және процедуралары қолданылады. OutText процедурасы мәтінді шығару көрсеткіші орналасқан жерге шығарады. Сурет 2 - Орындалғаннан кейін шығару көрсеткішінің орны OutText(Text:String); Мұндағы: Text- текст қатары. OutTextXY процедурасы берілген координаталар бойынша шығарады. OutTextXY(Х,Ү: integer; Text :String ); Мұндағы: х,у- тексттің басталып жазылатың орнының координаты; Text- текст қатары. Графиктік режимде шығарылатың тексттердің стилін өзгерту үшін SetTextStyle SetTextStyle(Font, Direction, Size: word); Мұндағы: Font – таңдалған шрифт түрі(Кесте 5), Direction – тексттің жазылу бағыты(0 – көлденен, 1 Size – символдар өлшемі(1 – биттік, 2 – Кесте 5-Шрифт түрлері Тұрақты атауы Коды Файл (.CHR) Қаріп көрінісі DefaultFond 0 AaBbCc 12345 TriplexFont 1 TRIP AaBbCc 12345 SmallFont 2 LITT SansSerifFont 3 SANS CothicFont 4 GOTH TriplexFont, SmallFont, SansSerifFont және GothicFont константалары векторлық шрифттар Бағыт параметрі шығарылатын мәтіннің бағытын ауыстырады. Параметр ретінде Сурет 3-Тігінен бағытталған мәтін Өлшем параметрі OutText және OutTextXY процедураларының көмегімен шыққан Шрифттің өлшемдерін пайдаланушының өзі SetUserCharSize процедурасының көмегімен орнатуға SetUserCharSize(mx,dx,my,dy); мұндағы, mx,dx – шрифттің горизонтальды өлшемін анықтайтын параметрлер. my,dy – шрифттің вертикальды өлшемін анықтайтын параметрлер. Mx/dx OutText процедурасы тексті SetTextStyle арқылы алдын ала берілген Мысалы: x:=TextWidth(T); y:=TextHeight(T); Бір қатарда жазылған символдардың орналасуын өзгерту үшін SetTextJustify SetTextJustify(H,V); мұндағы, H – символдарды горизонтальды бағытта түзету (0 V - символдарды вертикальды бағытта түзету (0 – Ағымдағы түсті ауыстыру үшін SetColor процедурасы қолданылады, яғни Кесте 6-Түстер коды Константа Түс Түстің номері Black Қара 0 Blue Көк 1 Green Жасыл 2 Cyan Бирюзовый 3 Red Қызыл 4 Magenta Күлгін 5 Brown Қоныр 6 LightGray Ақ (ашық – сұр) 7 DarkGray Сұр 8 LightBlue Көгілдір 9 LightGreen Ашық – жасыл 10 LightCyan Ашық – бирюзовый 11 LightRed Ашық – қызыл LightMagenta Ашық – күлгін 13 Yellow Сары 14 White Ақ 15 SetColor процедурасымен орнатылған түс кодының мәнін анықтау үшін Бір мезгілде түс кодтарын өзгерту керек болса, онда Экранның фоны SetBkColor процедурансының көмегімен орнатылады, жазылуы: Мұндағы: сolor – түс коды 0 – 15-ке Фигуралардың ішін бояумен толтыру стилі SetFillStyle процедурасымен орнатылады, Мұндағы: Сolor – түс коды; Pattern – толтыру нұсқасы(Кесте 7); Кесте 7- Толтыру нұсқасы Тұрақты атауы Коды Толтыру нұсқасы EmptyFill 0 Фонның түсімен толық толтырылады SolidFill 1 Ағымдағы түспен толық толтырылады LineFill 2 Сызықшалармен толтырылады LtSlashFill 3 Көлбеу сызықтармен толтырылады SlashFill 4 Жуан көлбеу сызықтармен толтырылады BKSlashFill 5 Жуан кері көлбеу сызықтармен толтырылады LtBKSlashFill 6 Кері көлбеу сызықтармен толтырылады HatchFill 7 Тік бұрышты торлармен толтырылады XhatchFill 8 + символдарымен толтырылады InterleaveFill 9 х символдарымен толтырылады WideDotFill 10 Аралары жиі орналасқан нүктелермен толтырылады CloseFill 11 Аралары алшақ орналасқан нүктелермен толтырылады UserFill 12 Қолданушы анықтаған нұсқа бойынша толтыру Программада биттік бейнені сипаттау FillPatternType типті массив түрінде FillPatternType=array[1..8] of byte; Биттік бейнені сипаттау үшін константаларды қолданған жөн. Мысалы, my_fill:FillPatternType=($00,$10,$10,$FE,$38,$28,$44,$00);инструкциясы my_fill массив-константасын сипаттап және инициализациялайды. Программистпен анықталған облысты толтыру стилі SetFillPattern процедурасының шақырылуымен Графиктік режимде салынған шектеулі фигуралардың ішін бояу үшін FloodFill(x,y,түс); мұндағы, x,y – шектелген фигураның ішінде жататын кез-келген Көпбұрыштар салу үшін DrawPoly процедурасы, ал іші боялған DrawPoly(N,P); FillPoly(N,P); мұндағы, N – көпбұрыштың қабырғаларының қиылысу санын білдіретін P – көпбұрыштың бұрыштарының координаттарын білдіретін PointType – ТР-да әр түрлі геметриялық фигураларды экранға шығарып қана Экранда фигуралардың жылжу эффектілері циклдік процестермен жүзеге асырылады. кейін жылжитын дене экранда алғашқы көрінетін орнының координаттарымен Delay процедурасы қолданылады. Фигураны шығару процедурасының кемінде бір орындалуында фигура жаңа орынға шығарылып тұрады. Ал циклдік Көптеген элементтерден тұратын күрделі бейнелерді программалау кезінде «Базалық Жазықтықтағы кездейсоқ бейнелер. Праметрлері көрсетілмеген Randomize прцедурасы Turbo Pascal-да кездейсоқ бейнелермен 1.2 Бағдарламаның тіл элементтерін сипаттау Turbo Pascal туралы тарихи анықтама Turbo Pascal – жоғарғы деңгейлі программалау жүйесі. Оның Кейіннен тілдің көптеген нұсқалары жарық көреді. Солардың ішінде, бұрынғыдан да арта түсті. Turbo Pascal-дің жоғарғы деңгейлі әр түрлі есептерді дәл шешуге көмегін тигізеді. Turbo Turbo Pascal программалау жүйесінің бірнеше версиялары бар. Тілдің алфавиті Кез келген тілді үйрену оның алфавитінен басталады. Turbo Латын алфавитінің 26 (баспа және жазба) әріптері; Орыс алфавитінің 32 (баспа және жазба) әріптері программада Араб цифрлары; Арнайы символдар. Оларды белгілі бір функцияларды атқаруына сәйкес Әрбір символдың өзінің реттік нөмеріне сәйкес белгіленген коды Turbo Pascal тілінде алдын ала қызметі тағайындалған сөздер ІІ АРНАЙЫ БӨЛІМ 2.1 Тапсырманың жалпы құрылымы Дайындалған бағдарлама келесі талаптарды қамсыздандыру керек: - графиктік режимде адамды салу; - графиктік режимде туды ұстап тұрған адамды салу; - салюттің жарқырауын бейнелеу ; - туды ұстап келе жатқан адамды салу; Бастапқы берілгендер - графиктік режимді іске қосу; - графиктік режимде қолданылатың процедуралар мен функциялар; - пиксельдердің горизонтальды (x), вертикальды (у) координаттары; - графиктік режимде мәтінді форматтау; - графиктік режимнің палитрасы; - графиктік режимде анимацияларды қолдану; 2.2 Бағдарламаның құрылымдық және функционалдық сызбалары Құрылымдық сызба деп өңделіп жатқан курстық жобаның бөлімдерін Курстық жобаның құрылымдық сызбасы шағын жүйелердің немесе басқа Сызба 1 – Құрылымдық сызба Ал компоненттердің бір – бірінен және сыртқы ортамен Функционалдық сызба – ақпараттық ағымдар берілгендер құрамының сипаттамасы Сызба 2 - Функционалдық сызба 2.3 Модульдерді сипаттау Орнатылған процедуралар мен функциялардан басқа 7.0 Turbo Pascal Турбо Паскаль тілінде көп мөлшерде әр түрлі типтер, Кітапханалық функциялар мен процедураларды қолдану. Кітапханалық процедураны қарапайым процедура ретінде қарастыруға болады. Ол, Кітапханалық процедураны қолдану үшін бағдарламаға керекті модульді қосу Модульді қосу инструкциясының жалпы жазылу түрі: Uses Модуль 1, Модуль 2, ..., Модуль К; Uses сөзі – бағдарламалау тілінің сөзі. Ол бағдарламаға қосылатынын білдіреді; Модуль 1 – қосылған модуль аты. SYSTEM модулі. Бұл модуль құрамына стандартты Паскаль тіліндегі PRINTER модулі. Мәтіндерді матрикалық принтерге жіберуге мүмкіндік ашады. Uses Printer; Begin Writeln (LST, ‘Турбо Паскаль’); End. DOS модулі. MS-DOS операциялық жүйесінің дисктік құралдарының программасына OVERLAY модулі. Бұл модуль үлкен көлемдегі кедергілермен программалар Екі кітапханалық TURBO3 және GRAPH3 модульдері Турбо паскаль Crt модулі – экран бетіне шығару процедурасы мен 2.4 Идентификаторлар кестесі Turbo Pascal тілінде алдын ала қызметі тағайындалған сөздер Turbo Pascal тілінде атауды идентификатор деп атайды. Яғни, Пайдаланушылар идентификаторы ретінде әріптер мен цифрлар тізбегі алынады. - Идентификатор міндетті түрде әріптен басталатын латын әріптері - Оның құрамына орыс алфавитінің әріптері; арнайы символдар, - Қызметші сөздер пайдаланушылар идентификаторы бола алмайды; - Идентификатордың максимальді ұзындығы – 127 символ болғанымен, Идентификатор қысқа, әрі түсінікті болғаны дұрыс. Бір программада ҚОРЫТЫНДЫ Сонымен Turbo Pascal программалау жүйесі жоғарғы деңгейлі «Графиктік режимде жұмыс істеу» атты курстық жобада анимацияны ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ 1 Зуев Е.А. «Язык программирования Turbo Pascal 6.0» 2 Немнюгин С.А. «Turbo Pascal» - М.: 3 Фаронов В. В. «Турбо Паскаль 7. 0. 4 Фокс Д. И. Бейсик для всех. – 5 Фаронов В.В. «Турбо Паскаль. Практика программирования» - 6 Электронные учебники по Турбо Паскалю 7.0 7 Культин Н. «Программирование в Turbo Pascal 7.0 8 Масанов Ж.Қ., Бельгибаев Б.А., Бижанова А.С., Мақұлов 9 А.И. Гусьева. «Учимся программировать: Pascal 7.0» - 10 А. Епанешников., В. Епанешников. «Программирование в среде ҚОСЫМША А ТЕХНИКАЛЫҚ ТАПСЫРМА 1.Кіріспе Нағыз техникалық тапсырма «Графиктік режимде жұмыс істеу» тақырыбына Turbo Pascal программалау тілінде символдық режимнен бөлек графиктік 2. Өндеу үшін негіздер Бұл жүйе « Ақпараттық технология » кафедрасының оқу-әдістемелік 3. Белгіленуі Осы бағдарлама графиктік режимнің барлық мүмкіндіктарін ҚОСЫМША А ЖАЛҒАСЫ 4.Бағдарлама және бағдарлама бұйымдарына қойылатың талаптар 4.1.1 Бағдарлама келесі функционалдық мүмкіндіктерді қамсыздандыру керек: - графиктік режимде адамды аслу; - графиктік режимде туды ұстап тұрған адамды салу; - салюттің жарқырауын бейнелеу ; - туды ұстап келе жатқан адамды салу; 4.1.2 Бастапқы берілгендер - графиктік режимді іске қосу; - графиктік режимде қолданылатың процедуралар мен функциялар; - пиксельдердің горизонтальды (x), вертикальды (у) координаттары; - графиктік режимде мәтінді форматтау; - графиктік режимнің палитрасы; - графиктік режимде анимацияларды қолдану; 4.2 Бағдарламаның сенімділік талаптары 4.2.1 Іздеу және өзгерту үшін еңгізетін мәліметтердің дұрыстығын 4.2.2 Ақпараттың бүтіндігін сақтауын қамтамасыз ету. 4.2.3 Қолданушының жүйемен жұмыс істеген кездегі әдепсіз әрекеттерін ҚОСЫМША А ЖАЛҒАСЫ 4.3 Техникалық құралдар параметрлері мен құрамына қойылатың талаптар 4.3.1 Жүйе IBM дербес компьютерлерінде жұмыс істеуі қажет. 4.3.2 Кішігірім конфигурациясы: - процессордың типі .................... Pentium-1 және одан жоғары; - оперативті есте сақтау құрылғысының көлемі .......... 32 - монитордың типі .................. SVGA(15). 4.4 Ақпараттық және бағдарламалық сәйкестігінің талаптары Жүйе Windows XP операциялық жүйенің қауымдастығының басқаруымен жұмыс 5. Бағдарлама құжаттамасына қойылатың талаптар 5.1 Өңделіп жатқан бағдарламалық модульдер өздігінен құжатталуы керек, 5.2 Өңделіп жатқан бағдарлама жүйесі құрылған бағдарлама жөнінде 5.3 Құжаттама құрамына мыналар кіру тиіс: 5.3.1 Өңдеудің сипаттамасынан тұратың , 25-30 бет шамасында 5.3.2 Қолданушы басшылығы. 5.3.3 Графикалық бөлімі А-1 форматты бетте. ҚОСЫМША Ә ҚОЛДАНУШЫ БАСШЫЛЫҒЫ Алдарыңызға ұсынылып отырған программа Turbo Pascal бағдарламалау тілінің Экранға төрт жолдан тұратың меню қатары шығады: Бағдарлама жайлы Басты бет Тапсырма Шығу Сурет1-Меню қатары Алдымен құрылған менюден «Бағдарлама жайлы» пунктіне кіру үшін ҚОСЫМША Ә ЖАЛҒАСЫ бағдарлама туралы толығырақ ақпарат алуға болады. Пункттен шығу Ал келесі пункт «Басты бет» деп аталған. Бұл Келесі пункт «Тапсырма». Бұл бөлімде графиктік режимде құрылған Ал бағдарламадан толығымен шығу үшін меню қатарындағы «Шығу» ҚОСЫМША Б БАҒДАРЛАМА ЛИСТИНГІ Program enu; Uses crt,graph; const norm=$40; SEL=$20; N=4; var menu:array [1..N] of string [18]; punkt:integer; Ch:char; x,y:integer; gd,gm:integer; x1,y1,x2,y2:integer; Procedure Punkt1; Var gd,gm:integer; begin gd:=detect; initgraph(gd,gm,'c:\lang\tp7\bgi'); setbkcolor(2); Setcolor(5); Settextstyle(7,0,3); Setcolor(5); Outtextxy(202,30,'Bagdarlama jaily'); Setcolor(1); Outtextxy(200,28,'Bagdarlama jaily'); rectangle(5,5,630,470); settextstyle(7,0,1); Setcolor(14); Outtextxy(50,80,'Bagdarlamaga kosh keldinizder! Byl bagdarlama'); Outtextxy(30,100,'Turbo Pascal programmalau ortasynda jasalgan. '); Outtextxy(30,120,'Graphiknik rejimnin mymkindikterinkorsete otyryp,'); Outtextxy(30,140,'tudy ustap kele jatkan adamnyn beinesin ekran betine'); Outtextxy(30,160,'shygary. Bagdarlamanyn ar bir punktin '); Outtextxy(30,180,'batyrmasy arkyly tamashalauga bolady.'); setcolor(5); settextstyle(3,0,2); outtextxy(10,10,'*************************************************************'); outtextxy(10,450,'**************************************************************'; settextstyle(3,1,2); outtextxy(10,7,'**********************************************'); outtextxy(600,7,'**********************************************'); readln; closegraph; end; Procedure Punkt2; Var gd,gm:integer; begin gd:=detect; initgraph(gd,gm,'c:\lang\tp7\bgi'); setbkcolor(4); Setcolor(10); Rectangle(7,7,632,470); settextstyle(3,0,1); ҚОСЫМША Б ЖАЛҒАСЫ outtextxy(160,60,'Karagandy politehnikalyk kolledji'); outtextxy(100,40,'Kazahstan Respublikasy bilim jane gylym ministrligi'); outtextxy(180,250,'Takyryby:'); outtextxy(180,270,'Oryndagan:'); outtextxy(250,410,'Karagandy 2007'); settextstyle(4,1,4); outtextxy(40,45,'}{ }{ }{ outtextxy(560,45,'}{ }{ }{ setcolor(9); rectangle(11,11,628,466); outtextxy(40,30,'}{ }{ }{ outtextxy(560,30,'}{ }{ }{ settextstyle(4,0,7); outtextxy(160,160,'Kurstyk joba'); setcolor(13); rectangle(15,15,623,461); settextstyle(4,1,4); outtextxy(40,60,'}{ }{ }{ outtextxy(560,60,'}{ }{ }{ settextstyle(4,0,7); outtextxy(163,163,'Kurstyk joba'); setcolor(14); settextstyle(3,0,2); outtextxy(20,17,'************************************************************'); outtextxy(20,439,'************************************************************'); settextstyle(3,1,2); outtextxy(17,17,'********************************************'); outtextxy(598,17,'********************************************'); settextstyle(3,0,1); outtextxy(270,250,'"Graphiktyk rejimde jymys isteu"'); outtextxy(280,270,'9-3PVT-05 tobynyn studenti'); outtextxy(280,290,'Karzhassova Samal'); settextstyle(4,1,4); outtextxy(40,75,'}{ }{ }{ outtextxy(560,75,'}{ }{ }{ readln; closegraph; end; Procedure Punkt3; Var Gd,Gm:integer; Color:byte; x,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19,x20, x21,x22,x23,x24,x25,x26,x27,x28,x29,x30,x31,x32,x33,x34,x35,x36,x37,x38, x39,x40,x41,x42,x43,x44,x45,x46,x47,x48,x49,x50,x51,x52,x53,x54,x55,x56, x57,x58,x59,x60,x61,x62,x63,x64,x65,x66,x67:integer; y,y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,y13,y14,y15,y16,y17,y18,y19,y20, y21,y22,y23,y24,y25,y26,y27,y28,y29,y30,y31,y32,y33,y34,y35,y36,y37,y38, y39,y40,y41,y42,y43,y44,y45,y46,y47,y48,y49,y50,y51,y52,y53,y54,y55,y56, y57,y58,y59,y60,y61,y62,y63,y64,y65,y66,y67:integer; r,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20, r21,r22,r23,r24,r25,r26,r27,r28,r29,r30,r31,r32,r33,r34,r35,r36,r37,r38, r39:Integer; p,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20, p21,p22,p23,p24,p25,p26,p27,p28,p29,p30,p31,p32,p33,p34,p35,p36,p37,p38, p39:Integer; Dt,Dx:integer; Begin Gd:=Detect; Initgraph(Gd,Gm,'C:\Lang\Tp7\Bgi'); SetBKcolor(0); {SetLineStyle(Solidln,1,Thickwidth);} ҚОСЫМША Б ЖАЛҒАСЫ x:=50; y:=270; r:=20; {basy} x1:=50; y1:=340; r1:=20; r2:=50; p:=0; p1:=360; {denesi} x2:=50; y2:=320; x3:=80; y3:=330; x4:=80; y4:=330; x5:=100; y5:=299; x6:=54; y6:=318; p2:=90; p3:=180; r3:=4; x7:=55; y7:=315; x8:=75; y8:=322; x9:=75; y9:=322; x10:=95; y10:=296; x11:=97; y11:=298; p4:=0; p5:=100; r4:=2; x12:=65; y12:=309; x13:=92; y13:=298; x14:=67; y14:=318; x15:=90; y15:=304; {koly} x16:=50; y16:=380; p6:=350; p7:=110; r5:=6; x17:=46; y17:=376; x18:=25; y18:=430; x19:=25; y19:=430; x20:=35; y20:=435; x21:=35; y21:=435; ҚОСЫМША Б ЖАЛҒАСЫ x22:=57; y22:=378; x23:=62; y23:=380; x24:=70; y24:=432; x25:=53; y25:=387; x26:=60; y26:=437; x27:=70; y27:=432; x28:=60; y28:=437; {ayagy} x29:=60; y29:=267; r6:=1; x30:=66; y30:=279; p8:=180; p9:=290; r7:=5; r8:=2; x31:=43; y31:=255; x32:=40; y32:=245; x33:=49; y33:=255; x34:=49; y34:=243; x35:=54; y35:=255; x36:=58; y36:=245; {beti} x37:=95; y37:=325; x38:=100; y38:=70; x39:=143; y39:=90; p10:=20; p11:=180; r9:=40; r10:=15; x40:=217; y40:=80; p12:=195; p13:=360; r11:=40; r12:=15; x41:=215; y41:=215; p14:=190; p15:=360; r13:=40; r14:=15; x42:=143; y42:=225; ҚОСЫМША Б ЖАЛҒАСЫ p16:=30; p17:=180; r15:=40; r16:=15; x43:=255; y43:=85; x44:=255; y44:=220; x45:=185; y45:=128; r17:=15; x46:=115; y46:=93; p18:=90; p19:=270; r18:=5; r19:=7; x47:=115; y47:=108; p20:=270; p21:=450; r20:=5; r21:=7; x48:=115; y48:=121; p22:=90; p23:=270; r22:=5; r23:=7; x49:=115; y49:=133; p24:=270; p25:=450; r24:=5; r25:=7; x50:=115; y50:=145; p26:=90; p27:=270; r26:=5; r27:=7; x51:=115; y51:=157; p28:=270; p29:=450; r28:=5; r29:=7; x52:=115; y52:=169; p30:=90; p31:=270; r30:=5; r31:=7; x53:=115; y53:=181; p32:=270; p33:=450; r32:=5; r33:=7; x54:=115; y54:=193; ҚОСЫМША Б ЖАЛҒАСЫ p34:=90; p35:=270; r34:=5; r35:=7; x55:=185; y55:=140; p36:=180; p37:=360; r36:=40; r37:=20; x56:=185; y56:=155; p38:=170; p39:=370; r38:=40; r39:=20; x57:=177; y57:=164; x58:=173; y58:=170; x59:=173; y59:=170; x60:=181; y60:=170; x61:=175; y61:=177; x62:=170; y62:=185; x63:=170; y63:=185; x64:=200; y64:=185; x65:=200; y65:=185; x66:=195; y66:=177; {tu} x67:=140; y67:=1; Dt:=5000; Dx:=2; While x1 then begin Gotoxy(x,y+punkt-1); write(menu[punkt]); Punkt:=punkt-1; Textattr:=SEL; Gotoxy(x,y+punkt-1); write(menu[punkt]); textattr:=Norm; end; end; end else if ch=chr(13) then begin case punkt of 1:punkt1; 2:punkt2; 3:punkt3; 4:ch:=chr(27); end; menutoscr; end; ҚОСЫМША Б ЖАЛҒАСЫ until ch=chr(27); end. ҚОСЫМША В БАҚЫЛАУ МЫСАЛЫ Құрылған жобадан графиктік режимде құрылған анимацияның жұмыс істеуін Алдымен құрылған менюден «Бағдарлама жайлы» пунктіне кірсек,бұл бөлімде Сурет 1-«Бағдарлама жайлы» бөлімі. Ал келесі пункт «Басты бет» деп аталған. ҚОСЫМША В ЖАЛҒАСЫ Сурет 2-«Басты бет» бөлімі. Келесі пункт «Тапсырма». Бұл бөлімде графиктік режимде құрылған ҚОСЫМША В ЖАЛҒАСЫ Сурет 3-«Тапсырма» бөлімі. Ал бағдарламадан толығымен шығу үшін меню батырмасын 21 Тапсырма Бағдарламаның негізгі мәлеметтері Туды ұстап тұрған адамды жүргізу. Автор және курстық жобанаң программа-сы жайлы мәлімет Курстық жоба тақырыбы, орындау-шының аты-жөні Қолданатың процедуралар мен функциялар Түс кодтарын еңгізу Х,У осі бойынша координаттар беру Шығу Басты бет Өзім жайлы Меню Графиктік режимде жұмыс Шығу Тапсырма Басты бет Бағдарлама жайлы Меню Графиктік режимде жұмыс y Turbo Pascal x y x Turbo Pascal ПКАТ 3706002.001-88.ТХ Бет Өзг.ююю.ю Бет Құжат № Қолы Күні