Turbo Pascal программалау тілінің қосымша мүмкіндіктері

Мазмұны

Кіріспе 2

1. Turbo Pascal программалау тілінің қосымша мүмкіндіктері 3
1.1. Сытқы процедуралар мен функциялар 3

2. GRAPH модулі 5
2.1. Графиктік режимнің инициализациясы. 5
2.2. Шығару көрсеткіші. 6
2.3. Графика анайыларының сызылу процедуралары. 7
2.4. Облыстарды сызу процедуралары 11
2.5. Облысты толтырудағы түс пен стиль 13
2.6. Тексті шығару 14

3. Илюстряцияны шығару 16
3.1. ВМР файылының құрылымы. 17
3.2. Draw функциясы 17

4. Диаграмма жасау программасы 19

Қорытынды 25

Қолданылған әдебиеттер көзі 26
Кіріспе
Менің курстық жұмысымда Паскаль тілінің графиктің мүмкіндіктерін пайдаланып, диаграмма сызып шығу болатын. Диаграмма қазіргі кезде көпшілік жиындарда қолданатын, статистикалық мәліметтерді оңай бейнелейтін сызба-нұсқаның бір түрі. Осы диаграмманың даму тарихында статистикалық мәліметтерді кесте түрінде берілуі жатыр. Яғни кесте арқылы мәліметтерді ажырату қиындау болатын. Қай саланың не болмаса графаның мәні көп не болмаса аздығын тез ажырату барысында диаграммалар ойлап табылған екен.
Диаграммалрды өазір өте оңай жасайтын Excel программасы бар. Дегенменде менің курстық жұмысымда Паскаль тілінде диаграмма жасау тапсырмасы қойылды. Мен бұл тапсырманы орындау барысында графикалық мүмкіндіктерді жіті меңгердім.
Паскаль тілін 1970 жылы швейцарияның Цюрих қаласындағы жоғары техникалық училищесінің профессоры Никлаус Вирт ұсынған. Ол бұл тілді дүние жүзінде алғаш болып есептеу машинасын ойлап жасаған ұлы француз ғалымы Блез Паскальдің құрметімен атаған.
1979 жылы қабылданған стандартты Паскаль тілі басқа тілдерден қалыспайды. Сондықтан да қазіргі кезде Паскаль тілі кез-келген саладағы күрделі есептерді шешу үшін қолданады.
Қазіргі кезде көп тараған қуатты бағдарламаалау жүйелерінің бірі – Турбо Паскаль жүйесі болып есептеледі. Бұл бағдарламаалау жүйесінің негізі ретінде Паскаль бағдарламамалау тілінің компиляторы алынған, сонымен қатар жүйе құрамына қолданушыға бағдарламамаларды теріп жазғанда, өңдегенде ыңғайлы болу үшін сервистік қызмет көрсететін қабықша (орта ) енгізілген. Бұл жүйедегі компилятор көмегімен жүзеге асыратын Паскаль бағдарламамалау тілін - Турбо Паскаль бағдарламамалау тілі, ал сервистік қабықшаны Турбо Паскаль ортасы деп атау келісілген.
Сыртқы процедуралар арасында бағдарламадан, прцедура немесе функцияларды шақыруға болады. Ассемблер, программаның төменгі деңгейіндегі машинно-хабарлама тілінде жазылған, программаның компиляциясын қамсыздандырады. Мына бөлімдері сыртқы ассемблер арқасында жазылған және компиляциаланған, бағдарламалар туралы жазылған, мысалы: Microsoft ассемблер фирмасы және Turbo Assembler фирмасы Borlond. Ассемблердің машина – хабарланған тілі мамандандырылған программистке компьютер сәулетінің барлық ерекшеліктерін қолдануға өте бай мүмкіндік береді.
Ассемблерлік программа Turbo Pascal-дағы жазылған программаларға қарағанда тез орындалып және жадыда аз көлем алады. Бірақ ассемблердің төмеңгі деңгейі программистің еңбек өнімділігін төмендетіп, программалардың жөндеуін өкпек күрделендіреді. Ережелер сияқты, ассемблер тілінде программалардың салыстырма – үзінділері жазылады. Сыртқы процедурада алдымен өз тақырабы жарияланып, содан кейін стандартты процедура ереді.
        
        Мазмұны
Кіріспе 2
1. Turbo Pascal ... ... ... ... ... ... ... мен функциялар 3
2. GRAPH модулі 5
2.1. ... ... ... ... Шығару көрсеткіші. 6
2.3. Графика анайыларының сызылу процедуралары. 7
2.4. Облыстарды сызу процедуралары ... ... ... түс пен ... ... Тексті шығару 14
3. Илюстряцияны шығару 16
3.1. ВМР файылының құрылымы. 17
3.2. Draw ... ... ... ... ... ... ... әдебиеттер көзі 26
Кіріспе
Менің курстық жұмысымда Паскаль тілінің графиктің мүмкіндіктерін
пайдаланып, диаграмма ... шығу ... ... ... кезде көпшілік
жиындарда қолданатын, статистикалық мәліметтерді оңай бейнелейтін сызба-
нұсқаның бір ... Осы ... даму ... ... ... ... берілуі жатыр. Яғни кесте арқылы мәліметтерді
ажырату қиындау болатын. Қай саланың не болмаса графаның мәні көп ... ... тез ... ... ... ... табылған екен.
Диаграммалрды өазір өте оңай жасайтын Excel программасы бар.
Дегенменде ... ... ... ... ... ... жасау
тапсырмасы қойылды. Мен бұл тапсырманы орындау барысында ... жіті ... ... 1970 жылы ... ... ... жоғары
техникалық училищесінің профессоры Никлаус Вирт ұсынған. Ол бұл тілді дүние
жүзінде алғаш болып есептеу машинасын ... ... ұлы ... ... Блез
Паскальдің құрметімен атаған.
1979 жылы қабылданған стандартты Паскаль тілі басқа тілдерден
қалыспайды. ... да ... ... ... тілі ... саладағы
күрделі есептерді шешу үшін қолданады.
Қазіргі кезде көп тараған қуатты ... ... бірі ... ... ... болып есептеледі. Бұл бағдарламаалау жүйесінің негізі
ретінде Паскаль бағдарламамалау тілінің компиляторы алынған, сонымен қатар
жүйе ... ... ... ... ... ... болу үшін сервистік қызмет көрсететін қабықша (орта ) енгізілген.
Бұл жүйедегі компилятор көмегімен жүзеге асыратын Паскаль бағдарламамалау
тілін - ... ... ... ... ал ... ... ... ортасы деп атау келісілген.
Сыртқы процедуралар арасында бағдарламадан, ... ... ... болады. Ассемблер, программаның төменгі деңгейіндегі
машинно-хабарлама тілінде ... ... ... Мына ... сыртқы ассемблер арқасында жазылған және
компиляциаланған, бағдарламалар туралы ... ... ... фирмасы және Turbo Assembler фирмасы Borlond. Ассемблердің машина
– хабарланған тілі ... ... ... ... ерекшеліктерін қолдануға өте бай мүмкіндік береді.
Ассемблерлік программа Turbo Pascal-дағы жазылған ... тез ... және ... аз көлем алады. Бірақ ассемблердің
төмеңгі деңгейі программистің еңбек өнімділігін төмендетіп, ... ... ... ... ... ... тілінде
программалардың салыстырма – үзінділері жазылады. Сыртқы процедурада
алдымен өз ... ... ... ... стандартты процедура ереді.
1. Turbo Pascal программалау тілінің қосымша мүмкіндіктері
1.1. Сытқы ... мен ... ... ... үшін оны алдын-ала компиляциялап,
ассемблерлік бағдарламаның ауыстырылатын кодын ұстаушы, OBG ... ... ... алу ... Сыртқы процедураны суреттеу алдында,
денеге, программаның құрастырушы нұсқауы ... {$ L } ... OBG файл аты. ... ... каталог осылардан файлды іздеу
керек, егер ол ағымдағы каталогта табылмаса, онда ол келесі ... ... Option ... ... ... ... ... алдында,
прцедура тақырыбысында саналғандай, программаны айналдыру параметрін,
программалық ... ... ... ... ... ... BP, SP, SS және DS процессорларының ... ... ... және осы ... ... ... қайта түзету керек.
Параметрлер сілтемемен немесе мәні жағынан беріле алады. Егер параметр
сілтемемен ... ...... абсолюттік мекен жайын ұстаушы
көрсеткіш орналасады. Барлық ... - ... яғни ... ... ... жарияланған, яғни ол әрқашан var сілтемесімен
беріледі. Мағына параметрлері сілтемемен немесе мағынасы ... ... ... ... ... мәні ... ... алады. Жалпы оқиғада
келесі ереже қолданылады: егер ішкі ұзындықтың ұсыну параметр мағынасы 1,2
немесе 4 байтқа тең ... онда ол өз ... ... яғни ... ... ... ... сонымен қатар стек арқылы беріледі
және барлық заттықтар тап осы ... 4,6,8 және 10 ... (Turbo ... 4.0 болжамдарында осылар стек арқылы бірлес процессорды 8086/80287
беріледі, 5.0 болжамдарынан бастап ... ... ... ... ... ... егер ішкі ... ұсынулары 4 байттан көбірек
болса, онда лайықты ... ... ... нәтижені ұсынудың, ішкі ұзындыққа байланысты,
орталық процессордың регисторы арқылы қайтарып немесе бірлес процессордың
келесі ержелерімен:
• 1 ... ... ... 2 ... ... AX;
• 4 байт- регистірлерде DX:AX ( үлкен сөз DX)
• Real типі (6 байт) регистірде DX:BX:AX;
• Single, double, extended және comp стек ... ... ... ... ... DX:AX ... DX )
• Жолдар сілтеме арқылы қайтарылады. Мекен-жай ... ... DX: AX ... ... ... ... сегментте тиісті атпен орналаса
отырып CODE, CSEG ... ... TEXT ... ... ... ... ... CONST атпен орналаса бастайды және DATA суффиксі
арқылы аяқталады. ... ... ... өзгергіштер сегментке DATA,
DSEG немесе BSS суффикспен аяқталатын атпен орналастыру ... ... ... мен процедураларының аттары сияқты, Turbo Pascal
программасына қолайлы PUBLIK нұсқауымен ... GRAPH ... ... ... ... үшін барлық керекті функциялар ... GRAPH ... ... ... ... ... инструкциясы болып USES GRAPH болуы керек.
2.1. Графиктік режимнің инициализациясы.
Программа экран бетіне графикті шығаруы үшін ... ... ... ... ... іске асырады. Ол
төмендегідей болуы керек:
INITGRAPH (GRAPH DRIVER, GRAPH MODE , PATH TO ... DRIVER (integer ... ... ... ... драйвері анықтайды, GRAPH MODE (integer типі) параметрін-
видеожүйе жұмысының режимі, ал PATH TO DRIVER (string ... ... ... ... ... ... ... бірінші екі параметрі
айнымалылардың аттары болуы керек.
TURBO PASCAL әр ... ... ... ... ... ... функциясы арқылы графиктік режимнің инициализациясының
нәтижесін тексеруге болады. Егер инициализация ойдағыдай іске ... ... ... ... ... оның ... grOk тұрақтысына тең.
Жұмысты аяқтау алдында графиктік режимін тұрғызған ... ... ... жұмысын қайта тұрғызуы керек. Бұл CLOSEGRAPH процедурасының
көмегімен жүзеге асады.
Есіңізде болсын: Егер компьютерде SVGA адаптері ... ... ... ... ... ... параметрінде мәлімет
ретінде VGA тұрақтысын қолдану керек.
Графиктік программа экран мониторын бөлек нүктелер арқылы қарастырады.
Олар пиксельдер деп аталады. Пиксельдердің ... орны ... (х) ... (у) ... арқылы беріледі. Жоғарғы сол ... (0,0). ... ... ... төменге қарай,
содан оңға қарай өседі. VGA стандартты режимін алайық. Оның экрандағы
төменгі оң ... (639, 479) ... ... көрсеткіші.
Әріптік-сандық режимде программа жұмыс істегенде монитор эранында ... ... ... орналасады. Ол экранның қай нүктесінде келесі символдың
пайда болатынын көрсетеді. Графиктік ... бұл ... ... ... ... ... шығарылуы, графика) графиктік курсор
немесе шығару көрсеткіші экран ... ... ... ... ... Х,У ... ... ала алады, егер Get X және Get ... ... ... ... кез ... ... жеріне
жөңелтуге болады, бұл үшін MoveTo процедуралы бар (параметр ретінде нүкте
координаталарын көрсету керек). ... ... ... ... ортасына шығарады.
MoveTo (310,240);
OutText (‘Turbo Pasсal 7.0’);
Егер MoveRel процедурасын шақыратын болсақ қөрсеткішті жылжыта аламыз
(Мұнда неше ... ... ... көрсету керек). Процедураны шақыру
инструкциясы былай болады: ... ... ... не ... үшін dx, dy параметрлері нүктелердің ... ... Егер ... мәні оң ... онда ... оңға ... (төмен) жылжиды. Егер
dx(dy) параметрінің мәні теріс болса, онда көрсеткіш солға ... ... ... ... сызылу процедуралары.
Кез келген сурет, сызба, схема нүктелерден, бұрыштардан, доғалардан
және т.б. тұрады. Экранда сурет пайда ... үшін ... ... ... ... ... Бұны іске асыратын шығару
процедурасы. Процедура SetColor түстің ... ... ... ... SetColor (4) ... ... ... түсі қара екенін
білдіреді.
Есінізде болсын: Палитра дегеніміз-түстердің жиыны. Әр түс палитрада
өзінің нөмірімен беріледі. Сондықтан әр ... ... бір ... ... сай ... ... |Түс |Түс ... |
|Black ... |0 ... |Көк (қою) |1 ... ... |2 ... ... ... |3 ... ... |4 ... ... |5 ... ... |6 ... gray ... сұры |7 ... gray ... |8 ... blue |Ашық көк |9 ... green ... ... |10 ... cyan ... |11 ... red ... қызыл |12 ... magenta ... ... |13 ... ... |14 ... |Ақ |15 ... ... ... ... ... үшін PutPixel ... керек, параметрлер ретінде сол нүктенің координаталары мен түсін
көрсету қажет. Мысалы, бұл инструкцияның орындалуы нәтижесінде экранның
ортасында қызыл нүкте пайда болады: PutPixel (320, 240, ... ... ... graph, graphs, ... y, t, h, Omega X, Omega Y: ... sy: ...... толқудың жиілігін еңгіз:);
Readlyn (OmegaX);
Writeln (у бойынша толқудың жиілігін еңгіз:);
Readlyn ... ... Bk Color ... =GetmaxX div ... =GetmaxY div ... ... =0,001;
Repeat
X: = sin (OmegaX*t);
Y: = cos (OmegaY*t);
T: =t+h;
delay(s);
Putpixel (gx(x, sx), gy(y, sy), yellow);
Until keypressed;
Readlyn; close graph; end.
Мысалға есеп:
Тор көзді ... ... ... берілген. Осы жануардың суретін
экранға шығару.
Шешімі: осындай суреттерді орындаған кезде тор көзді қағазда бастапқы
нүкте ... да ... қима ... ... санаймыз. LineRel
операторын қолданамыз, өйткені жаңа нүктелер соңғы нүктелерден анықталады.
Uses CRT, Graph;
Const
N=36; {36 қима}
Type
Rel= Array[1...m] of ... ... ... ... Gm, I: ... Vga;
Gm= VgaHi;
InitGraph (Gd, Gm,’ ’);
SetBkColor (3);
SetColor (11);
SetLineStyle (1,0,ThickWidth);
MoveTo (200,120);
For I: =1 to n ... key[i]* ... (240, 120, ... ... ... кез ... фамилия мен аты шығу керек.
Uses CRT;
Var x, y: integer;
Begin textbackground (write);
Cbrser;
X: = 40;
Y: = ... ... ... ... ... ... Graph, crt;
Const
R=50;
Dx=1000;
Var
D,m,e,k: integer;
Xasp, yasp: word;
Begin
D:=Detect;
InitGraph(d, m, ‘ ’);
E:= GraphResult;
If e < > gr Ok then
Writeln (Graph ErrorMsg (e) ... (xasp, ... 0 to 20 ... (xasp+k* dx, ... (GetmaxX div 2, GetmaxY div 2, R) end;
:f Readkey= 0 then k:= ord ... ... ... сызу ... сызылуы Circle процедурасын шақыру арқылы іске асады:
Circle (x, y, r);
x пен y ... ... ... процедурасы арқылы элипсті сала аламыз. Осы процедураның
шақырылуы жалпы түрде былай беріледі:
Ellipse (x,y, бастапқы бұрыш, соңғы бұрыш, радиус Х, радиус ... х пен ... ... ... ... бастапқы
бұрыш, соңғы бұрыш параметрлері бастапқы және соңғы элипс нүктелердің
дөңгелек координаталарын береді, бастапқы нүктесінен соңғы нүктесіне қарай
сағт тіліне қарсы, ... х және ... ... және ... және
тіадиусы. Мәселен, Ellipse (100, 100, 0, 360, 20, 50) инструкциясы ... ... ... Ellipse (100, 100, 0, 180, 20, 50) ... жартысын, ал Ellipse (100, 100, 180, 0, 20, 50) инструкциясы-
төменгі жартысын.
Радиус Х пен радиус У тең ... ... ... Ellipse ... ... ... тікбұрышты сызуға мүмкіндік береді. Шақыру
инструкциясы былайша:
Retangle (x1, x2, y1, ... мен ... ... сол ... ... мен у2-тікбұрыштың төменгі оң бұрыштың координаталары. Мәселен,
Retangle (0, 0, GetMax x, GetMax y); инструкциясы экранның жұмыс ... ... ... ... GetMax x және GetMax ... ... мәндері х пен у кординаталарының ең үлкен мәніне тең. ... Ellipse және ... ... фигураларды сызып тастайды.
Қажетті түсті SetColor процедурасын шақырып орнатуға, ал керек стильді-
Setline Style процедурасын шақырып орнатуға болады.
Тікбұрыш. Bar процедурасын қолданамыз. Бұл ... ... ... сыза ... ... түрде шақыру процедурасының инструкциясы
былайша көрсетіледі:
Bar (x1, y1, x2, y2);
х1 және y1 тікбұрыштың жоғарғы сол бұрышын, ал х2 және ... ... ... ... Bar 3d (x1, y1, x2, y2, ... ... шекарасы).
х1 және у1 параметрлері жоғарғы сол орналасуын береді, ал х2 мен у2-төменгі
оң. Тереңдігі параметрі алдыңғы және артқы паралелепипедтің ... ... ... ал ... ... параметрі (Boolean типі)
паралелепипедтің артқы шектердің жоғарғы шекарасын сызудың керектігін
анықтайды.
Сектор жєне дµњгелекті PieSlice процедурасы сызады және ... (x, y, ... 1, ... 2, ... х, у ... сектор
центрінің орналасуын береді. Бұрыш 1 және бұрыш 2 секторды шектейтін
тікбұрышты береді, ал радиус параметрі-сектор радиусын. Көлдеңен кесінді
нөльдік бұрышқа сай.
Бұрыш 1=0, ... 2=360, онда PieSlice ... ... ... ... ... Sector процедурасы. Процедураның шақыру
инструкциясы:
Sector (х, у, бұрыш 1, ... 2. ... х, ... ... пен у параметрлері сектордың центрінің орналасуын береді. Бұрыш 1,
бұрыш 2 тікбұрышты береді, олар секторды ... ... ... Х-х ... радиус береді. Ал радиус У-у осі бойынша эллипс нольдік бұрышқа сай
келетіні бұл көлденең қима (x,y) нүктесінен басталып өсу жағына ... ... ... Бұрыш 1=0, бұрыш 2=360, Sector
процедурасы толық эллипс сызады.
2.5. Облысты толтырудағы түс пен ... –ді ... ... ... түс пен ... ... ... процедурасының шақырылу инструкциясы былайынша көрсетіледі:
SetFillStyle(стиль, түс);
Стиль параметрі толтырудың стилін береді. Мәселен, толықтай ... ... ... ... түс ... ... түсін береді. Стиль
мен түс ретінде әдетте атаулы константалар қолданады.
|Константа ... ... ... ... ... ... ... түстен толық бояу ... ... |45 ... ... ... ... сызықтармен |
| ... ... |45 ... ... ... қарай штрихтеу |
| Bk SlashFill |45 ... оңға ... ... ... |
| ... ... Bk SlashFill |45 градустағы бұрышта оңға қарай штрихтеу ... ... ... ... ... қиғаш тормен 45 градус бұрышта штрихтеу |
|WideDothFill ... ... ... ... |Жиі ... ... ... ... типі ... ... ... ... стилін де шығара алады және де оны стандартты
стильдердей қолдана алады. Бұл үшін біріншіден биттік ... ... (8 x 2 ... құру ... үлгісін алу үшін биттік бейненің әр жолында сәйкес оналтылық
сан қою ... ... ... ... ... биттік бейненің жазылу
үлгісі болады.
2.6. Тексті шығару
Write және Writeln ... ... Write және ... ... ... ... программа текстік мәліметтерді,
сонымен бірге айнымалылардың мәнін де шығара алады.
Графиктік режимде текстің мәліметтерді шығару үшін OutText ху ... ... ... ... текстің жолын шығарады. OutText ... соң ... ... шығару көрсеткіші жоғарғы оң бұрыш облысына
жылжиды.
OutText процедурасы шығару көрсеткішін тек көлденең ... ... ... Егер ... ... жол тым ұзын ... ... қалған
символдар келесі жолға түспей экран бетінде көрінбей қала береді.
OutText ху процедурасы жолды экран облысының қаланған жеріне шығаруға
мүмкіндік береді. ... ... OutText ху ... ... ху (x, y, жол);
Есіңізде болсын: OutText ху процедурасы шығару ... пен OutText ху ... үшін ... ... бере ... Бұл SetTextStyle процедурасы арқылы ... ... ... ... ... ... ... |Мәні |Шрифт ... |0 ... Әр ... ... ... 8 х 8 |
| | ... ... ... ... |1 |Triplex ... |2 ... ... |3 |SansSerif ... |4 ... ... ... ... төрт ... ... шрифтер, оларға орыс
алфавитінің әріптері тән емес. Сондықтан орыс тілінде мәлімет ... ... ... да, ... ... ... ... параметрі шығарыла тым текстің
бағытталғанын береді. Бұл параметр ретінде VertDir тұрақтысын қолдансақ,
онда OutText және OutText ху ... ... ... ... ... HarizDir ... ... бағытталғанымызды қайтара
аламыз. SetTextStyle функциясының өлшем параметрі символдардың өлшемдерін
құруға мүмкіндік береді.
Санаудың ... ... ... беру ... Әдетте формуламен
есептеу арқылы графиктер құрылады.
Мәселен, кей функция 0-ден 1000-ға дейін мән ала ... оны ... ... ... ... Онда У ... масштабы бұл формула арқылы
тағайындалады:
M=479/1000
Осылай 1000 мәніне ... сай ... ал ... ... үшін мән ... ... керек, сондықтан ол 335-ке дейін
дөңгелектенеді.
3. Илюстряцияны шығару
Turbo Pasсal-де экранға иллюстрацияны шығаратын стандартты ... ... BMP ... ... ... бұл мәселені шешетін
өзінің жеке процедурасын ойлап таба алады.
Иллюстрация дегеніміз-графиктік көрініс және ол ... ... ... ... ... көмегімен алынбайды.
Иллюстарцияны шығарып дискіде сақтауға болады. Бұл ... ... іске ... ... Paint. Бұл ... суреттерді дискіге ВМР
форматында жазады. ВМР ... ... ... ... ... түс жөнінде
мәлімет сақтайды. ВМР форматының ... ... бар: ... ... 256 ... және басқалар. Монохронды форматты қара-ақ суреттері үшін
пайдаланады, қалған ... ... ... режим үшін
максимальді түстердің саны он алты, сондықтан ВМР ... ... ... ... ... экранға қалай шығаратынын қарастырайық.
3.1. ВМР файылының құрылымы.
ВМР файылындағы иллюстрацияны экранға шығару үшін файлдың структурасын
білген жөн. ВМР файлы басынан ... және одан ... ... ... туралы мәліметті қамтиды (өлшемі, түстер саны), берілгені нүктелердің
түсі жөніндегі мәліметті қамтиды.
ВМР файлының басын bminfo типті жазу ... ... ... ... h2: ... файлы ВМ әріптерімен басталады}
Size: longint ;{файл өлшемі}
Reserved: longint ;{ ... ... ... longint; ... longint; ... пиксельдердің ені}
Height: longint; {суреттің, пиксельдердің биіктігі}
B1: word; {қолданылмайды}
Bpp: word; {түстерді кодтау үшін пайдаланып отырған биттердің саны}
End;
Берілгендердің әрбір байты иллюстрациядағы екі ... түсі ... ... Draw ... ... он алты ... иллюстрацияның экранға шығарылуын
қамтамасыз ... ... ... иллюстрацияның ВМР файлында
орналасқаның болжамдаймыз.
Draw функциясында үш параметр: жоғарғы сол ... ... ... ... ... және файл ... Функция мәні шығарылған иллюстрацияның биіктігі (пиксельде) болады
немесе егер иллюстрация қандай да бір ... ... онда ... ... шақырған программаға қатенің коды неліктен ... ... ... ... Егер код- 1-ге тең болса, ... аты ... жолы қате ... егер код- 2-ге тең болса, онда
көрсетілген файлда орналасқан иллюстрация он алты түсті емес.
Алдымен ... ... ВМР файл ... ... ... ... он ... суреттің бар екенін біліп, төменгі сол ... ... ... ... ... және бір ... шығару үшін
оқуға керек байт саны. Файлды қайта ашқаннан ... және оқу ... ... ... ... соң ... ... onfo.
offset]) функциясы берілгендер байтын оқиды. Бір байт екі нүктенің түсі
жөніндегі ... ... ... ... байт кіші мәнді х координаталы
нүктеге сай келеді.
Windows пен Turbo ... ... ... ... ... жөн. ... келесі нүктені шығару алдында түс ... ... ... ... ... Color ... Массив элементтердің нөмірі Windows- тегі түс кодына сай келеді,
ал массив элементтің ішіндегісі-Turbo Pasсal-дегі түс ... пен Turbo ... ... ... |Windows коды |Т. Р. коды ... |0 |0 ... |1 |4 ... |2 |2 ... ... |3 |6 ... |4 |1 ... |5 |5 ... түсті |6 |3 ... |7 |7 ... (қою) |8 |8 ... |9 |12 ... ... |10 |10 ... |11 |14 ... көк |12 |9 ... ... |13 |13 ... ... ... |14 |11 ... |15 |15 |
4. ... ... ... ... үшін ... ала ... көмегімен тағамдар
жазбасын жасап, оны файлға жазып қойдым. Файлдың аты my.dat. ... ... ... ... ... ... күтеді. Осы әрекет
жүзеге асқаннан соң экран бетіне диаграмма шығады.
Егер пайдаланушы Q ... және ... ... батырмасын
басса, онда программадан шығу әрекеті орындалады.
Енді программаның кодын сипаттап өтейік:
program Kursovay;
uses ... = ... ... = ... : ... : ... : ... : boolean;
end;
//тағамдар саммиві
table = array[1..MAX] of bludo;
//файлдан оқу процедурасы
procedure LoadFromFile(var tabl : table);
var
f : file of table;
name : ... ... ... ... ... ... процедурасы
procedure CreateDia(tabl : table);
var i,dr,md : Integer;
x,y : Integer;
angle : Integer;
sum : ... : ... of ... : ... : ... : ... : Integer;
prs : string;
begin {ұлұ®¤ ¤Ё Әа ¬¬л}
dr := DETECT;
md := 0;
InitGraph(dr,md,'');
if GraphResult grOk ... ... ... boiynsha ... ... := 0;
last := 1;
for i:=1 to MAX do
if tabl[i].busy then
sum := sum + round(tabl[i].cena);
have := ... i:=1 to MAX ... ... ... := round(tabl[i].cena);
proc[last] := proc[i]*360;
proc[last] := proc[i] div sum;
have := have + ... := last + ... := ... := ... := GetMaxX div 2;
y := GetMaxY div ... := ... i:=1 to MAX do
begin
if tabl[i].busy then
begin
if(iLIGHTGRAY)then
SetFillStyle(SOLIDFILL,i)
else SetFillStyle(SOLIDFILL,BLACK);
PieSlice(x,y,angle,angle+proc[i],100);
A:=(angle+angle+proc[i])/2;
XN:=x+Round(110*Cos(A*Pi/180));
YN:=y-Round(110*Sin(A*Pi/180));
if (A>90) and (A=1)then begin ch:=0; s:=s-1; end else ... : ... and ... begin ch:=0; s:=s-1; end else ... : if(s+1

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









Ұқсас жұмыстар
Тақырыб Бет саны
Орта мектепте программалау негіздерін оқыту68 бет
Нысанды-бағдарланған программалаудың негізгі принциптері5 бет
Turbo Pascal 7.0. программалау тілі10 бет
Turbo pascal жайлы мәліметтер17 бет
Turbo Pascal жүйесінде жолдарды ұйымдастыру технологиясы22 бет
Turbo Pascal жүйесінде массивтерді ұйымдастыру технологиясы39 бет
Turbo Pascal жүйесінде процедураларды ұйымдастыру технологиясы16 бет
Turbo Pascal жүйесінде файлдармен жұмысты ұйымдастыру технологиясы15 бет
Turbo Pascal жүйесінде қайталанатын процестерді ұйымдастыру технологиясы25 бет
Turbo Pascal жүйесіндегі графиканы ұйымдастыру технологиясы21 бет


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


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

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

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

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

Email: info@stud.kz

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

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