Турбо паскальдағы графикалық процедура

Мазмұны

КІРІСПЕ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...1

НЕГІЗГІ БӨЛІМ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..2
1) Графикалық режімге көшу адаптерлері ... ... ... ... ... ... ... ... ... ... ... .3
2) CRT модуліндегі адаптерлердің мәтіндік мүмкіндіктері ... ... ... ... .4
3) Графикалық процедуралар мен функциялар ... ... ... ... ... ... ... ... ... .5
4) Grapgмодулінің процедуралары мен функциялапы ... ... ... ... ... ... ..6
5) Геометриялық объектілерді құру процедуралары ... ... ... ... ... ... ... .7
6) Графикалық режімде мәтін жазу процедуралары ... ... ... ... ... ... ... ..10

ҚОРТЫНДЫ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 14

Пайдаланған әдебиеттер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .15
Кіріспе.
Паскаль тілін 1968-1971 жылдары швейцариялық ғалым Никлаус Вирт оқып үйренуге қолайлы программалау тілі ретінде ұсынған болатын. Бұл тілдің стандарты кейінірек бекітілді,ол сол кездерде кең таралған АЛГОЛ, ФОРТРАН, БЕЙСИК тілдеріне қарағанда жетілдірілген, жұмыс істеуге ыңғайлы тіл болды. Паскаль тілі өзінің қарапайымдылығының және тйімділігінің арқасында дүние жүзіне тез таралды. Қазіргі кезде барлық дербес компьютерлер осы тілде жұмыс істей алады.Паскаль тілінде жазылған программаның дұрыстығын компьютерде тексеру және жіберілген қатені тексеру оңай.
Бұл тілде жазылған программа компьютерде орындау барысында алдымен трансляцияланады, объектік программаға түрлендіріледі де, содан кеиін ғана орындалады. Осы сәтте компьютерде программаның екі нұсқасы болады, оның біріншісі – алгоритімдік тілдегі алғашқы түп нұсқасы, ал екіншісі- объектік кодтағы жазылған программа. Есеп нәтижесін машиналық кодта жазылған программа арқылы аламыз, ал программаны түзету қажет болғанда, оның алгоритімдік тілде жазылған алғашқы нұсқасы өңделеді.
Қазіргі кезде Паскаль тілі кез келген күрделі есептерді шығара алатын, кең таралған стандартты оқу тіліне айналды.
Паскаль тіліндегі графиканың мүмкіндіктеріне тоқталып өтетін болсақ:
дисплеи экраны нүктелер жиыны болып табылатын төртбұрышты аймақ болып табылады. Ол графикалық және мәтіндік режимдерде жұмыс атқара алады. Графикалық режимде экранның әрбір нүктесін түрлі түске бойап, сол түстер арқылы сызық, мәтін және әртүрлі бейнелер кескіндеуге болады.
Графикалық программалау процесі тіиімділігін арттыру мақсатында Borland International фирмасы GRAPH арнайы программалар кітапханасын жасап шығарған болатын, онда қазіргі кезде мониторлардың барлық типтерімен жұмыс істейтін, экранға түрлі мөлшердегі қаріптер шығара алатын драйверлер жиыны бар.
Бұл модулы компьютерде әртүрлі графиктік операторлармен жұмыс істеуге мүмкіндік береді. Тек суреттер салып қана қоймай , оны қозғалысқа келтіретін бағдарламалар да жасай аламыз. Компьютер мүмкіндігі барлық бояау түрлерін пайдаланып , әртүрлі тәсілдермен әрлеуге, мәтіндер жазуға болады.
Пайдаланған әдебиеттер.

Б.Бөрібаев,Б. Нақысбеков, Г.Мадиярова
Информатика және есептеуші техника негіздері

С.М. Кеңесбаев, Г.М. Салғараева
Программалау тілдері

Н.Ы.Омарова, К.У. Тұрғанбетов
Паскаль тілінде программалаудың енгіздері

Кемардинов
Инфарматика
        
        Турбо Паскальдағы графикалық процедура
Мазмұны
КІРІСПЕ.....................................................................
......................................1
НЕГІЗГІ
БӨЛІМ.......................................................................
.......................2
1) ... ... ... CRT модуліндегі адаптерлердің мәтіндік мүмкіндіктері.................4
3) ... ... ... ... ... ... Геометриялық ... ... ... ... мәтін ... ... ... жылдары швейцариялық ғалым Никлаус Вирт ... ... ... тілі ... ... ... Бұл тілдің
стандарты кейінірек бекітілді,ол сол кездерде кең таралған АЛГОЛ, ФОРТРАН,
БЕЙСИК тілдеріне қарағанда жетілдірілген, ... ... ... тіл ... тілі ... ... және ... арқасында дүние
жүзіне тез таралды. Қазіргі кезде барлық дербес компьютерлер осы ... ... ... ... жазылған программаның ... ... және ... ... ... ... ... жазылған программа компьютерде орындау барысында ... ... ... ... де, содан кеиін ғана
орындалады. Осы сәтте компьютерде программаның екі ... ... ...... ... алғашқы түп нұсқасы, ал екіншісі- объектік
кодтағы жазылған ... Есеп ... ... ... ... ... аламыз, ал программаны түзету қажет ... ... ... жазылған алғашқы нұсқасы өңделеді.
Қазіргі кезде Паскаль тілі кез келген күрделі есептерді шығара алатын,
кең таралған стандартты оқу тіліне айналды.
Паскаль тіліндегі ... ... ... ... ... ... нүктелер жиыны болып табылатын төртбұрышты аймақ болып
табылады. Ол ... және ... ... ... атқара алады.
Графикалық режимде экранның әрбір нүктесін түрлі түске бойап, сол түстер
арқылы сызық, ... және ... ... ... болады.
Графикалық программалау процесі тіиімділігін арттыру мақсатында Borland
International фирмасы GRAPH ... ... ... ... ... онда ... кезде мониторлардың барлық типтерімен жұмыс істейтін,
экранға түрлі мөлшердегі қаріптер шығара ... ... ... ... ... ... әртүрлі графиктік операторлармен жұмыс істеуге
мүмкіндік береді. Тек ... ... қана ... , оны ... ... да жасай аламыз. Компьютер мүмкіндігі барлық бояау
түрлерін пайдаланып , әртүрлі тәсілдермен әрлеуге, мәтіндер жазуға болады.
Графикалық режимге көшу адаптерлері.
Экранға ... ... ... жағынан сүйемелдеу екі модуль –
бейнеадапптер және бейнемонитор арқылы қамтаммасыз етіледі. ... ... ... және графикалық бейнелер шығарылатын ... ... ... ... ... сұйық кристалды тақтадан тұрады.
Дисплей теледидар сияқты жұмыс істеп, экрандағы бейне секунд сайын 25 ... ... ... көзі ... ... жиілікпен ауысуын байқай
алмайды да, ... сол ... ... ... болып көрінеді.
Экрандағы бейнелер кішкене нүктелерден ... ... ... экранның басқарылатын ең кіші элементі ... ... ... кез ... ... осы пикселдер арқылы салынады. Графикалық
режимде экран төртбұрышты пикселдер жиынынан құралады да мұнда оның ... ... ... әр ... ... ... ... бетіндегі қатарлар саны және бір ... ... ... бейнеадаптерлердің жұсыс режиміне ... ... ... ... оны ... ... ... деп те атайды. Графикалық бейненің экранда айқын көсетілу сапсаы
адаптер ... ... әр ... бола береді. Әдетте , монитор мен ... ... ... Адаптер шағын электрондық тақшада бөлек орналасады,
кейде ол жүйелік тақшамен бірге де жасалады.
Жалпы бейне адаптер екі ... ... ... және бейнеферуден тұрады. Жетірдірілген қазіргі кездегі
адаптрлер бұлардан ... ... ... де жабдықталады.
IBM PC тәрізді ... ... ... ... алғашқыда тек қарапайым ақ-қара түсті мәтіндік ақпараттарды
өңдеуге арналған адаптерлер қолданылғанболатын, олар 25 ... ... ... ... ... ғана ... ... жылы Hercules фирмасы адаптерін шығарды оның мәтіндік ақпараттардан
өзге 720 х350 нүктеден тұратын ... ... ... мүмкіндігі
болды. Кейінен түрлі түсті және жетірілген ... ... ... келеді. Қазіргі кезде адаптерлердің жетілдірілген оннан ... бар. Олар бір- ... ... бетіне шығатын нүктелер санымен және
экранның ... ... ... ... ... ... ғана ерекшеленеді.
Дисплейлердің негізгілерінің сипаттамалары 7.1 кестеде көрсетілген.
Қажеті драйверлерді қолдану арқылы кез ... ... ... режімде
пайдалануға ьолады. Драйверлер деп дербес ... ... ... ... ... айтады. Графикалық драйвер Турбо
Паскалдің функциялары мен процедураларын дисплеидегі нақты ... ... оның ... режімдегі жұмысын басқсрады. Графикалық
драйверлер, негізінен барлық адаптерлер үшін жасалған, олар файл атының
типі.BGIболып ... ... ... ... ... тағы басқа.
Негізгі дисплей адаптерлерінің сипаттамалары. (7.1-кесте)
|Адаптерлердің типтері |Экранның жұмыс режимі |Нүктелер саны ... ... ... | | ... ... ... түсті ... |
| | | ... | | |
| ... көп түсті |640х250 |
| | | ... ... көп ... | |
| | ... |
| ... ... | ... 64 | | |
| ... ... ... Mono | | |
| ... ... ... Mono | | |
| ... түсті ... ... 400 | | |
| ... ... ... ... | | |
| ... түсті |640х200 ... | | |
| ... ... ... 3270 | | |
| | ... ... ... ... ... ... паскальдің мәтіндерді енгізіп – шығаруды жетілдіретін ... ... мен ... бар, олар ... жинақталған.
Метіндік режімде адаптерлер экранға 40 немесе 80 жолдан тұратын 25, ... 50 ... ... шығара алады. Мәтіндік ... ... үшін ... CRT ... іске қосу ... Ол үшін ... кейін арнайы жол жазылуы тиіс:
Program;
Uses CRT;
CRT модулін пайдалана отырып, экранға шығарылатын символдардың түсін,
мөлшерін, ... ... де ... ... ... ... терезе жасауға , оны өшіруге, курсорды автоматты
түрде жаңа орынға ... оның жаңа ... ... оның жаңа орнын
анықтауға, жолдарды өшіруге және ... т.б. ... ... ... ... ... ... процедура түрінде
берілген. Біз олардың негізгілерін ... ... ... стандартты процедура арқылы жүргізіледі:
Text Mode ( Mode: word);
Мұндағы Mode- мәтіндік режім коды.
CRT модулін пайдалана отырып, экранға ... ... ... экранның да түсін өзгертуге болады.
Мәтіндік режімде символдар 16 түстің біріне, экран реңі 8 түстің біріне
бояла ... ... ... үшін екі ғана түс ... ... ... ... қара экранға ақ символ немесе ақ экранға ... ... ... ... жыпылықдатып қою мүмкіндіктері бар.
Экранға шығарылатын символдың түсін
TextCloro( cloro:Byte);
Процедурасы арқылы өзгертеді, мұндағы cloro- түс нөмірі.
Экранның түсін өзгерту үшін
textBackground(color:Byte);
процедурасы ... ... мәні ... түс аты ... ... түсі мен ... түсі ... болса , мәтін көрінбей кетеді. Төменгі
программа әр түрлі ... ... ... ... sbet;
Uses crt;
Const col: array[1..15] of string;
Var k:byte; i:integer;
Begin
For k:=1to 15 do
Begin
Textclor(k);
Writeln(k,’-түс с “,”-“,col[k]);
End;
Textcolor(light Gray);
Writeln;
End.
Бұл ... ... ... ... ... және оған сәйкес түс
аттары өз түстерімен боялып шығады.
Енді экранды ... ... ... ... немесе терезені тазалап , курсорды экранның сол жақ жоғары
бұрышына көшіреді, тек мәтіндік режімде ... ... жол ... ... ... өшіреді
DelLine-курсор орналасқан жолдағы символдар түгел өшіріледіде төменгі
жолдар бір қатар жоғары көтеріледі.
LnsLine- ... ... ... жаңа жол ... ді, төменгі
символдар бір қатарға төмен түседі.
Турбо Паскаль тілінде курсорды басқаратын және оны кез ... ... ... процедураларда қарастырылған.
Goto XY(X,Y:byte);- курсорды ... ... ... ... ... Х сол жақ ... оң жаққа қарай , ал Ү жоғарыдан ... ... ... ... көрсетеді. Егер экран толық ашылған
терезе деп ... , ... ... және әр жол 80 ... ... ... ... режімінде Х=1..80, ал Ү=1..25 мәндеріне сәйкес
келеді. Экранның сол жақ ... ... ... оң жақ ... үшін –(80,25) болып келеді.
Графикалық процедуралар мен функциялар.
Қазіргі компьютерлерде символдардан бөлек әр түрлі суреттер, ... ... Ол үшін ... ... тілінде әр түрлі графикалық
процедуралар пайдаланылады. Бұл графикалық процедураларды ІВМ РС ... ... ... ... ... ... ... нөмірінің өсуіне қарай 4.0, 5.0, 7.0 ... ... де өсіп ... Ол ... ... ... бұл ... CRT жәнеGRAPH кітапханаларындағы ... ... ... ... ... ... болады. GRAPH
модулінде орналасқан кітапханадағы процедуралар мен функцияларды пайдалану
үшін программа ... ... ... ... сөзін пайдалану керек . график сызуда CRT ... ... ... бола ... GRAPH ... ... дисплей адаптерлері рафикалқ режімде 200, 350 ... 600 ... ... жолдарының әрқайсында 640, 720, 800 нүкте тізбегін бейнелей
алады. Мұндағы ... деп ... - ... 0,8х1 ... ... ... кішкентай төртбұрыш, яғни пиксель. Әр бір нүктенің ... ... ... (Х,Ү) анықталады. Дисплей экранына грфик салу үшін ... ... ... қажет. Координаталар басы (0,0) болып
экранның сол жақ жоғарғы бұрышы есптеледі. Х координаталары солдан ... , ал Ү ... ... ... ... өсіп ... Мысалы EGH
адаптерлерінң EGAHI режімінде экран бұрыштарының ... ... 0..199 ... ... қажет. Экранда Х осі содан оңға қарай Ү
осі жоғарыдан төмен қарай бағытталған. Мәтіндік режімнен графикалық ... ... ... ... ... ... ... көрінбейді.
Дисплей экранның бетіне нүкте , түзу немесе қисық сызық, шеңбер, эллипс
және кез келген ... ... ... ... ... Сонымен қатар тұиық
сызықтардың ішін әртүрлі түспен бойяп қоюға болады. Сызықтарды ... ... және ... ... ... көшіру арқылы көрнекі бейнелермен
мультфилмдер жасауға болады. График тұрғыза үшін оны ... ... ... ... ... ... режімде ол курсор позициясы болып саналады
ал графикалық режімде көрініп тұратын курсор жоқ, бірақ экранда көрінбейтін
курсор тәрізді сілтеме белгі СР бар. ... оны да ... деп ... режімде жұмыстарды атқаратын Турбо Паскальдің 7.0 нұсқасында
графикалық процедуралар мен ... өте көп, енді біз ... ... ... модулінің процедуралары мен функциялары. Графикалық режімді іске
қосу.
Графиктермен жұмыс істеу алдында оған ... ... ... ... ... Турбо Паскаль тілінде алдын ала бекітілген драйверлер ... ... ... үш ... ... ... ... істей алады. Драйвер
типі мен оның режімі санмен немесе тұрақты түрінде беріледі.
GRAPH модулі іске қосылысымен оның ... ... мен ... ... ... ... ... рет іске қосу (инициализациялау) үшін ... ... оның ... Graph( Driver var, Mode Var: integer, ... Driver Var, ModeVar деп атлатын бүтін ... екі ... және ... ... ... Мысалы:
DriverVar:= VGA; DriverVar:=VGAL0;
Алғашқы параметр тұрақты түрінде немесе нөмірімен де ... ... ... ... ... ... ... көрсетілген), мысалы төмендегі
оепраторлар ... ... ... ... ... ... көрсеткіміз келмесе немсе оны білмесек , стандартты
Detect тұрақтысын ... ... ... процедурасы көмегімен драйвер
автоматты түрде таңдап алынады да оның тиімді режімі де ... ... Gol деп ... ... параметрі Graph модулінің
маршурутын яғни жолын көрсетеді. Егер ол Модуль ағымдағы католгта ... ... , онда оның ... екі ... ... ... ... программаның бас жағына мынадай жолдар арқылы жаза аламыз
Uses crt, graph;
Var drivervar,modevar: integer;
Begin
Drivervar:= detect;
Initgraph( drivervar, modevar,’\ TP\Graph’);
Мұндағы drivervar –графикалық адаптерінің типі;
ModeVar-оның ... ... GRAPH’ – ... ... ... яғни жазылған бумасы егер ол ағымдағы каталог немесе бума болса онда
тек ... ғана ... ... ... ... ... алу
үшінDriverVar:= Detect ;деп аталатын көрсетіледі. Кез келген программада
осындай жолдар орындалғаннан кейін ... ... ... ... шығу ... аяқтау ) үшін параметірсіз
жазылатын Closgraph процедурасы пайдалынады. Бұл процедура ... ... ... ... ... және ... ... Graph Mode:integer;функциясы адаптердің яғни ... ... ... мәнін береді.
SetGraphMode(Mode:integer)- бұл процедура графикалық ... ... ... ... ... Mode- ... ... коды. Мысалы осы
процедура арқылы графикалық режінен мәтіндік режімге шығуға және ... ... ... ... ... detect; init ... regim’);
Writeln(‘Enter-di bas’);
Readln;
RetoreCRTMode; writeln(matindik regim’)
Readln;
Setgraph Mode(get graphMode);
Writeln(‘);
Readln;
Closgraph
End.
Бұл программа графикалық режімнен мәтіндік режімге және кері ... ... ... мәндері бойынжа ... ... ... жаңа орнын анықтау)
MoveRel(DX,DY:integer) – курсорды тұрған нүктеден әрі қарай ДХ ... ... ДҮ ... ... ... орын оуыстыру
RestoreCRTMode процедурасы графикалық режімнің алдындағы режімді қалпына
келтіреді. Оның Closegraph процедурасынан өзгешелігі – қойылған ... ... ... тазаламайды.
GetX:integer функциасы Х координатасының ағымдағы мәнін береді,
GetY: integer функциасы Ү ... ... ... ... объектілерді құру процедуралары.
Нүкте салу операторы . Экранның кез келген жеріне нүкте салуға ... ... ... нүкте PutPixel процедурасы арқылы саланады, оның пішімі
Put Pixel (X,Y: integer; Color: ... Х,Ү- ... ... , ... оның ... ... ... For
i:=1 to 60 do PutPixel(I,1,Red) операторы бірінші қатарға 60 қызыл нүктеден
тұратын ... ... ... бетіндегі бұрын салған нүктенің орнын анықтау
үшін:
GetPixel(X,Y:integer): word; функциасы қолданылады.
Түзу сызық салу ... ... екі ... ... ... ... атқарады. Оның пішімі
Line(X1,Y1,X2,Y2:integer); мұнда ағымдағы түс бойынша ... ... Х2,Ү2 ... ... ... сызылады, мысалға
Line(1,1,600,1).Бастапқы ... ... , онда мына ... :
Lineto (X,Y :integer; - курсор тұрған орынан бастап координаталары Х,Ү
болатын нүктеге дейін түзу ... ... integer) ... ... қашықтығы координаталары
өсімшесіне ДХ, ДҮ сәйкес болатын жаңа нүктеге ... түзу ... ... ... да ... ... , ... пуектирлі т.б сызықтар сызылады.
Сызық стилі мына процедура арқылы салынады.
SetLineStyIy(T,O,Th:word)- сызық қалыңдығы мен стилін орнату , Т- ... Р – ... ... Тһ- ... ... ... ұзындығы 16 пикселден тұратын кесінді сызады, ол орындаушы
тағайындайтын ... ... ... , мәні 4, стандартты стиль қолданса ... Тһ ... ... екі ... ... бірін ғана қабылдайды:
NormWidth=1(қалыңдыға бір пиксел сызық)
ThickWidth=3;(қалыңдығы үш пиксель сызық)
Мысалы:
SetLineStylr(Dootedn,0, normWidth);
Retangle(15,15,150,130);
Сызық салу кезінде оның түсі ... ... ... ... ... үшін:
SetColor( color: word); процедурасы қолданылады, мұндағы соІог – жаңадан
орнатылатын түрінің аты немесе нөмірі. Мысалы,
SetColor(cyan) ( ... түсі ... ... ( ... түсі боз ... ... ... ... яғни рең түсін өзгертеді,
мұндағы соіог – жаңадан орнатылатын ... аты ... ... үшін рең ... 0..63 ... беруге болады. Мысалы,
SetBkColor(blue); экран түсі көк болады
SetColor(4)экран түсі ... ... ... сызу ... көп ... ... түрін сала алады, олардың
түсі , стилдері келісім бойынша немесе setColor т.б ... ... ... ... жақ ... ... және оң жақ
төменгі төбелерінің координаталары (х2,ү2) бойынша ... ... ... ... , ... түсі мен бірдей болады. Мысал ретінде экранға әр түрлі
түспен 100 төртбұрыш сызу программасын келтірейік.
For i:=1 to 100 do
Begin
Setcolor ... ... ... ... арқылы сызылады.
Bar(x1,y1,x2,y2:integer);- мұнда ағымдағы түспен іші бойалған төртбұрыш
сызады. Бояау түсін ... ... ... ... ... Color:word)- объектінің ішін бояйды, толтыру ... ... ... ... Pattern – ... ... ол ... немесе
нөмір арқылы береді; соІог – толтыру түсі. Толтыру стилі тұрақты арқылы
жазылады немесе 0-ден 12- ге ... ... ... ... –таңдалған стиль бойынша тұйық фигураның
ішін бойяйды.Мұндағы х,ү – ... ... ... кез ... нүктенің
координатасы, Иог – шегара сызығының түсі.
DrawPoly(N:= word; var Poins);- ... ... және ... ... ... ... мұндағыN- сынық сызық саны , Pointes- pointetype ... ... ... ... ... , ... ... да болады.
Доға, шеңбер және эллипс сызу процедуралары фигура салу ... ... ... ... Бұл жүйеде бұрыштар
горизанталь остен сағат тіліне қарсы ... ... ... шеңбер сызу процедурасы, мұндағы х, ү ... ... г- ... ... ... ... ... ағымдағы түспен сызылады және сызықтың қалыңдығы ... ... ... ... ... ... 50 ... жасыл шеңбер сызу былай орындалады.
Setcolor(green);
Circle(450,100,50);
Arc(x,y:integer;B1,B2,R:word)- доға сызу процедурасы, ... х,ү ... ... И1,И2- ... ... ... ... және соңғы
мәндері,r- радиусы. Мысалы , центірі ... ... ... 50 ... 0мен 90 ... аралығындағвы қызыл доға сызу былай
жазылады:
Setcolor(red);
Arc(450,100,,0,90,50);
Ellips(x,y:integer;B1,B2,RX,RY: word); ... ... ... ... ... ... ... В1,В2 – алғашқы және соңғы доғаның бұрыштары, RX,RY-
эллипстің жатық және тік радиустары. Эллипстіңдоғасы бастапқы В1 бұрышынан
соңғы В2 ... ... ... егер В1= 0 және В2= 360 градусқа тең болса
онда эллипс салынады. Эллипс ішін бояу Setcolor, Setfillstyle ... ... ... сызығының түсін орнату}
Ellips(100,100,0,360,30,50);{ толық эллипс сызуы }
Эллипс ішкі ... ... ... , оның іші ... салу ... ... XR ... i:=2 to 5 do s:=s+n[i];
For i:=2 to 5 do p[i]:= 9n[i]/s)*100;
M:=5;
For i:=4 downto 2 ... n[i]> n[m] then ... i:= 5 down to 2 ... ... ... VGA;
grMode:=VGAHI;
grPath:= ‘e:tp\ bgi’;
InitGraph(grDriver,grMode,grPath);
ErrCode:=GraphResult;
If ErrCode grOK then
Begin
Writeln(‘ графикалық редактордағы инициализацияның қатесі’);
Writeln(‘ бағдарламаның орындалуы үшін’,’ ... ... ... ... ... i:=5 downto 2 ... i:= 5 down to 2 ... RealToStr(p[i],5,1)+’%’);
x:=x+20;
end;
x:=200; y:=100;
for i:=5 down to 20 do
begin
SetF3llStyle(solidfill,i);
Bar(x,y.x+20,y+10);
OutTextXY(x+25,y,nes[i]);
Y:= y+20;
End;
Readln;
CloseGraph;
Ehd.
Есептің нәтижесі
ҚОРТЫНДЫ
Мен Турбо Паскалда графикалық ... ... оқып және ... шықтым. Турбо
Паскальда графикалық режімнің көмегімен әртүрлі гесметриалық суреттер ,
әртүрлі бейнелерді кескіндеудіжәне олардың ... ... етіп ... ... Графикалық режімде көптеген есептерді көрнкеі ... ... ... және ... салып қана қоймай оны
қозғалысқа келтіретін бағдарламалар да ... ... және де ... ... мүмкіндігіндегі барлық бояу түрлерін пайдаланып ,
әртүрлі тәсілдермен әрлеуге, ... ... ... береді.
Пайдаланған әдебиеттер.
Б.Бөрібаев,Б. Нақысбеков, Г.Мадиярова
Информатика және есептеуші техника негіздері
С.М. Кеңесбаев, Г.М. ... ... К.У. ... ... ... ...

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









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


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


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

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

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

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

Email: info@stud.kz

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

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