Paskalning shakl chizish imkoniyatlari

Mavzu: Paskalning shakl chizish imkoniyatlari

2020- yil Ilm ma’rifat va Raqamli iqtisodiyot yili Demak IT(internet texnologiya)-texnologiya yili ham desak bo’ladi. Buning uchun bizda hozirdan ko’plab dasturchilarga bo’lgan talab soat sain oshmoqda!!!

Aziz o’quvchilar buning uchun sizdan faqat va faqat o’qish izlanish talab qilinadiDasturchi oyligi O’zbekistonda hozirda 400$ dan -5000$ gacha Quyidagi video so’zim isboti o’rnida ko’rgaysiz

Uyga berilgan vazifani tekshirish

(Tushunchalar tahlili metodi)

Takrorlash 1. Paskalning Graph moduli qanday maqsadda ishlatiladi? 2. Grafik holatda ekranning qaysi nuqtasi joriy nuqta bo'ladi? 3. Grafik holatda ekrandagi nuqtaning о 'rni nimasi bilan aniqlanadi?

4. Grafik drayver nima va и qanday vazifani bajaradi? 5. Ekranni grafik holatga о 'tkaz'ish uchun Paskalda qanday ко 'rsatma beriladi? 6.PutPixel operatori haqida gapirib bering.

Chiziq turi

SetLineStyle(s, p, t)

Chiziq turi

Namuna

Qalinligi

0

1

2

3

4 Namunadan tanlanadi

1 Ingichka

3 Yo`g`on

Diaganal asosida to`g`ri to`rtburchak hosil qilish

Rectangle (x1,y1,x2,y2)

Diaganal asosida to`g`ri to`rtburchak hosil qilis

10

200

program shakl;

uses GraphABC;

var

x0,y0:integer;

Begin

setbrushcolor(clred) ;

rectangle(10,10,200,100); SetWindowSize(800,600);

end.

10

100

Aylana chizish

Circle (x, y, r)

r

100

Aylana chizish

300

program shakl;

uses GraphABC;

var

x0,y0:integer;

Begin

setbrushcolor(clred) ;

circle(200,300,100);

SetWindowSize(800,600);

end.

200

Ellips hosil qilish

Ellipse (x,y,Rx,Ry)

Ry

Rx

Ellips hosil qilish

program shakl;

uses GraphABC;

var

x0,y0:integer;

Begin

setbrushcolor(clred) ;

Ellipse(320,240,800,500);

SetWindowSize(800,600);

end.

);

Shakllar ichini bo`yash :

• SetColor(Red);

• setbrushcolor(clred);

TextColor(Color:byte) - chiqayotgan belgilar rangini o‘rnatadi;

TextBackGround(Color:byte) - f о n rangini o‘rnatadi.

Ichi bo`yalgan ellips hosil qilish

FillEllipse (x,y,Rx,Ry)

Ry

Rx

Ixtiyoriy shakllarni ichini bo`yash

F l o o d F i l l (x,y, b)

Ichki nuqta kordinatasi

Chegara rangi

-1 then x0:=x0-20 chapga x0:=x0-2;// движение лево VK_Right: if x0then x0:=x0+2;// o’nga h-t VK_Down : if y0then y0:=y0+2; // pastga harakat VK_UP : if y00 then y0:=y0-2;//yuqoriga h-t end ; Sleep(10); ClearWindow; end ;" width="640"

Harakatga keltirish protsedurasi: ball:Picture; procedure KeyDown(Key: integer); begin case Key of VK_Left: if x0-1 then x0:=x0-20 chapga x0:=x0-2;// движение лево VK_Right: if x0then x0:=x0+2;// o’nga h-t VK_Down : if y0then y0:=y0+2; // pastga harakat VK_UP : if y00 then y0:=y0-2;//yuqoriga h-t end ; Sleep(10); ClearWindow; end ;

begin SetWindowSize(800,600);// ойна размери ball:=Picture.Create(50,50);// яратиш расм ball.Load(' круг .jpg');// коптокни юклаш x0:=0; y0:=0; repeat OnKeyDown:=KeyDown; ball.Draw(x0,y0); until false; end .

Darsni mustahkamlaymiz

“ Sherigini top” metodi

setwindowsize

Qalam rangini belgilash

Butun sonlar

setpencolor

O‘zgaruvchilarni tavsiflash

integer

Joriy oyna o‘lchamini o‘rnatish

var

5-minutlik esse yani dam olamiz hamma bu qiziq fat videosiga etibor qaratsin

Guruhlarga topshiriq

1- Guruhga topshiriq

Ekranning o`rtasining yuqori qismida uzunligi 300 ,balandligi 150 piksel bo`lgan qizil rangli to`rtburchak chizish va harakatga keltirish dasturini tuzing.

2- Guruhga topshiriq

Ekranning o`rtasida radiusi 150 ga teng bo`lgan sariq rangli aylana chizish va harakatga keltirish dasturini tuzing.

3- Guruhga topshiriq

Ekranning yuqori o’ng burchagida elleps hosil qilish va harakatga keltirish dasturini tuzing. R1=150, R2=140.

Guruhlarga savollar

1- Guruhga savollar

1.To`g`ri to`rtburcak chizish operatorida X1,Y1,X2,Y2 lar

nimani bildiradi?

2. Ekranda biror shakl chizish uchun uning rangi qaysi operator yordamida tanlanadi?

2- Guruhga savollar

1. Aylana qaysi operator yordamida chiziladi?

2. SetWindowSize(x,y) vazifasi

3- Guruhga savollar

• Ellipse operatori qanday shakl chizadi?
• Clearwindow operatori vazifasi ?

Uyga vazifa: 4. Svetofor rasmini chizuvchi dastur tuzing.