Informatika va axborot texnologiyalari fanidan test savollari

58. Fortran tili qachon yaratilgan?
*a) 1954 yil
b) 1964 yil
c) 1950 yil
d) 1952 yil
59. Dastur natijasi nimaga teng? var a,b,x:real; begin a:=8; b:=a/2; x:=A/B; x:=a*sqr(sqrt(x+b/2)); writeln(x); end.
*a) 32

b) 8
c) 256

d) 24
60. Quyidagi operator necha marta takrorlanadi? for x:=1 downto 10 do write (x);
*a) 1 marta
b) 5 marta
c) 10 marta
d) 0 marta
61. Quyida write operatori necha marta bajariladi? for i:=1 to 3 do for j:=0 to 3 do write (i+j);
*a) 12 marta
b) 1 marta
c) 3 marta
d) 9 marta
62. type hafta=(dush, sesh, chor, paysch, schanba, yaksch); var x,y: hafta; t:23..56; tavsiflash berilgan bo‘lsa, quyidagi ta’minlashlardan qaysisi noto‘g‘ri?
*a) y=t
b) x:=sesh
c) y:=x
d) t:=31
63. Quyida S ning qiymati nimaga teng? begin S:=0; for I:=1 to 3 do S:=S+2*i; writeln(S); end.
*a) 12

b) 24
c) 48

d) 96
64. Dastur qiymati nimaga teng? begin X:=-2; y:=4; A:=-2; if A*A-y>x*x then z:=y+A else z:=X+A; writeln(z); end.
*a) –4
b) –5
c) 1

d) 7

65. Quyida S ning qiymati nimaga teng? begin for j:=-2 to 3 do begin S:=0; S:=S+(j+1); end; writeln(S); end.
*a) 4

b) 2
c) 10

d) 6
66. Dastur natijasi nimaga teng? var a,b,x:real; begin a:=8; b:=a/2; x:=A/B; x:=a*sqr(sqrt(x+b/2)); writeln(x); end.
*a) 32

b) 8
c) 256

d) 24
67. Quyidagi operator necha marta takrorlanadi? for x:=1 downto 10 do write (x);
*a) 1 marta
b) 5 marta
c) 10 marta
d) 0 marta
68. Dastur natijasini aniqlang. begin A:=12; B:=8; D:=20; if A>18 then D:=A-B; writeln(D); end.
*a) 20

b) 5
c) 8

d) 4
69. Dastur natijasini aniqlang. begin X:=2; p:=1; 1:P:=P*(2*x-2); X:=X+3; if X<=6 then goto 1; writeln(P); end.
*a) 16

b) 20
c) 2

d) 24