Ii. Operatorlar, protsedura va funksiyalar

M a sh q l a r

1.Dastur bo’lagi bajarilishida A o’zgaruvchi qiymatini aniqlang.

a) B:=5; C:=4; A:=(B/5+C)*3;

b) B:=5; A:=B; A:=A+B;

c) A:=0; A:=A+1; A:=A*A;

d) B:=5;A:=10; C:=-B; A:=C;

2.Quyidagi ifodani Pascal tilida yozing .

3.(15>=25) Or (6.3<12.4) va Not(5>12)And(2.3<3.4) mantiqiy ifodalar qiymatini aniqlang.

4.Quyidagi F va D mantiqiy o’zgaruvchilar qiymatini aniqlang.

A:=1; B:=A+3; C:=B+A ; F:=(AC); D:=(AC);

5.Quyidagi ifodalar o’zgaruvchi A ning qanday qiymatlarida True qymat qbul qladi.

a) (A>=100) AND (A<=150)

b) (A<=100) AND (A<25)

c) (A=5) OR ((A>10) AND ((A<1))

6.Quyidagi dastur bo’agi natijasini aniqlang.

X:=0; Y:=1; If X>Y then begin X: =X-10 ; Y:=Y+10 end;

Writeln ('X=', X, ' Y=',Y);

7.Quyidagi dasturni while operatori o’rniga repeat - until operatorini ishlatib yozing: n:= 10; m:= 2;

while m <= n do m:= m+3;
8.Quyidagi dastur bo’lagida Begin va End orasidagi operatorlar necha marta takrorlanadi

a) For i:=j to j+1 do

Begin

. . .

End;
b) k:=0;

For i:=2 Downto k do

Begin

. . .

End;

9.Ikkita son kattasini topish dasturi tuzilsin:

a) Protsedurani ishlatgan holda.

b) Funksiyani ishlatgan holda.

10.Bir o’lchovli massivning eng kichik elementini topish dasturi tuzilsin:

a) Protsedurani ishlatgan holda.

b) Funksiyani ishlatgan holda.

11.Quyidagi dasturda ADD funksiyasi qiymatini toping.

x:=7; y:=ADD(x+1); Write(‘y=’,y:2);

12.Quyidagi dasturda Frac funksiyasi qiymatini toping.

x:=14.62; y:=Frac(x+2); Write(‘y=’,y :2);

13.Quyidagi dasturda Int funksiyasi qiymatini toping.

x:=14.62; y:=Int(x+2); Write(‘y=’,y :2);