А. А. Медатов, М. К. Абдувохидов, О. А. Маматқулов


Download 0.79 Mb.
bet54/57
Sana20.12.2022
Hajmi0.79 Mb.
#1035125
1   ...   49   50   51   52   53   54   55   56   57
Bog'liq
Turbo Pascal услубий кулланма янги

Мисол 1. Жигар ранг фонда қизил рангли, координаталари (20,17) ва (350,160) бўлган тўғри тўртбурчак, ҳамда маркази (340, 150)да, радиуси 100 га тенг бўлган айлана шаклини чизищ дастури тузилсин.

program tortb_aylana;


uses graph;
var
gm,gd:integer;
begin
gd:=detect; initgraph(gd,gm,’’);
setcolor(4);
setbkcolor(7);
rectangle(20,17,350,160);
circle(340,150,100);
end.
Мисол 2. Маркази координаталар бошида жойлашган, радиуси 100 га тенг бўлган айлана тасвирини хосил қилинг: x=rcost, y=rsint, r>0, t[0;2]

program aylana;


uses graph,crt;
var gd,gm,x,y,r:integer;
t:real;
begin
gd:=detect; initgraph(gd,gm,'');
t:=0; r:=100;
repeat
x:=trunc(r*cos(t));
y:=trunc(r*sin(t));
putpixel(x+320,y+240,15);
delay(10);
t:=t+0.05;
until t>=6.28;
readln;
closegraph;
end.
Мисол 3. x=acos3t, y=bsintcos2t, a>0, b>0, t[0;2] функция графигини чизиш дастури тузилсин.

program grafic3;


uses graph,crt;
var gd,gm,x,y,a,b:integer;
t:real;
begin
gd:=detect; шnitgraph(gd,gm,'');
t:=0; a:=150;b:=140;
repeat
x:=trunc(a*cos(t)*cos(t)*cos(t));
y:=trunc(b*sin(t)*cos(t)*cos(t));
putpixel(x+250,y+100,15);
delay(10);
t:=t+0.01;
until t>=6.28;
readln;
closegraph;
end.


Мустахкамлаш учун саволлар:
1. GRAPH модулининг асосий вазифаси нима.
2. GRAPH модулининг асосий процедуралари.
3. GRAPH модулига мисол келтиринг.


Таянч тушунчалар: rectangle, line, circle, putpixel, arc, bar, set color, initgraph

Адабиётлар [1],[2]




Турбо паскаль воситалари.


Режа:
1. Кўрсатгич типидаги ўзгарувчилар ҳақида
2. Кўрсатгич типидаги ўзгарувчилар турлари
3. Кўрсатгич типидаги ўзгарувчилардан фойдаланиш

Программа объектлари икки хил кўринишда бўлиши мумкин: статик ва динамик. Статик обектлар бу дастур бажарилишидан олдин яратилиб, дастурни бажарилиш жараёнида мавжуд бўлади ва машина хотирасидаги ўлчами ўзгармайдиган объектлар. Динамик объектлар дастур бажарилиш жараёнида яратилиб, уларнинг машина хотирасидаги ўлчами ўзгарувчан бўлади ва у дастур бажарилиш жараёнида аниқланади.


Динамик объектлар билан ишлашда махсус турдаги қийматлар - кўрсатгич турлар ишлатилади. Бу турнинг қиймати бирор бир программ объектга кўрсатгич бўлади. Машина тилида бундай мурожаат берилган объектнинг хотирадаги кўрсаткичи (манзили) бўлиб хизмат қилади.
Кўрсатгич турнинг синтаксиси қуйидагича аниқланган:
<кўрсатгич турнинг берилиши>:= ^<турнинг номи>
Кўрсатгич турнинг қиймати унинг берилишида кўрсатилган турга мос келувчи объектга мурожаат ҳисобланади.
Кўрсатгич турдаги ўзгарувчилар одатдагидек турлар ёки ўзгарувчилар бўлимида эълон қилинади:

tyрe din=^integer;


var x:din; y:^real;
бу ерда x ва y ўзгарувчилар статик ўзгарувчилар бўлиб, улар мос равишда динамик объектларнинг хотирадаги жойини кўрсатади, шунинг учун улар кўрсаткич деб номланади.
Динамик объектларни ўзи new(x) стандарт процедураси орқали яратилади, бу ерда x – кўрсаткич ҳисобланади. Бунда динамик объектга хеч қанақа қиймат берилмайди, балки хотирадан жой ажратади. Динамик объект билан ишлаш учун кўрсаткичли ўзгарувчидан фойдаланиш керак:
<кўрсаткичли ўзгарувчи> := <мурожаат қилувчи ўзгарувчи>^
Кўрсаткич ўзгарувчидан фойдаланиб динамик объектга қиймат бериш, қиймат ўқиш мумкин:
x^ := 3; readln(x^); writeln(x^); y^ := x^;

Мурожаат қилувчи турнинг қийматлар тўплами устида қиймат бериш амали, <> - таққослаш амаллари аниқланган.


Мурожаат қилувчи ўзгарувчига nil қийматини бериш мумкин бўлиб у бўш мурожаат, яъни объектга мурожаат йўқлигини билдиради;
Мурожаат қилувчи ўзгарувчини ёки мурожаат қилувчи функцияларда а турлар мослиги сақланиши керак.
Барча ўзгарувчилар ва константалар қийматлари фақат битта сегментга ёзилади, сегмент ўлчови 64 килобайт. Кўп сондаги ўзгарувчилар билан ишлаганимизда бу ўлчов кичиклик қилиши, яъни ўзгарувчиларга битта сегментда жой етмай қолиши мумкин. Бу ҳолда хотиранинг бошқа бўш қисмларидан фойдаланиш имкониятларини кўриш керак.
Кўрсатгич типидаги ўзгарувчилар хотиранинг деярли барча бўш қисмларидан фойдаланишга имкон беради. кўрсатгич типидаги ўзгарувчилар ёрдамида фойдаланиладиган хотиранинг қисми хотиранинг динамик сохаси дейилади, негаки, бундай ўзгарувчи учун жой дастур иши давомида ажратилади ва керак бўлмаса жой бўшатилади. бошқа типдаги ўзгарувчилар учун эса хотирадан жой дастур бошида var калит сўзи орқали ажратилар эди.
Кўрсатгич типидаги ўзгарувчилар икки хил бўлади: типлашган ва типлашмаган кўрсатгичлар.
Типлашмаган кўрсатгичларни таьрифлаш учун pointer калит сўзи ишлатилади, типлашган кўрсатгичларни таърифлаш учун эса тип номидан олдин <^> белгиси қуйилади.
Масалан
P:pointer;
D,R:^integer;
Кўрсатгичдан дастур ичида фойдаланилганда ўзгарувчи номидан сўнг <^> ,белги қуйилади. Масалан
P^:=2;
DDP^:=10;
Бунда ўзгарувчига бериладиган қиймат типига мос келиши шарт.
Кўрсатгич типидаги ўзгарувчидан фойдаланишда жуда эхтиёт бўлиш керак, негаки улар хотиранинг бўш бўлмаган жойларига ҳам маълумот ёзаверади. Айнан бўш жойни топиб ёзиши учун махсус процедуралар бор, булар
GetMem(varP: pointer; n;word);- типлашмаган кўрсатгичлар учун хотиранинг бўш жойини кўрсатиш, P-типлашмаган кўрсатгич, n-хотирадан эгаллайдиган жой ўлчови(байтларда).
New(var P:^тип)-типлашган кўрсатгичлар учун хотиранинг бўш жойини кўрсатиш.
Кўрсатгичлар жойини улардан фойдаланиб бўлгандан сўнг бўшатиб қўйиш керак. Бу қуйидаги процедуралар орқали бажарилади:
Dispose(var p:^тип)-типлашган кўрсатгич ўрнини бўшатади.
FreeMem(varP: pointer; n;word) - типлашмаган кўрсатгич ўрнини бўшатади.
Кўрсатгич айни вақтда хеч нарсани кўрсатмай туриши учун Nil -калит сўзидан фойдаланилади.
Mark(var p:pointer) - процедураси хотиранинг динамик сохасининг жорий ҳолатини P кўрсатгич кўрсатаётган адресга ёзади.
Release(var p:pointer) -P кўрсатгич билан аниқланган адресгача хотиранинг динамик сохасини ўчиради.


Мустахкамлаш учун саволлар:
1. Кўрсаткич нима.
2. Кўрсаткич турлари.
3. Кўрсаткичга мисол келтиринг.


Таянч тушунчалар: Кўрсаткичлар, Freemem, Getmem, Mark, Release.

Адабиётлар [1],[2],[6].



Download 0.79 Mb.

Do'stlaringiz bilan baham:
1   ...   49   50   51   52   53   54   55   56   57




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling