Pedagoglarning malaka oshirish kursi uchun

391. y:=a/b; Bu ifodada y o‘zgaruvchini Pascalda qanday e’lon(tavsiflash) qilish kerak?
*a) Var y:real;
b ) Var y:integer;
c) Var y:logint;
d) Var y:string;


392. S matni ifodalayotgan butun sonni aniqlang.
*a) StrToInt (s)
b) StrToFloat (s)
c) Round (n)
d) Trunc (n)


393.DNS server(modul)lari nima ishni bajaradi?
*a) Domen nomlarini IP adreslarga aylantirib berishni amalga oshiradigan maxsus dasturlar to‘plami
b) Ma’lumotlarni muxofaza qiladi
c) Domen nomlarini TCP adreslarga aylantirib berishni amalga oshiradigan maxsus dasturlar to‘plami
d) Domen nomlarini kom pyuter nomiga aylantirib berishni amalga oshiradigan maxsus dasturlar to‘plami


394. WideString tipidagi satrning har bir belgisi … - belgisidan iborat.
*a) Unicode
b) Boolean
c) True (rost)
d) False (yolg'on)


395. =СЧЁТЕСЛИ(A1:A11; "A=0") ma’nosi nima ?
*a) A1 dan A11 xonagacha bo‘sh emas xonalarni sonini hisoblash
b) Shartga qarab mos xonalar sonini hisoblash
c) Shart buyicha yoki A1 yoki A11 xonalarni chiqarish
d) A1 xonaga A11 xonasini qo‘shish


396. Dastur natijasini aniqlang. Var i, s: integer; Begin S:=0; For i:=1 to 10 do S:=S+i; Write(‘S=’,S); End.
*a) S=55
b ) S=45
c ) S=65
d) S=10


397. Dastur natijasini aniqlang. Var i, p: integer; Begin p:=1; for i:=1 to 5 do p:=p*i; i:=i+1; writeln(p); end.
*a) 120
b) 240
c) 15
d) 60


398. Dastur natijasini aniqlang. Var i,S: integer; Begin S:=0; For i:=0 to 5 do S:=S*i; Write(‘S=’,S); End.
*a) S=0
b) S=120
c) S=15
d) S=25


399. Dastur natijasini aniqlang. Var i,s: integer; Begin s:=1; for i:=1 to 10 do; s:=s+i; writeln(s); end.
*a) 11
b) 55
c) 56
d) 10