Образец материалов для подготовки преподавателей к лекции


Download 87.47 Kb.
bet1/7
Sana21.06.2023
Hajmi87.47 Kb.
#1643981
  1   2   3   4   5   6   7
Bog'liq
19-taqdimot

19-Mavzu

CHAPTER 2

 

 

LEARNING OBJECTIVES


Глава 2
Paskal tilida sodda shakllar chizish
Цели изучения

Reja:

  • Reja:
  • Sodda shakllarni chizuvchi protseduralar va ulardan foydalanish
  • Shakllarni bo’yash va shablon bilan to’ldirish

Grafikali muhitda ob’ektlarni chizish uchun sodda shakllarni chizuvchi protseduralar va ulardan foydalanish uchun funksiyalardan foydalanish zarur. Quyida ularni keltirib o‘tamiz:

  • Grafikali muhitda ob’ektlarni chizish uchun sodda shakllarni chizuvchi protseduralar va ulardan foydalanish uchun funksiyalardan foydalanish zarur. Quyida ularni keltirib o‘tamiz:
  • PutPixel(x.y:integer;color:word) –protsedurasi ko‘rsatilgan color rangli (x.y) koordinatali nuqtani ekranda tasvirlaydi.
  • Masalan: PutPixel(100,100,red)-protsedurasi ekarnda (100,100)-koordinatali nuqtada qizil rangli nuqta tasvirini yaratadi.
  • Bu protseduradan dastur tarkibida foydalanib, samarali “effektlar” olishimiz mumkin.
  • Masalan, quyidagi dastur yordamida ekranda
  • Setviewport (20,20,200,200,true) protsedurasi bilan belgilangan oynada 32000 ta nuqtalarni
  • putpixel(random(getmaxx),random(getmaxy),random(255));
  • protsedurasi yorlamida turli ranglar bilan bo‘yab ajoyib tasvir yaratishimiz mumkin.

Dastur ko‘rinishi:

  • Dastur ko‘rinishi:
  •  
  • uses Graph;
  • var
  • Driver, Mode,d,m:integer;
  •  
  • begin
  • Driver:= Detect;
  • InitGraph(Driver,Mode, 'c:\tp\bgi');
  • setbkcolor(black);
  • Setviewport(20,20,200,200,true);
  • for d:=1 to 32000 do
  • putpixel(random(getmaxx),random(getmaxy),random(255));
  • readln;
  • CloseGraph ;
  • end.

GetPixel(x,y:integer):word funksiyasi (x,y) koordinatali nuqtaning rangini aniqlashda qo‘llaniladi. Bu funksiyadan foydalanishga misol keltiramiz:

  • GetPixel(x,y:integer):word funksiyasi (x,y) koordinatali nuqtaning rangini aniqlashda qo‘llaniladi. Bu funksiyadan foydalanishga misol keltiramiz:
  •  
  • uses graph;
  • var
  • gd,gm:integer; a:word;
  • begin
  • gd:=detect; initgraph(gd,gm,''); a:=getpixel(25,25);writeln(a);readln;
  • end.
  •  
  • Line(x1,y1,x2,y2:integer)-protsedurasi (x1,y1) va (x2,y2) koordinatali nuqtalarani tutashtiruvchi to‘g‘ri chiziq chizish uchun ishlatiladi.
  • Misol:
  • uses graph;
  • var
  • gd,gm, x1,x2,x3,y1,y2,y3:integer;
  • begin
  • gd:=detect; initgraph(gd,gm,'');
  • x1:=45;y1:=45;x2:=160;y2:=120;x3:=100;y2:=80;
  • line(x1,y1,x2,y2); line(x3,y3,x2,y2); line(x1,y1,x3,y3);readln;
  • end.

Download 87.47 Kb.

Do'stlaringiz bilan baham:
  1   2   3   4   5   6   7




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