Mavzuning dolzarbligi i-bob. Asosiy tushunchalar



Yüklə 61,83 Kb.
səhifə11/19
tarix20.02.2023
ölçüsü61,83 Kb.
#85108
1   ...   7   8   9   10   11   12   13   14   ...   19
Dildora.kurs ishi.nortura.domla

Var xl,x2:real; yl,y2:real; x:real; y:real; dx:real; l,b:Integer; w,h:Integer; mx,my:real;
xO,yO:Integer; Begin
1: = 10;
b:=Forml.ClientHeight-20;
h:=Form 1. ClientHeight- 40; w:=Forml.Width-40;
xl:= 0 ; x2:=25; dx:=0.01;
yl:=f(xl);
y2:=f(xl); x:=xl;
Repeat
y := f (x);
if y < y l then yl:=y;
if y > y2 then y2:=y; x:=x+dx; until (x >= x2); my:=h/abs(y2-yl); mx:=w/abs(x2-xl);
x 0 :=l;
yO:=b-Abs(Round(yl*my)); with forml.Canvas do
Begin
/ / °si MoveTo(l,b);LineTo(l,b-h);
MoveTo(x0,y0);LineTo(x0+w,y0); TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3)); TextOut(l+5,b,FloatToStrF(yl,ffGeneral,6,3)); x:=xl; repeat
y:=f(x);
Pixels [xO+ Round(x*mx) ,y0 - Round(y*my)]:=clRed; x:=x+dx;
Until (x >= x2); end;
end;
procedure TForml.ButtonlClick(Sender: TObject); begin
Buttonl.Visible:=false; GrOfFunc;
end; end.
Asosiy vazifani GrOfFunc protsedurasi bajaradi. Awal [xl,x2] oraliqda funksiyaning maksimal (y2) va minimal (yl) qiymatlari hisoblanadi. So‘ngra koordinatalar yoki bo‘yicha masshtab hisoblanadi. Shundan so‘ng protsedura grafikni quradi.
GrOfFunc protsedurasi tomonidan qurilgan grafik.
Keltirilgan dastur universal xarakterga ega. 0 ga funksiya grafigini chizish uchun f (x) tanasini o‘zgartirish yetarli.
Dastur to‘g‘ri ishlaydi, agar funksiya ham musbat, ham manfiy qiymatlami qabul qilsa.
Multiplikatsiya
Multiplikatsiya deyilganda harakatlanuvchi rasm tushuniladi. Rasmni harakatlantirish uchun avval u ekranga chiziladi, ma’lum vaqtdan so‘ng rasmni o‘chirib yangi joyga chiziladi.
Quyidagi dastur, aylananing chapdan o‘ngga harakatini ko‘rsatadi.

Yüklə 61,83 Kb.

Dostları ilə paylaş:
1   ...   7   8   9   10   11   12   13   14   ...   19




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin