| Yangi mavzuni mustahkamlash.
1. Quyidagi operatorlardagi takrorlanishlar sonini aniqlang.
a) for i:=l to 88 do b:=l; (88-1)+1=88 marta
b) for i:=73 to 161 do m:=2; (161-73)+1= 80marta
d) for i:= -21 to 0 do a:=3; (0-(-21))+1=22marta
e) a:=5; b:=34; for i:=a+7 to b-1 do s:=s+l;
2*b+8-a*a+1=2*19+8-5*5+1=22marta
f) a:=5; b:=19; for i:=a*a to 2*b+8 do s:=s+l;
2. y = 21x2 + Ix + 1963 funksiyaning qiymatini x ning —5, —4, —3, —2, —1, 0, 1, 2, 3, 4, 5 qiymatlarida hisoblash dasturini tuzing.
Program masala_2;
Uses Crt;
Var x,y:integer;
Begin
For x:=-5 to 5 do
Writeln(x,’bo’lganda y=’, 21*x*x+7*x+1963);
Readln ;
End.
3. y = 23x + 1 funksiyaning qiymatini x ning [-15, 5] oraliqdagi butun qiymatlarida hisoblash dasturini tuzing.
Program masala_3;
Uses Crt;
Var x,y:integer;
Begin
For x:=-15 to 5 do
Writeln(x,’bo’lganda y=’, 23*x+1);
Readln ;
End.
|
