Barcha fanlardan Testlar to‘plami

Dasturda o’zgarmaslar bo’limi qaysi so’z bilan boshlanadi?
Const
Belgilar (nishonalar) bo’limi qaysi so’z bilan boshlanadi?	Label
Parametrli sikl operatori xizmat so’zlari qaysi javobda to’g’ri keltirilgan?	for, to, do;
Paskal tilida operatorlar bir-biridan qaysi belgi bilan ajratiladi?	Nuqta vergul
Paskalning grafik muxitida to’g’ri burchakli turtburchak chizuvchi prosedurani ko’rsating	Rectangle(X1,Y1,X2,Y2);
Grafik rejimni yopuvchi prsedura.	CloseGraph;
Dastur natijasi nimaga teng? var a,b,x:real; begin a:=8; b:=a/2; x:=A/B; x:=asqr(sqrt(x+b/2)); writeln(x); end.	32
Quyidagi operator necha marta takrorlanadi? for x:=1 downto 10 do write (x);	1 marta
Quyida write operatori necha marta bajariladi? for i:=1 to 3 do for j:=0 to 3 do write (i+j);	12 marta
Quyida S ning qiymati nimaga teng? Begin S:=0; for I:=1 to 3 do S:=S+2i; writeln(S); end.	12
Dastur qiymati nimaga teng? begin X:=-2; y:=4; A:=-2; if AA-y>xx then z:=y+A else z:=X+A; writeln(z); end.	–4
Quyida S ning qiymati nimaga teng? Begin for j:=-2 to 3 do begin S:=0; S:=S+(j+1); end; writeln(S); end.	4
Dastur natijasini aniqlang. begin A:=12; B:=8; D:=20; if A>18 then D:=A-B; writeln(D); end.	20
Dastur natijasini aniqlang. begin X:=2; p:=1; 1:P:=P(2x-2); X:=X+3; if X<=6 then goto 1; writeln(P); end.	16
Hisob natijasini aniqlang? begin A:=10; B:=8; C:= 6; if (A>B) and (C>B) then y:=A+B-C else y:=A-B+C; writeln(y); end.	8
Hisob natijasini aniqlang? begin a:=12; b:=14; c:=10; if (a>b) or (b>c) then y:=a+b-c else y:=a-b+c; writeln(y); end.	16
Quydagi programma nimani chop etadi?. VAR X,Y: REAL; BEGIN X:=25; Y:=SQRT(SQR(X)); Y:=X-Y; WRITE(Y) END.	0
PASKAL-programmaning ishlashi natijasida nima hisoblanadi? program m1; var x,y,z: real; begin read(x,y,z); if x	x , u , z sonlarning kattasining kubi;
Quydagi ifoda a=5, b=15, c=2 bo’lsa qanday natija beradi? ( a+ b div c 4 ) mod 5 div 3	1