Тест №1.
Сызыктуу алгоритмдерди программалоо
Вариант 1
Туюнтманын маанисин тапкыла: 12/(3*2) - 12/3/2 + 12/3*2
а) 2
б) 4
в) 8
г) 10
Туюнтманын маанисин табууда канча кадам аткарылат
(х + 1/4)*(х - 1/4) - 1/2
а) 4
б) 5
в) 6
г) 7
y=х8
функциясынын маанисин эё аз сандагы канча операция менен табууга болот
а) 2
б) 3
в) 4
г) 5
а=12, b=2. Тъмънк\ кадамдар аткарылгандан кийин ъзгърмълърд\н мааниси кандай болот а:=b; b:=a
а) а=2; b=12
б) а=12; b=2
в) а=12; b=12
г) а=2; b=2
Туюнтманын маанисин тапкыла: а=10 жана b=5:
(а20) and (b20) or (aand (b
а) true
б) false
Туюнтманын маанисин тапкыла: sqr (5) – 17 div 4 mod 3
а) 21
б) 24
в) 17
г) 1
S=a*b/2 формуласы эмнени эсептейт:
а) периметр
б) жарым периметр
в) аянтты
г) арифметикалык орто санын
S ъзгърмъс\н\н маанисин тапкыла: S:=3; k:=S*2; S:=k*k; S:=S + k
а) 9
б) 3
в) 42
г) 36
Тъмънк\ программанын жыйынтыгы кандай болот:
x:=2; y:=1; x:=x*x; y:=y*y; x:=x - y; writeln(‘x=’, x)
а) х=1
б) 1
в) 3
г) х=3
Кайсы оператор туура жазылган:
1) 5:=k 2) x:=5-7*{a + b} 3) m:=(k - 2) 4) х + 2
а) 1
б) 2
в) 3
г) 4
Вариант 2
Туюнтманын маанисин тапкыла:16/(2*4) - 16/2/4 + 16/2*4
а) 2
б) 8
в)16
г) 32
Туюнтманын маанисин эсептъъдъ канча операция аткарылат
(a - 2/5) – 2/5 * (a + 2/5)
а) 5
б) 6
в) 7
г) 8
y=х16
функциянын маанисин эё аз сандагы канча операция менен эсептъъгъ болот
а) 2
б) 3
в) 4
г) 5
x=5, y=10. Тъмънк\ кадамдар аткарылгандан кийин ъзгърмълърд\н мааниси кандай болот z:=y-2; y:=x; x:=z
а) x=5; y=8
б) x=8; y=5
в) x=5; y=10
г) x=10; y=5
Туюнтманын маанисин эсептегиле: а=20 жана b=10 болсо :
(аand (bor (a10) and (b
а) true
б) false
Туюнтманын маанисин тапкыла: abs (-20) – sqr (3) div 5
а) 0
б) 16
в) 19
г) 20
R – айлананын радиусу болсо , C=2*Pi*R формуласы эмнени эсептейт:
а) айлананын аянтын б) айлананын узундугун в) айлананын диаметрин г) айланага сырттан сызылган \ч бурчтуктун аянтын эсептегиле
S ъзгърмъс\н\н маанисин тапкыла
S:=5; m:=S + 5; S:=m + m; S:=S + m
а) 5
б) 15
в) 20
г) 30
Тъмънк\ программа аткарылгандан кийин кандай маани келип чыгат:
x:=12; y:=10; x:=x + x; y:=y + y; x:=x - y; writeln (‘x=’, x)
а) 4
б) x=4
в) 2
г) х=2
Кайсы оператор туура жазылган:
1) S:=(m + 10) 2) S:=12 - {m - n} 3) 1S:=12 4) 15 + k
а) 1
б) 2
в) 3
г) 4
Вариант 3
Туюнтманын маанисин тапкылы: 2*10/5 + 5*3*2 - 8/2*4
а) 6
б) 18
в) 23
г) 33
Туюнтманын маанисин эсептъъдъ канча операция аткарылат;
(х + 5*2) - (2*х - 3)*2/5
а) 4
б) 5
в) 6
г) 7
y=х6
функциянын маанисин эё аз сандагы канча операция менен эсептъъгъ болот
а) 2
б) 3
в) 4
г) 5
а=6, b=10 Тъмънк\ кадамдар аткарылгандан кийин ъзгърмълърд\н мааниси кандай болот
а:=b - 2; b:=a - 2
а) а=8; b=6
б) а=8; b=4
в) а=2; b=4
г) а=2; b=6
Туюнтманын маанисин эсептегиле а=2 жана b=5:
(а10) and (b10) or (aand (b
а) true
б) false
Туюнтманын маанисин эсептегиле: sqr (4) – 10 div 3 mod 2
а) 0
б) 1
в) 15
г) 16
Теё капталдуу \ч бурчтукта а – каптал жагы, h – бийиктиги болсо, анда x=2*sqrt (sqr (a) – sqr (h)) формуласы эмнени эсептейт:
а) аянтын
б) периметрин
в) негизинин узундугун
г) негизинин жарымын
S ъзгърмъс\н\н маанисин тапкыла:
S:=2; k:=S*3; S:=sqr (k) - 1; S:=S - k
а) - 4
б) 6
в) 29
г) 30
Тъмънк\ программанын жыйынтыгын тапкыла:
x:=-3; y:=2; x:=abs (x); y:=sqr (y); x:=x - y; writeln (‘x=’, x)
а) -1
б) x=-1
в) 1
г) х=1
Кайсы оператаор туура жазылган:
1) 8:=k 2) c:=12 - 2a 3) 2 - k 4) х:=2 - k
а) 1
б) 2
в) 3
г) 4
Вариант 4
Туюнтманын маанисин тапкыла: 15 - 2*3 + 10/2*5 + 25*4
а) 0
б) 120
в) 134
г) 356
Туюнтманын маанисин эсептъъдъ канча операция аткарылат
a + 2*5 – 3*7 – 2*(a - 1)
а) 5
б) 6
в) 7
г) 8
y=х32
функциянын маанисин эё аз сандагы канча операция менен эсептъъгъ болот
а) 2
б) 3
в) 4
г) 5
x=2, y=12. Тъмънк\ кадамдар аткарылгандан кийин ъзгърмълърд\н мааниси кандай болот
z:=y + 2; y:=x; x:=z + 1
а) x=2; y=12
б) x=12; y=2
в) x=15; y=2
г) x=14; y=2
Туюнтманын маанисин эсептегиле а=6 жана b=7 болсо:
(аand (bor (a10) and (b10)
а) true
б) false
Туюнтманын маанисин тапкыла : 12 div 5 mod 3 + round (2.5)
а) 2
б) 3
в) 4
г) 5
R – тегеректи радиусу, анда S=Pi*sqr (r) формуласы эмнени эсептейт:
а)тегеректин аянтын
б) айлананын узундугун
в) айлананын диаметрин
г) айланага сырттан сызылган \ч бурчтуктун аянтын
S ъзгърмъс\н\н маанисин тапкыла:
S:=15; m:=S - 5; S:=m*m; S:=S + m
а) 15
б) 25
в) 100
г) 110
Программанын жыйынтыгын тапкыла:
x:=4; y:=8; x:=x + x; y:=y + y; x:=x + y; writeln(‘x=’, x)
а) 12
б) x=12
в) x=24
г) 24
Кайсы оператор туура жазылган:
1) S:=3m - 2 2) S:=sqr (4) - 5 3) 2S:=5 4) k + 10
а) 1
б) 2
в) 3
г) 4
Тест №2.
Бутактануучу алгоритм
Вариант 1
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=2;y:=3; if x
а) 1
б) 2
в) 3
г) 4
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=5; y:=4; S:=0; if xy then else S:=y
а) 0
б) 1
в) 4
г) 5
Тъмънк\ операторлор аткарылгандан кийин Z кандай маанини кабыл алат?
Z:=1; if Z0 then if Z
а) 0
б) 1
в) 2
г) 3
S ъзгърмъс\н\н мааниси канчага барабар болот?
a:=1; b:=2; S:=5; if ab then S:=a else begin S:=b; S:=S+a end;
а) 2
б) 3
в) 4
г) 5
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=2; y:=3; S:=4; if xy then else S:=y; S:=S + x;
а) 2
б) 3
в) 4
г) 5
d ъзгърмъс\н\н мааниси канчага барабар болот?
a:=2; b:=1; c:=3; d:=5;
if ad then if c
а) 1
б) 2
в) 3
г) 5
S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=2; a:=5; b:=1; c:=3; if (Sb) or (a
а) 1
б) 2
в) 4
г) 5
x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=5; b:=2; c:=3; if (ac) and (a
а) 15
б) 7
в) 8
г) 5
x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=1; b:=3; c:=7; if (ac) or (a
а) 3
б) 9
в) 6
г) 10
x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=8; b:=6; c:=4; if (ab) and (bc) then x:=a - 2*c else x:=a + 2*c;
а) 24
б) 40
в) 0
г) 16
Вариант 2
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=6; y:=5; if xy then S:=x else S:=y
а) 5
б) 6
в) 10
г) 12
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=10; y:=8; S:=2; if xy then else S:=x
а) 0
б) 2
в) 8
г) 10
Тъмънк\ операторлор аткарылгандан кийин Z кандай маанини кабыл алат?
Z:=-5; if Z-6 then inc (Z) else dec (Z)
а) -6
б) -5
в) -4
г) 0
S ъзгърмъс\н\н мааниси канчага барабар болот?
a:=10; b:=2; S:=3; if a
а) 12
б) 5
в) 3
г) 2
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=7; y:=6; S:=10; if x
а) 6
б) 7
в) 13
г) 16
6. d ъзгърмъс\н\н мааниси канчага барабар болот?
a:=1; b:=2; c:=4; d:=6;
if ab then if d
а) 1
б) 4
в) 2
г) 6
7.S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; a:=1; b:=4; c:=5; if (Sb) then S:=a else S:=b; S:=S + c;
а) 6
б) 5
в) 1
г) 0
8. x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=6; b:=3; c:=5; if (ab) and (a
а) 0
б) 9
в) 11
г) 6
9. x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=2; b:=3; c:=5; if (ac) then x:=2 + a*b else x:=2*a - b;
а) 1
б) 5
в) 7
г) 8
10. x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=2; b:=1; c:=6; if (ab) and (b
а) 1
б) 2
в) 6
г) 10
Вариант 3
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=5; y:=3; if x – y0 then S:=x else S:=y
а) 5
б) 3
в) 2
г) 0
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=6; y:=5; S:=0; if x - y0 then else S:=y
а) 6
б) 5
в) 1
г) 0
Тъмънк\ операторлор аткарылгандан кийин Z кандай маанини кабыл алат?
Z:=5; if Z0 then if Z
а) 3 б) 5 в) 7 г) 10
S ъзгърмъс\н\н мааниси канчага барабар болот?
a:=2; b:=3; S:=7; if a - b0 then S:=a else begin S:=b; S:=S + a end;
а) 3
б) 5
в) 7
г) 9
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=6; y:=8; S:=3; if x=y then else S:=x; S:=S + y;
а) 3
б) 11
в) 14
г) 6
d ъзгърмъс\н\н мааниси канчага барабар болот?
a:=3; b:=2; c:=5; d:=7; if a - b
а) 2
б) 5
в) 7
г) 0
S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=1; a:=2; b:=3; c:=4; if (Sb) or (ba) then S:=a else S:=b; S:=S + c;
а) 2
б) 3
в) 6
г) 7
x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=4; b:=1; c:=8; if (a
а) 0
б) 72
в) 12
г) 16
x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=2; b:=5; c:=4; if (a
а) 0
б) 12
в) 20
г) 40
x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=6; b:=3; c:=2; if (ac) and (bc) then x:=2 + a*c else x:=a - 2*b;
а) 14
б) 24
в) 12
г) 0
Вариант 4
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=2; y:=3; if x-y
а) 2
б) 3
в) 4
г) 6
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=4; y:=3; S:=1; if x - y0 then else S:=x
а) 0
б) 1
в) 3
г) 4
Тъмънк\ операторлор аткарылгандан кийин Z кандай маанини кабыл алат?
Z:=-5; if Z-3 then inc (Z,2) else dec (Z,2)
а) - 5
б) - 3
в) - 7
г) 0
S ъзгърмъс\н\н мааниси канчага барабар болот?
a:=8; b:=6; S:=3; if a – b
а) 2
б) 3
в) 9
г) 14
S ъзгърмъс\н\н мааниси канчага барабар болот?
x:=10; y:=3; S:=5; if x
а) 5
б) 8
в) 10
г) 13
d ъзгърмъс\н\н мааниси канчага барабар болот?
a:=3; b:=8; c:=4;
d:=0; if ab then if c
а) 0
б) 3
в) 4
г) 8
S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=2; a:=0; b:=3; c:=8; if (Sc) or (a
а) 0
б) 3
в) 8
г) 10
X ъзгърмъс\н\н мааниси канчага барабар болот?
a:=2; b:=3; c:=4; if (a – bc) then x:=a + b*c else x:=b + c;
а) 0
б) 7
в) 14
г) 20
x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=5; b:=6; c:=7; if (ac) then x:=5 + a*b else x:=10 - 2*a;
а) 35
б) 40
в) 60
г) 0
x ъзгърмъс\н\н мааниси канчага барабар болот?
a:=1; b:=3; c:=7; if (a – bc) then x:=c-4*b else x:=c+4*b;
а) -5
б) 9
в) 19
г) 33
Тест №3. Циклдик алгоритм Вариант 1
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=10; For i:=1 to 4 do S:=S - i;
а) 0
б) 4
в) 7
г) 9
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; k:=6; While k3 do k:=k - 1; S:=S + k;
а) 0
б) 3
в) 9
г) 12
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=1; For k:=3 downto 6 do S:=S - k;
а) 0
б) 1
в) -2
г) -5
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=1; For k:=1 to 2 do S:=S*2; S:=S + 10;
а) 2
б) 4
в) 14
г) 34
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; For i:=1 to 3 do begin S:=S + 2; S:=S*i end;
а) 2
б) 8
в) 18
г) 30
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; i:=5; Repeat i:=3*i; S:=S + i Until i15;
а) 5
б) 15
в) 60
г) 0
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; i:=0; While i
а) 0
б) 6
в) 8
г) 12
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=3; i:=1; Repeat S:=S + 1/i; i:=i + 1 Until i=1;
а) 2
б) 3
в) 4
г) 5
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; k:=1; For k:=k to k + 2 do S:=S + k;
а) 0
б) 1
в) 3
г) 6
X ъзгърмъс\н\н мааниси канчага барабар болот?:
x:=0; y:=5; While y0 do begin y:=y - 2; x:=x + y; end; writeln (‘x=’, x);
а) 3
б) x=3
в) 5
г) x=5
Вариант 2
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; For i:=1 to 3 do S:=S + i;
а) 1
б) 3
в) 6
г) 9
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; k:=0; While k
а) 1
б) 3
в) 4
г) 6
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=1; For k:=6 to 3 do S:=S + k;
а) 1
б) 3
в) 4
г) 6
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=1; For k:=1 to 2 do S:=S + k; S:=S*10;
а) 10
б) 20
в) 30
г) 40
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; For k:=1 to 3 do begin S:=S*10; S:=S + k end;
а) 121
б) 122
в) 123
г) 124
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; i:=5; Repeat i:=2*i; S:=S + i Until i5;
а) 5
б) 10
в) 22
г) 36
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; i:=0; While i
а) 1
б) 5
в) 10
г) 15
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=5; i:=1; Repeat S:=S + 1/i; i:=i-1 Until i
а) 5
б) 6
в) 7
г) 8
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; k:=1; For k:=k to k + 3 do S:=S + k;
а) 1
б) 3
в) 6
г) 10
Y тин мааниси канчага барабар?:
x:=10; y:=0; While x0 do begin x:=x - 3; y:=y + x; end; writeln (‘y=’, y);
а) 7
б) y=7
в) y=10
г) 10
Вариант 3
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=20; For i:=1 to 3 do S:=S – 2*i;
а) 18
б) 14
в) 8
г) 0
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; k:=5; While k2 do k:=k - 1; S:=S + k;
а) 0
б) 2
в) 7
г) 9
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=1; For k:=2 downto 5 do S:=S - k;
а) -13
б) -1
в) 0
г) 1
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=1; For k:=2 to 3 do S:=S*5; S:=S + 20;
а) 1
б) 25
в) 45
г) 145
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; For i:=2 to 4 do begin S:=S + 10; S:=S*i end;
а) 0
б) 120
в) 400
г) 500
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; i:=6; Repeat i:=2*i; S:=S + i Until i20;
а) 0
б) 12
в) 24
г) 36
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; i:=1; While i
а) 5
б) 8
в) 12
г) 20
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=2; i:=1; Repeat S:=S + 2/i; i:=i + 2 Until i2;
а) 2
б) 3
в) 4
г) 5
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; k:=2; For k:=k + 1 to k + 3 do S:=S + k;
а) 0
б) 3
в) 12
г) 18
X ъзгърмъс\н\н маанисин аныктагыла?:
x:=0; y:=6; While y0 do begin y:=y - 3; x:=x + y; end; writeln (‘x=’, x);
а) 0
б) x=0
в) 3
г) x=3
Вариант 4
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; For i:=1 to 4 do S:=S + 2*i;
а) 0
б) 6
в) 12
г) 20
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; k:=0; While k
а) 0
б) 3
в) 4
г) 10
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=1; For k:=5 to 2 do S:=S + k;
а) 1
б) 6
в) 10
г) 15
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=1; For k:=2 to 3 do S:=S + k; S:=S*20;
а) 1
б) 60
в) 120
г) 1260
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; For k:=2 to 4 do begin S:=S*5; S:=S + k end;
а) 2
б) 13
в) 65
г) 69
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; i:=4; Repeat i:=3*i; S:=S + i Until i15;
а) 12
б) 48
в) 108
г) 156
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; i:=1; While i
а) 7
б) 8
в) 15
г) 24
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=6; i:=2; Repeat S:=S + 2/i; i:=i-1 Until i
а) 1
б) 6
в) 7
г) 9
Тъмънк\ операторлор аткарылгандан кийин S ъзгърмъс\н\н мааниси канчага барабар болот?
S:=0; k:=2; For k:=k + 1 to k + 3 do S:=S + k;
а) 0
б) 3
в) 12
г) 18
Y ъзгърмъс\н\н мааниси канчага барабар?
x:=20; y:=0; While x0 do begin x:=x - 8; y:=y + x; end; writeln (‘y=’, y);
а) 12
б) y=12
в) 16
г) y=16
Тест №4. Массив Вариант 1
Тъмънк\ программанын фрагментинен кандай жыйынтык чыгат:
S:=0; For i:=1 to n do S:=S + a[i];
а) Массивдин элементтеринин саны;
б) Массивдин элементтеринин суммасы;
в) Массивдин жуб элементтеринин саны;
г) Массивдин жуб элементтеринин суммасы .
k:=0; For i:=1 to n do if a[i]0 then inc(k);
а) Массивдин жуб элементтеринин саны ;
б) Массивдин жуб элементтеринин суммасы;
в) Массивдин оё элементтеринин саны;
г) Массивдин оё элементтеринин суммасы.
S:=0; For i:=1 to n do a[i]:=a[i] + 50;
а) массивдин ар бир элементи 50гъ чоёоет.;
б) массивдин элементтеринин суммасы 50гъ чоёоет;
в) массивдин ар бир элементи 50 саны менен алмашат;
г) массив бир санга чоёоет.
m:=a[1]; For i:=2 to n do if a[i]
а) массивдин ар бир элементи m саны менен алмашат;
б) массивдеги элементтердин m санынан кичине элементи табылат;
в) массивдин эё кичине элементи табылат;
г) массивдеги эё чоё элементи табылат.
For i:=1 to n do if a[i]
а) массивдеги терс элементтер нъл менен алмашат;
б) массивдеги терс элементтер карама каршысы менен алмашат;
в) массивдин оё элементтери нъл менен алмашат;
г) массивдин оё элементтери карама каршысы менен алмашат.
For i:=1 to n do begin k:=0;
For j:=1 to m do if a[j, i]0 then inc(k) end;
а) матрицанын ар бир жолчосундагы оё элементтердин суммасы;
б) матрицанын ар бир мамычасындагы оё элементтердин суммасы;
в) матрицанын ар бир жолчосундагы оё элементтердин саны ;
г) матрицанын ар бир мамычасындагы оё элементтердин саны.
For i:=1 to n do
For j:=1 to m do if a[i, j]0 then a[i, j]:=a[i, j] * 3;
а) матрицанын оё элементтери 3 саны менен алмашат;
б) матрицанын оё элементтери 3 эсе чоёоет;
в) матрицанын оё элементтери 3 эсе азаят;
г) матрицанын оё элементтери карама каршысына алмашат.
S:=0; For i:=1 to n do
For j:=1 to n do if i j then S:=S + a[i, j];
а) квадраттык матрицанын негизги диоганалынын элементтеринин суммасы;
б) квадраттык матрицанын кайчылаш диоганалынын элементтеринин суммасы ;
в) квадраттык матрицанын негизги диоганалынын астындагы элементеринин суммасы;
г) квадраттык матрицанын кайчылаш диоганалынын астындагы элементеринин суммасы.
k:=0; For i:=1 to n do
For j:=1 to n do if i = j then if a[i, j]=1 then k:=k + 1;
а) квадраттык матрицанын негизги диоганалынын бирдик элементтери;
б) квадраттык матрицанын негизги диоганалынын бирдик элементтеринин суммасы ;
в) квадраттык матрицанын кайчылаш диоганалынын бирдик элементтери;
г) квадраттык матрицанын кайчылаш диоганалынын бирдик элементтеринин суммасы.
m:=a[1, 1]; For i:=1 to n do
For j:=1 to n do if a[i, j]m then m:=a[i, j];
а) матрицанын m санынан чоё болгон элементтери;
б) матрицанын биринчи элементинен чоё болгон элементтери;
в) матрицанын эё чоё элементи;
г) матрицанын эё кичине элементи.
Вариант 2
Тъмънк\ программанын фрагментинен кандай жыйынтык чыгат:
S:=0; For i:=1 to n do if a[i] mod 2 =0 then S:=S + a[i];
а) массивдеги так сандардын саны;
б) массивдеги так сандардын суммасы;
в) массивдеги жуб сандардын саны ;
г) массивдеги жуб сандардын суммасы.
k:=0; For i:=1 to n do if a[i]=0 then S:=S + a[i];
а) массивдеги терс эмес элементтердин саны;
б) массивдеги оё элементтердин саны;
в) массивдеги терс эмес элементтердин суммасы;
г) массивдеги оё элементтердин суммасы.
S:=0; For i:=1 to n do S:=S + a[i]; S:=S + 10;
а) массивдин ар бир элементи 10го чоёоет;
б) массивдин арбир элементи 10 саны менен алмашат;
в) массивдин элементтеринин суммасы 10го чоёоет;
г) массив бир санга чоёоет.
m:=a[1]; For i:=2 to n do if a[i]m then k:=k + 1;
а) массивде биринчи элементинен чоё болгон элементтер табылат;
б) массивде биринчи элементинен чоё болгон элементтеринин суммасы ;
в) массивде биринчи элементинен кичине болгон элементтер;
г) массивде биринчи элементинен кичине болгон элементтеринин суммасы.
For i:=1 to n do if a[i]
а) массивдин так элементтери эки эселенет;
б) массивдин терс элементтери эки эселенет ;
в) массивдин жуб элементтери эки эселенет;
г) массивдин оё элементтери эки эселенет.
For i:=1 to n do begin y[i]:=0;
For j:=1 to m do if x[j, i]0 then y[i]:=y[i] + x[i, j] end;
а) Берилген матрицанын ар бир жолчосундагы он элементтердин санын кърсът\\ч\ бир ълчъмд\\ массивти чыгаруучу программаны т\зът;
б) Берилген матрицанын ар бир жолчосундагы он элементтердин суммасын кърсът\\ч\ бир ълчъмд\\ массивти чыгаруучу программаны т\зът;
в) Берилген матрицанын ар бир мамычасындагы он элементтердин санын кърсът\\ч\ бир ълчъмд\\ массивти чыгаруучу программаны т\зът;
г) Берилген матрицанын ар бир мамычасындагы он элементтердин суммасын кърсът\\ч\ бир ълчъмд\\ массивти чыгаруучу программаны т\зът;
For i:=1 to n do
For j:=1 to m do if a[i, j]
а) матрицадагы терс элементтерди анын квадраттарына алмаштырат;
б) матрицадагы терс элементтерди анын карама каршысына алмаштырат;
в) матрицадагы терс элементтерди 10 эсе чоёойтот;
г) матрицадагы терс элементтерди эки эсе чоёойтот.
S:=0; For i:=1 to n do
For j:=1 to n do if i + j
а) квадраттык матрицанын негизги диоганалынын элементтеринин суммасы;
б) квадраттык матрицанын кайчылаш диоганалынын элементтеринин суммасы ;
в) квадраттык матрицанын негизги диоганалынын астындагы элементтеринин суммасы;
г) квадраттык матрицанын кайчылаш диоганалынын астындагы элементтеринин суммасы.
k:=0; For i:=1 to n do
For j:=1 to n do if i + j = n + 1 then a[i, j]:=a[i, j] + i;
а) кайчылаш диоганалдын элементтерине дал кел\\ч\ жолчонун номерин кошот;
б) негизги диоганалдын элементтерине дал кел\\ч\ жолчонун номерин кошот;
в) матрицанын ар бир элементтине дал кел\\ч\ жолчонун номерин кошот;
г) матрицанын ар бир элементтине дал кел\\ч\ мамычанын номерин кошот .
m:=10; For i:=1 to n do
For j:=1 to n do if a[i, j]m then a[i, j]:=a[i, j] - m;
а) матрицанын эё кичине элементин;
б) матрицанын эё чоё элементин;
в) матрицанын элементтеринен 10дон кичине болгон 10 элементи окуйт;
г) матрицанын элементтеринен 10дон чоё болгон 10 элементи окуйт ;
Вариант 3
Тъмънк\ программанын фрагментинен кандай жыйынтык чыгат:
S:=0; For i:=1 to n do if a[i] mod 2 =0 then S:=S + 1;
а) массивдеги так сандардын саны;
б) массивдеги так сандардын суммасы;
в) массивдеги жуб сандардын саны ;
г) массивдеги жуб сандардын суммасы.
k:=0; For i:=1 to n do if a[i]
а) массивдеги нълдърд\н саны;
б) массивдеги оё эмес элементтердин саны;
в) массивдеги терс эмес элементтердин саны;
г) массивдеги терс эмес элементтердин суммасы.
S:=0; For i:=1 to n do a[i]:=k;
а) массивдин ар бир элементине k санын кошумчалайт;
б) массивге k санын кошот;
в) массивдин элементтеринин суммасына k санын кошот;
г) массивдин ар бир элементи k санына алмашат.
m:=a[1]; For i:=2 to n do if a[i]m then m:=a[i];
а) масивдин эё чоё элементи табылат;
б) массивдин эё кичине элементи табылат;
в) массивдин ар бир элементи m санына алмашат;
г) массивдеги m санынан чоё болгон элементтер табылат.
For i:=1 to n do if a[i] mod 2 =1 then a[i]:=sqr(a[i]);
а) массивдин терс элементтери анын квадаты менен алмашат;
б) массивдин оё элементтери анын квадаты менен алмашат;;
в) массивдин так элементтери анын квадаты менен алмашат;;
г) массивдин жуб элементтери анын квадаты менен алмашат;.
For i:=1 to n do begin y[i]:=0;
For j:=1 to m do if x[i, j]0 then y[i]:=y[i] + x[i, j] end;
а) Берилген матрицанын ар бир жолчосундагы он элементтердин санын кърсът\\ч\ бир ълчъмд\\ массивти чыгаруучу программаны т\зът;
б) Берилген матрицанын ар бир жолчосундагы он элементтердин суммасын кърсът\\ч\ бир ълчъмд\\ массивти чыгаруучу программаны т\зът;
в) Берилген матрицанын ар бир мамычасындагы он элементтердин санын кърсът\\ч\ бир ълчъмд\\ массивти чыгаруучу программаны т\зът;
г) Берилген матрицанын ар бир мамычасындагы он элементтердин суммасын кърсът\\ч\ бир ълчъмд\\ массивти чыгаруучу программаны т\зът;
For i:=1 to n do
For j:=1 to m do if a[i, j]=0 then a[i, j]:=a[i, 1];
а) матрицадагы нълдър биринчи элемент менен алмашат;
б) матрицадагы нълдър бир санына алмашат;
в) матрицанын нълд\к элементтери тиешел\\ мамычанын биринчи элементтери менен алмашат;
г) матрицанын нълд\к элементтери тиешел\\ жолчонун биринчи элементтери менен алмашат .
S:=0; For i:=1 to n do
For j:=1 to n do if i
а) квадраттык матрицанын негизги диоганалынын элементтеринин суммасы;
б) квадраттык матрицанын кайчылаш диоганалынын элементтеринин суммасы ;
в) квадраттык матрицанын негизги диоганалынын астындагы элементтеринин суммасы;
г) квадраттык матрицанын кайчылаш диоганалынын астындагы элементтеринин суммасы.
k:=0; For i:=1 to n do
For j:=1 to n do if i + j = n + 1 then if a[i, j]=0 then k:=k + 1;
а) Матрицанын негизги диоганалынын нълд\к элементеринин саны ;
б) Матрицанын негизги диоганалынын нълд\к элементеринин суммасы ;
в) Матрицанын кайчылаш диоганалынын нълд\к элементеринин саны ;
г) ) Матрицанын кайчылаш диоганалынын нълд\к элементеринин суммасы ;
m:=a[1, 1]; For i:=1 to n do
For j:=1 to n do if a[i, j]
а) m санынан чоё болгон матрицанын элементтери;
б) матрицанын биринчи элементинен чоё болгон элементери;
в) матрицанын эё чоё элементи;
г) матрицанын эё кичине элементи.
Вариант 4
Тъмънк\ программанын фрагментинен кандай жыйынтык чыгат:
S:=0; For i:=1 to n do if a[i] mod 2 =1 then S:=S + 1;
а) массивдеги так сандардын саны;
б) массивдеги так сандардын суммасы;
в) массивдеги жуб сандардын саны ;
г) массивдеги жуб сандардын суммасы.
k:=0; For i:=1 to n do if a[i]
а) массивдеги так элементтердин саны;
б) массивдеги так элементтердин суммасы;
в) массивдеги терс эмес элементтердин саны;
г) массивдеги терс эмес элементтердин суммасы.
S:=0; For i:=1 to n do S:=S + a[i]; S:=S – 10;
а) массивдеги арбир элементтен 10 санын кемитет;
б) массивден 10санын алып салат;
в) массивдин элементеринин суммасынан 10ду кемитет;
г) массивдин ар бир элементи 10 менен алмашат.
m:=a[1]; For i:=2 to n do if a[i]
а) массивдин биринчи элементинен чоё элементтери табылат;
б) массивдин биринчи элементинен чоё элементтеринин суммасы табылат;
в) массивдин биринчи элементинен кичине элементтери табылат;
г) массивдин биринчи элементинен чоё элементтеринин суммасы табылат.
For i:=1 to n do if i mod 2 =1 then a[i]:=a[i] - 5;
а) массивдин жуб элементтеринен 5 санын кемитет;
б) массивдин жуб номердеги элементтеринен 5 санын кемитет;
в) массивдин так элементтеринен 5 санын кемитет;
г) массивдин так номердеги элементтеринен 5 санын кемитет .
For i:=1 to n do begin k:=0;
For j:=1 to m do if a[i, j]0 then inc(k) end;
а) матрицанын ар бир жолчосундагы оё элементтердин суммасы;
б) матрицанын ар бир мамычасындагы оё элементтердин суммасы ;
в) матрицанын ар бир жолчосундагы оё элементтердин саны;
г) матрицанын ар бир мамычасындагы оё элементтердин саны;
For i:=1 to n do
For j:=1 to m do if a[i, j]0 then a[i, j]:=a[n, j];
а) матрицанын оё элементтери тиешел\\ жолчонун акыркы элементи менен алмашат;
б) матрицанын оё элементтери тиешел\\ мамычанын акыркы элементи менен алмашат;
в) матрицанын оё элементтери тиешел\\ мамычанын биринчи элементи менен алмашат;
г) матрицанын оё элементтери тиешел\\ жолчонун биринчи элементи менен алмашат;
S:=0; For i:=1 to n do
For j:=1 to n do if i + j n + 1 then S:=S + a[i, j];
а) квадраттык матрицанын негизги диоганалынын элементтеринин суммасы;
б) квадраттык матрицанын кайчылаш диоганалынын элементтеринин суммасы ;
в) квадраттык матрицанын негизги диоганалынын астындагы элементтеринин суммасы;
г) квадраттык матрицанын кайчылаш диоганалынын астындагы элементтеринин суммасы
For i:=1 to n do
For j:=1 to n do if i = j then a[i, j]:=a[i, j] + i;
а) Квадраттык матрицанын негизги диоганалынын элементерине тиешел\\ жолчонун номерин кошумчалайт;
б) Квадраттык матрицанын кайчылаш диоганалынын элементерине тиешел\\ жолчонун номерин кошумчалайт;
в) Квадраттык матрицанын ар бир элементине тиешел\\ жолчонун номерин кошумчалайт;
г) ) Квадраттык матрицанын ар бир элементине тиешел\\ мамычанын номерин кошумчалайт;
m:=10; For i:=1 to n do
For j:=1 to n do if a[i, j]
а) матрицанын эё кичине элементи;
б) матрицанын эё чоё элементи; матрицанын элементтери, ;
в) 10дон кичине болгон матрицанын элементтерине 10 кошот;
г) 10дон чоё болгон матрицанын элементтерине 10 кошот.
Тест №5.
Саптарды иштет\\
Вариант 1
K ъзгърмъс\н\н маанисин аныктагыла:
S:=’abcdef’; k:=Length (S);
а) 0
б) 1
в) 4
г) 6
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’’; For i:=1 To 5 Do
S:=S + ‘a’; k:=Length (S);
а) 0
б) 1
в) 4
г) 5
k ъзгърмъс\н\н маанисин аныктагыла:
Str1:=’abcd’; Str2:=’abc’; k:=Pos (Str1,Str2);
а) 0
б) 1
в) 2
г) 3
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’235-234’; Val (S, n, k);
а) 1
б) 2
в) 3
г) 4
k ъзгърмъс\н\н маанисин аныктагыла:
k:=0; Str:=’abcabc’;
For i:=1 To Length (Str) Do
if Str[i]:=’b’ Then Inc (k);
а) 0
б) 1
в) 2
г) 3
k ъзгърмъс\н\н маанисин аныктагыла:
Str1:=’abc’; Str2:=Copy (Str1, 2, 3); k:=Length (Str1)
а) 1
б) 2
в) 3
г) 4
k ъзгърмъс\н\н маанисин аныктагыла:
k:=0; S:=’123mnMN’;
For i:=1 To Length (S) Do
if (S[i] = ’a’) and (S[i]
а) 1
б) 2
в) 3
г) 4
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’компьютер’; Delete (S, 5, 6); k:=Length (S);
а) 3
б) 4
в) 5
г) 6
S2 ъзгърмъс\н\н маанисин аныктагыла:
S1:=’ABCD’; S2:=’abcd’; Insert (S1, S2, 2);
а) aABCDbcd
б) abABCDcd
в) AabcdBCD
г) ABabcdCD
S1 ъзгърмъс\н\н маанисин аныктагыла:
S1:=’мышь’; Delete (S1, 4, 1); Insert (‘ка’, S1, 4);
а) ка
б) камыш
в) мышь
г) мышка
Вариант 2
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’1234’; k:=Length (S);
а) 1
б) 2
в) 3
г) 4
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’m’; k:=Length (S); While k
Begin S:=S + ‘m’; k:=Length (S); end;
а) 5
б) 4
в) 2
г) 1
k ъзгърмъс\н\н маанисин аныктагыла:
Str1:=’mnk’; Str2:=’lmnk’; k:=Pos (Str1,Str2);
а) 1
б) 2
в) 3
г) 4
Определите значение переменной k:
S:=’12+1’; Val (S, n, k);
а) 1
б) 2
в) 3
г) 13
k ъзгърмъс\н\н маанисин аныктагыла:
k:=10; Str:=’123123’;
For i:=1 To Length (Str) Do
if Str[i]:=’1’ Then Dec (k);
а) 10
б) 9
в) 8
г) 0
k ъзгърмъс\н\н маанисин аныктагыла:
Str1:=’1234’; Str2:=Copy (Str1, 2, 3);
а) 1
б) 2
в) 123
г) 234
k ъзгърмъс\н\н маанисин аныктагыла:
k:=0; S:=’abCDABcd’;
For i:=1 To Length (S) Do
if (S[i] = ’A’) and (S[i]
а) 1
б) 2
в) 3
г) 4
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’информация’; Delete (S, 6, 5);
а) инфо
б) инфор
в) мация
г) рмация
k ъзгърмъс\н\н маанисин аныктагыла:
S1:=’1234’; S2:=’5678’; Insert (S1, S2, 2);
а) 15678234
б)12567834
в) 51234678
г) 56123478
k ъзгърмъс\н\н маанисин аныктагыла:
S1:=’парта’; Delete (S1, 4, 2); Insert (‘кет’, S1, 4);
а) пар
б) кет
в) паркет
г) кетпар
Вариант 3
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’информатика’; k:=Length (S);
а) 0
б) 1
в) 10
г) 11
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’’; For i:=1 To 3 Do
S:=S + ‘1’; k:=Length (S);
а) 0
б) 1
в) 3
г) 111
k ъзгърмъс\н\н маанисин аныктагыла:
Str1:=’цветок’; Str2:=’цвет’; k:=Pos (Str1,Str2);
а) 0
б) 1
в) 4
г) 6
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’123-121’; Val (S, n, k);
а) 0
б) 2
в) 3
г) 4
k ъзгърмъс\н\н маанисин аныктагыла:
k:=0; Str:=’задача’;
For i:=1 To Length (Str) Do
if Str[i]:=’а’ Then Inc(k);
а) 0
б) 1
в) 2
г) 3
k ъзгърмъс\н\н маанисин аныктагыла:
Str1:=’алгоритм’; Str2:=Copy (Str1, 2, 6); k:=Length (Str1)
а) 2
б) 6
в) 8
г) 0
k ъзгърмъс\н\н маанисин аныктагыла:
k:=0; S:=’роботландия_1’;
For i:=1 To Length (S) Do
if (S[i] = ’a’) and (S[i] я’) Then k:=k + 1;
а) 10
б) 11
в) 12
г) 13
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’практикум’; Delete (S, 4, 3); k:=Length (S);
а) 3
б) 4
в) 6
г) 9
k ъзгърмъс\н\н маанисин аныктагыла:
S1:=’Турбо’; S2:=’Паскаль’; Insert (S1, S2, 8);
а) Турбо Паскаль
б) ТурбоПаскаль
в) Паскаль Турбо
г) ПаскальТурбо
k ъзгърмъс\н\н маанисин аныктагыла:
S1:=’логика’; Delete (S1, 4, 2); Insert (‘рифм’, S1, 5);
а) лога
б) логарифм
в) рифм
г) рифма
Вариант 4
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’функция’; k:=Length (S);
а) 0
б) 6
в) 7
г) 8
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’n’; k:=Length (S); While k
Begin S:=S + ‘n’; k:=Length (S); end;
а) 1
б) 2
в) 3
г) 4
k ъзгърмъс\н\н маанисин аныктагыла:
Str1:=’ада’; Str2:=’триада’;
k:=Pos (Str1,Str2);
а) 1
б) 2
в) 3
г) 4
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’10+1’; Val (S, n, k);
а) 3
б) 10
в) 11
г) 101
k ъзгърмъс\н\н маанисин аныктагыла:
k:=5; Str:=’решение’;
For i:=1 To Length (Str) Do
if Str[i]:=’е’ Then Dec (k);
а) 2
б) 3
в) 7
г) 8
k ъзгърмъс\н\н маанисин аныктагыла:
Str1:=’множество’; Str2:=Copy (Str1, 4, 4);
а) мно
б) жест
в) во
г) множество
k ъзгърмъс\н\н маанисин аныктагыла:
k:=0; S:=’ПРОГРАМмист’;
For i:=1 To Length (S) Do
if (S[i] = ’A’) and (S[i] Я’) Then k:=k + 1;
а) 4
б) 7
в) 11
г) 0
k ъзгърмъс\н\н маанисин аныктагыла:
S:=’видеорежим’; Delete (S, 6, 5);
а) видео
б) режим
в) виде
г) видеорежим
k ъзгърмъс\н\н маанисин аныктагыла:
S1:=’константа’; S2:=’12’; Insert (S1, S2, 2);
а) 12константа
б)1константа2
в) константа12
г) к12онстанта
k ъзгърмъс\н\н маанисин аныктагыла:
S1:=’модуль’; Delete (S1, 6, 1); Insert (‘а’, S1, 6);
а) модул
б) модула
в) амодул
г) модуль
Тесттин жооптору
Тесттин № | Варианттары | Суроолору |
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
1 | 1 | в | г | б | г | а | б | в | в | г | в |
2 | г | в | в | б | а | в | б | г | б | а |
3 | б | г | б | а | а | в | в | в | б | г |
4 | в | в | г | в | а | г | а | г | в | б |
2 | 1 | б | а | в | б | г | в | в | б | в | в |
2 | б | б | в | а | в | б | а | б | г | б |
3 | а | г | в | б | в | б | в | в | б | а |
4 | а | б | в | г | г | в | в | б | а | в |
3 | 1 | а | б | б | в | г | в | б | в | г | б |
2 | в | б | а | г | в | б | б | б | г | в |
3 | в | б | г | в | в | г | а | в | в | г |
4 | г | в | а | в | г | б | а | в | в | б |
4 | 1 | б | в | а | в | б | г | б | в | а | в |
2 | г | в | в | а | б | г | б | б | а | г |
3 | в | б | г | а | в | б | г | а | в | г |
4 | а | б | в | в | г | в | б | г | а | в |
5 | 1 | г | г | а | г | в | в | б | б | а | г |
2 | г | а | б | в | в | г | г | б | в | в |
3 | г | в | а | г | г | в | б | в | г | б |
4 | в | в | г | а | а | б | б | а | б | б |
Программаны толлуктагыла
Тема «Бутактануучу алгоритм».
Квадраттык теёдемени чыгаргаруунун программасы
Program M_1;
USES CRT;
VAR a,b,c,d,x,x1,x2:real;
begin
writeln(' a,b,c киргиз');
READLN(a,b,c);
if a=0 then
if b=0 then
if c=0 then writeln('x-каалаган сан')
else writeln('тамыры жок!')
else
begin
x:=-c/b;
writeln('x=',x:8:3);
end
else begin
d:=sqr(b)-4*a*c;
if ……………….. then writeln('тамыры жок!')
else
begin
x1:=………………………..;
x2:=………………………..;
writeln('x1=',x1:8:3,' x2=',x2:8:3);
end;
end;
end.
Тема «Циклдик алгоритм».
Program m_1;
uses crt;
var n,s,m:integer;
begin
write('n санын кийир:' );
readln(n);
s:=0;
m:=1;
while n0 do begin
s:=s+n mod 10;
m:=m*(n mod 10);
n:=n div 10
end;
writeln('……………….= ',s);
writeln('……………….=',m);
readln;
end.
Тема «Саптарды иштет\\».
Var i, l, n1, n2: Integer; S: String;
Begin
Writeln (‘…………‘); Readln (S);
n1:=0; n2:=0; l:= Length (S);
For i:=1 to l do
Begin
If S[i] = ‘1’ Then n1:= n1 + 1;
If S[i] = ‘2’ Then n2:= n2 + 1;
Writeln (‘…………‘, n1, ‘………… ‘);
Writeln (‘…………‘, n2, ‘………… ‘);
End.
Тема «Массивдер».
Const n=5;
Var a: array [1 .. n, 1 .. n] of integer;
i, j, k: Integer;
Begin
For i:=1 to n do
For j:=1 to n do
Begin
Write (‘…………‘); Readln (a[i,j]);
End;
For i:=1 to n do
If a[i, i] = 1 Then k:= k + 1;
Writeln (‘…………‘, k);
End.
Тема «Къпт\ктър».
Type mn = set of Char;
Var S1: String;
S2: mn;
i, j: Integer;
Begin
Writeln (‘…………‘); Readln (S1);
S2:= ‘’;
For i:=1 to Length (S1) do
If not (S1[i] in S2) Then S2:=S2 + [S1[i]];
For i:=1 to Length (S1) do
For j:=i + 1 to Length (S1) do
If S1[i] = S1 [j] Then S2:=S2 - [S1[i]];
Writeln (‘…………‘);
For i:=1 to Length (S1) do
If S1[i] in S2 Then Write (S1[i]);
End.