Paskal tilida matematik ifoda va o`zgaruvchilarni tavsiflash


PutPixel(Random(600), Random(900), 12)



Download 467,49 Kb.
Pdf ko'rish
bet18/29
Sana26.01.2023
Hajmi467,49 Kb.
#903101
1   ...   14   15   16   17   18   19   20   21   ...   29
Bog'liq
TURBO PASCAL

PutPixel(Random(600), Random(900), 12);
delay(50)


56
until KeyPressed;
Readln;
CloseGraph;
end.
Getpixcel(x,y)
– ekrandagi x,y koordinatali nuqta rangining raqamini
aniqlaydi.
Setcolor(color)
– chiziqlarning rangini belgilaydi. Color ga – 0 dan 15 gacha
qiymat berilib, 16 xil rangni hosil qiiadi. 0 –Black (qora), 15 –White (oq), ya’ni
raqamlarning o’rniga ranglarning inglizcha nomlari ham yozilishi mumkin.
Line(x1,y1,x2,y2)
– x1,y1 nuqtadan x2,y2 nuqtagacha kesma hosil qiladi:
Circle(x,y,R)
– x,y markazga ega va r radiusli aylanani chizadi.
Rectangle(xl,yl,x2,y2)
– xI ,1y yuqori chap va x2,y2 pastki o’ng uchlarga ega
bo’lgan to’rtburchakni chizadi.
Arc(x,y,Stang,Endang,Radius)
– yoy chizadi. x,y mos aylana markazi. Stang
va endang yoy burchaklarining boshlang’ich va oxirgi qiymatlari. Radius aylana
radiusi.
DrawPoly(NumPointes,PolyPointes)
– ko’pburchakni chizadi. numPointes –
ko’pburchak uchlari soni. PolyPointes – ko’pburchak uchlari koordinatalari berilgan
massiv.
B(x2,y2)
A(x1,y1
)
M(x1,y1)
N(x2,y2)
M(x,y)
r
stang
endang
M(x,y)
r


57
Grafik rejimida ekranning eni va balandligi bo’yicha nuqtalarning soni
adapterning turiga bog’liq bo’lib, turlicha bo’ladi. Gorizontal va vertikal yo’nalish
bo’yicha nuqtalar soni uchun o’zgarmaslar
getmaxx
va
getmaxy
kiritilgan.
Misol –1. Ekranni ikki uchburchakka ajratuvchi chiziqning dasturi:
uses Crt, Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then halt(100);

Download 467,49 Kb.

Do'stlaringiz bilan baham:
1   ...   14   15   16   17   18   19   20   21   ...   29




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

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish