20-tema. Pascal tilinde quramalı formalar sızıw Reje

2. Grafikalıq primetivlerdi sızıw proseduraları

Prosedure	Sıpatlama
SetPixel(x, y, color)	Color reńinde koordinatası (x, y) bolǵan bir pikseldi boyaw
Line(x1, y1, x2, y2)	Koordinataları (x1, y1) hám (x2, y2) tochkada bolǵan kesindini sızadı
Line To(x, y)	Berilgen tochkadan koordinatası (x, y) bolǵan tochkaǵa shekem kesindi sızadı
Restangle(x1, y1, x2, y2)	Tuwrımúyeshlik sızadı, bunda (x1, y1) shep joqarǵı tóbesiniń hám (x2, y2) tómengi oń tóbesiniń koordinataları
Circle(x, y, r)	Radiusı r, orayı (x, y) tochkada bolǵan sheńber sızadı
Ellipse(x1, y1, x2, y2)	Qarama-qarsı tóbeleriniń koordinataları (x1, y1) hám (x2, y2) bolǵan ellips sızadı

3.Reńler menen islew proseduraları

Prosedure	Sıpatlama
SetpenColor(color);	Peronıń renin ornatadı(sızıqlar)
SetpenWidth(n);	Peronıń qalıńlıǵın ornatadı n pikselge teń
SetpenStyle(ps);	Peronıń stilin berilgen ps parameter boyınsha ornatadı. Parametr ps tómendegishe berilgen: Mánisi Sıpatlaması Sızıq turi psSolid Tutasqan sızıq _________ psDash Shtrix sızıq ---------------- psDot Punktir sızıq ._._._._._.-._ psDashDot Shtrixpunktir sızıq -.-.-.-.-.-.-.-.-. psDashDotDot Shtrix hám eki punktir sızıq -..-..-..-..-..-.. psClear Sızıq joq
SetBrushColor(color);	Kistke reń ornatadı. Jabıq konturdı kist penen boyaydı . color –boyaw reńin kórsetedi.
FloodFill(x, y, color);	Jabıq konturdı kist penen boyaydı . (x, y) kontur ishindegi tochkka koordinatası. color –boyaw reńin kórsetedi.
FillRect(x1, y1, x2, y2)	Qarama-qarsı tóbeleriniń koordinataları (x1, y1) hám (x2, y2) menen berilgen tuwrımuyeshlikti boyaydı, kistıń berilgen reńi menen.

4.Tekst menen islew proseduraları

Prosedura/funkciya	Sıpatlama
TextOut(x, y, St);	St tekst qatarın berilgen x hám y koordinataları poziciyasına shıǵaradı
SetFontColor(color)	Shrift reńin ornatadı
SetFontSize(cz);	Punktlerge shrift ólshemin ornatadı
SetFontName(name);	Shrift atamasın ornatadı. Tınısh jaǵdayda MS Sans Serif ataması menen shrift ornatadı.Keń tarqalǵan shriftler Times, Areal, Courier New
SetFontStyle(fs)	Sriftiń berilgen stilin ornatadı. Sriftiń stili tómendegi konstantalar menen anıqlanadı: fsNormal-ápiwayı, kundelikli; fsBold-qalıń; fsItalic-qıysayǵan; fsBoldItalic-qalıń qıysayǵan; fsUnderLine-astı sızılǵan; fsBoldUnderLine- qalıń astı sızılǵan; fsItalicUnderLine- qıysayǵan astı sızılǵan; fsBoldItalicUnderLine-qalıń qıysayǵan astı sızılǵan;

5. PascalABC da reńler
clBlack, clPurple, clWhite, clMaroon, clRed, clNavy, clGreen, clBrown, clBlue, clSkyBlue, clYellow, clCream, clAqua, clOlive, clFuchsia, clTeal, clGray, clLime, clMoneyGreen,, clLtGray, clDkGray, clMedGray, clCilver.
Endi mısallar keltiremiz.
Mısal 1. Úy formasın hám terek sızıw programmasın keltiremiz.
Programma teksti PascalABC tilinde islep shıǵılǵan..

Program Domik;

uses GraphABC;
var i: integer;
st:string;
x:integer;
begin
SetWindowSize(800, 500);
x:=100;
While x<=700 do
begin
SetPenWidth(2);
SetBrushColor(clBrown);
FillRect(x,50,x+50,100);
{Крыша желтого цвета}
SetPenColor(clBrown);
Line(x+25,25,x-20,75);
Line(x+25,25,x+70,75);
FloodFill(x+25, 30,clYellow);
{Крона дерева}
SetPenColor(clGreen);
SetBrushColor(clGreen);
Ellipse(x,150,x+50,200);
{ствол дерева}
SetBrushColor(clBrown);
FillRect(x+20, 200, x+30, 230);
x:=x+150;
end;
end.
Nátiyje:

Óz-ózini qadaǵalaw ushın sorawlar(Questions for self check)
1.Grafikalıq aynanı basqarıw algoritmi.
2. Grafikalıq primetivlerdi sızıw proseduraların aytıp beriń.
3.Reńler menen islew proseduraları qanday boladı.
4.Tekst menen islew proseduraları qanday boladı.
5. PascalABC da reńler menen islew proseduraları.
Óz betinshe orınlaw ushın tapsırmalar(Task for independent work)
1.C++ tiliniń grafikalıq imkaniyatların paydalanıp koncentrik sheńber sızıń
2. Python tiliniń grafikalıq imkaniyatların paydalanıp Pedinstituttıń emblemasın jaratıń.
3.Delphi tiliniń grafikalıq imkaniyatların paydalanıp Nókis qalasındaǵı “Gúbelek” kópir ushın animaciya jaratıń.
4.Pascal tiliniń grafikalıq imkaniyatların paydalanıp Nókis qalasındaǵı kurant saattıń animaciyasın jaratıń


Juwmaqlar(Conclusion)
GraphABC.moduli járdeminde ob’ektlerdi jaratıw ushın quramalı formalardı sızıwshı proceduralar hám olardan paydalanıw ushın funksiyalardan paydalanıw zárur ekenligi kórsetilgen. Tiykarǵı grafikalıq elementlerdi jasaw algoritmin kórdik. Grafik rejimde tıshqanshanı programmalastırıwǵa mısal kórdik.Temanıń máqseti hám tayanısh túsinikler kórsetilgen. Mısallar keltirilgen hám komp`yuterde nátiyje alınǵan. Talabalardıń bilimin bekkemlew ushın sorawlar hám tapsırmalar islep shıǵılǵan.